PDA

Просмотр полной версии : Кто поможет (Delphi)?


donka
24.03.2010, 00:09
Я хочу вместо кнопки поставить иконку я знаю что при надатии на кнопку там есть Glyph но у меня почему то этого нет как мне быть.(Очень надо помогите!
Можно писать в icq:570-007-400!
С меян +.

slesh
24.03.2010, 00:43
юзай не tbutton, а TBitBtn или TSpeedButton
как угодно будет. и там есть Glyph

donka
24.03.2010, 12:32
Здраствуйте у меня вопрос!Я в Delphi новичок.
Я бы хотел узнать как можно записи в переменной сохранить в .txt?
Желательно поподробнее!
Заранее спасибо.С меня +!

Helium
24.03.2010, 12:49
вот паскаль, делфи почти тоже самое
var a:string;
t:text;
begin
assign (t,'c:\имяфаила.txt'); {связаться с фаилом в каталоге}
rewrite (t); {подготовить фаил для записи}
writeln (t,a); {пишем данные}
close (t); {закрываем фаил}
end.

donka
24.03.2010, 12:57
вот паскаль, делфи почти тоже самое
var a:string;
t:text;
begin
assign (t,'c:\имяфаила.txt'); {связаться с фаилом в каталоге}
rewrite (t); {подготовить фаил для записи}
writeln (t,a); {пишем данные}
close (t); {закрываем фаил}
end.


тут t:text; выдаёт ошибку!

EndLeSSDre@M
24.03.2010, 12:59
var
i:integer;
g:array[1..5] of integer;

begin
rewrite(output,'output.txt');
g[1]:=1;
g[2]:=2;
g[3]:=3;
g[4]:=4;
g[5]:=5;

For i:=1 to 5 do
begin
append(output);
write(g[i],' ');
end;
end.

Ferrari california
24.03.2010, 15:49
g:array[1..5] of integer;
я новичок можно это строчку по подробнее ?

m0Hze
24.03.2010, 15:56
я новичок можно это строчку по подробнее ?
Если я не забыл паскаль, то это определение одномерного массива, размеренностью 5, и типом данных: integer.
В паскаль массив по моему может содержать только данные одного типа,мешать нельзя.Хотя может я и не прав,сто лет назад паскаль учил ><

EndLeSSDre@M
24.03.2010, 16:02
Если я не забыл паскаль, то это определение одномерного массива, размеренностью 5, и типом данных: integer.
В паскаль массив по моему может содержать только данные одного типа,мешать нельзя.Хотя может я и не прав,сто лет назад паскаль учил ><

ну в основном ты прав)) это определение массива, только в Delphi

donka
24.03.2010, 19:56
Помогите в Delphi как зделать Анимированный ProgressBar!
Я новичок
Заранее спасибо!

Helium
24.03.2010, 20:23
ты за сегодня столько тем натворил,по кускам программу собрать можешь))))
http://www.delphisources.ru/forum/showthread.php?t=2464 это почитай

~Shapaev~
24.03.2010, 20:31
ну в основном ты прав)) это определение массива, только в Delphi
В Delphi и паскале они одинаково объявляются т.е. array [1..N] of type

var a:string;
t:text;
begin
assign (t,'c:\имяфаила.txt'); {связаться с фаилом в каталоге}
rewrite (t); {подготовить фаил для записи}
writeln (t,a); {пишем данные}
close (t); {закрываем фаил}
end.


тут t:text; выдаёт ошибку!
Попробуй использовать AssignFile

Dosia
24.03.2010, 20:36
var a:string;
t:textfile;
begin
assignfile (t,'c:\имяфаила.txt'); {связаться с фаилом в каталоге}
rewrite (t); {подготовить фаил для записи}
writeln (t,a); {пишем данные}
closefile (t); {закрываем фаил}
end.

donka
25.03.2010, 01:38
Здравствуйте всем.
Я хочу написать прогу так вот смотрите я зделал так:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var log,pass:string;
t:textfile;
begin
log:=edit1.text;
pass:=edit2.text;
assignfile (t,'D:\1.txt');
rewrite (t);
writeln (t,log,';',pass);
ShowMessage('Новая строчка');
closefile (t);
end;

end.



но при записи у меняя он перезаписывает текст заново,а мне надо что б с новой строчки подскажиье пожалуйста как зделать!
Заранее спасибо!С меня +++.

KaE
25.03.2010, 01:41
Про rewrite() почитай повнимательнее.

EndLeSSDre@M
25.03.2010, 01:45
вот пример который тебе поможет



AssignFile(myFile, 'Test.txt');
WriteLn(myFile, 'Hello');
WriteLn(myFile, 'World');
CloseFile(myFile);

И хватит уже флудить и задавать глупые вопросы! это же элементарные вещи! хотя бы в гугл обратись с запросом "Delphi запись в файл" и там будет куча ссылок на то что тебе нужно.

или хотя бы видишь функция называется ReWrite приставка re означает по русски пере- то есть переписать, достаточно было убрать приставку и все стало бы нормально работать!

donka
25.03.2010, 18:06
Как зделать что б то что я вводил в Edit1 и в Edit2 записывалась в блокнот на хостинге?
И возможно ли такое?С меня возногрождение.
Писать можно в icq 570-007-400.

Helium
25.03.2010, 18:27
Как зделать что б то что я вводил в Edit1 и в Edit2 записывалась в блокнот на хостинге?
И возможно ли такое?С меня возногрождение.
Писать можно в icq 570-007-400.
Пинч изобретаешь?)

donka
25.03.2010, 19:36
Пинч изобретаешь?)


нет

donka
25.03.2010, 19:37
Делаю типо Fake зделаю выложу на античат!

Pr0mo
25.03.2010, 19:44
Как зделать что б то что я вводил в Edit1 и в Edit2 записывалась в блокнот на хостинге?
И возможно ли такое?С меня возногрождение.
Писать можно в icq 570-007-400.

Два варианта:

1) Послать Post запрос скрипту. Скрипт лежить на хостинге, принимая данные - создает файл, куда потом их и записывает.

2) Написать мини ftp сервер. А имеено, необходимо пользоваться функциями подключения к серверу по протоколу ftp, создавать там файл с данными.

Из этого вывод: оба метода достаточно сложны для новичка. Даже, если привести готовые куски кода, то вряд ли разберешься, уж прости :) Бросай ты делать фейки. Сделай что-нибудь полезное! ;)

Tigger
25.03.2010, 20:23
Чувак, ты не новичок!
Ты открыл IDE и сразу начал че-то писать, не понимая что делаешь.
Для начала хоть что-нибудь почитай, за тебя никто писать не будет.

Nizhegorodets
25.03.2010, 20:32
Делаю типо Fake зделаю выложу на античат!
Ммм...А зачем?

Helium
25.03.2010, 21:06
Делаю типо Fake зделаю выложу на античат!
ну вылаживай вылаживай

donka
25.03.2010, 23:06
Я фейк делать хочу что б научится пользоваться функциями!

stepashka_
25.03.2010, 23:27
Я фейк делать хочу что б научится пользоваться функциями!
Для начала попробуй сделать фейк с отправкой на мыло или icq. ;)

donka
25.03.2010, 23:37
на icq умею

Gar|k
25.03.2010, 23:37
2 donka похоже в школе вы еще русский язык не проходили :) что-бы выучить язык нужно читать книжки, прикинь.

donka
25.03.2010, 23:49
Посоветуйте книжку хорошую!

qaKEP
26.03.2010, 00:41
Посоветуйте книжку хорошую!
Миша Фленов "Библия Делфи"
Ты бильдер пишешь? Фейк, фейк....

donka
26.03.2010, 19:06
Подскажите как зделать надпись что б она состояла из точек как пароли или из *.
спс.С меня +

TrueBit
26.03.2010, 20:13
Подскажите как зделать надпись что б она состояла из точек как пароли или из *.
спс.С меня +

edit1.passwordChar:='*';
Вместо текста будут звёздочки

donka
26.03.2010, 22:05
спс работает))

donka
27.03.2010, 22:12
чё за ошибка?
acnt2007_R;

TrueBit
27.03.2010, 22:16
чё за ошибка?
acnt2007_R;
Где эта ошибка возникает?

donka
27.03.2010, 22:23
package AlphaDB2007;

{$R *.res}
{$R 'AlphaDB.dcr'}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST ON}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'AlphaControls DB-aware pack'}
{$IMPLICITBUILD ON}

requires
vcl,
vclx,
vcljpg,
vcldb,
acnt2007_R;

contains
sDBEdit in 'sDBEdit.pas',
sDBMemo in 'sDBMemo.pas',
sDBLookupComboBox in 'sDBLookupComboBox.pas',
sDBComboBox in 'sDBComboBox.pas',
sDBText in 'sDBText.pas',
sDBLookupListBox in 'sDBLookupListBox.pas',
sDBListBox in 'sDBListBox.pas',
sDBCheckBox in 'sDBCheckBox.pas',
sDBNavigator in 'sDBNavigator.pas',
sRegDB in 'sRegDB.pas',
sDBDateEdit in 'sDBDateEdit.pas',
sDBRadioGroup in 'sDBRadioGroup.pas',
sDBCalcEdit in 'sDBCalcEdit.pas',
sDBRichEdit in 'sDBRichEdit.pas',
acDBTextFX in 'acDBTextFX.pas';

end.


вот это сообщение ошибка тут acnt2007_R; показывается!

Alexandr II
27.03.2010, 22:33
package AlphaDB2007;
package acnt2007_R;
?

Fliplab
27.03.2010, 22:49
Какая ошибка, конкретно можешь?

donka
27.03.2010, 22:56
всё ошибку нашёл!

Fliplab
28.03.2010, 00:23
Кароче прежде чем вопрос здесь писать, спрашивай гугл)))

donka
28.03.2010, 01:30
У меня Windows 7 и Delphi 7,но в компонент Animate почему то не отоброжается стандартная анимация, чё делать?!?!

imreadyourmind
30.03.2010, 15:24
Вставляем обычный Timage и обрабатываем событие onclick

donka
30.03.2010, 16:28
Срочно нужна помощь!
Я создал форму но на форме поставил Border Style:=bsNone.
На верх поставил картинку ну думаю всё,но почему-то не могу перетаскивать форму!?!?
Подскажите пожалуйста что делать!

1n0y
30.03.2010, 16:55
http://www.cyberforum.ru/delphi-beginners/thread28681.html и еще сотни ссылок в гугле.

donka
30.03.2010, 17:26
Закрыто!

RedFern.89
01.04.2010, 15:15
не можешь перетащить?!!! о____О
а так не пробовал?


procedure Imge1MouseDown(..);
begin
ReleaseCapture();
SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);
end;

Berman
01.04.2010, 15:17
*Паника*
Только вот не понятно зачем поставил Border Style:=bsNone.
Ставь Border Style:=bsDialog да будет счастье =)

RedFern.89
01.04.2010, 16:04
возможно человеку захотелось сделать красочный заголовок окна)