Лучший ответ
Ответы
-
0 0
Laptop (43) 6 (16930)2410 16 лет
А смысл? Кто сейчас, кроме студентов, пишет на Делфи? А если вы не можете вставить таймер в свою программу, то это вопрос не сюда.
Похожие вопросы
- Кто хорошо владеет Delphi?Вопрос в студию
- Кто очень хорошо разбирается в Delphi, напишите задачку за $ ?? в делфи умею только, калькулятор, звезду, элипс, окружность, треугольники с флагами рисовать
- Какие есть программы похожие на Delphi 7?microsoft visual c++
visual basic - Кто использует программу Delphi 7(см.внутри)?ну integer это целые числа. Вот тебе и выдаёт ошибку. Либо округляй, либо переходи на дробные
var a,b,c:extended;
вместо StrToInt будет FloatToInt
аналогично FloatToStr будет вместо IntToStr - Вопрос по delphi! :)))))) лучше показать на примере
uses SysUtils;
var t:TextFile;
s:string;
begin
AssignFile(t,'1.txt'); Ассоциация файловой переменной t c 1.txt
Reset(t); Открываем для чтения
s:='';
while not eof(t) do
ReadLn(t,s); //чтение из файла t линии в переменную s, пока не наступит конец файла (eof = end of file). С каждым проходом цикла читается следующая строка. Потому что ReadLN :)
CloseFile(t); // закрытие файла
end.
Ещё посмотри help по Rewrite() по Seek - Delphi 7 да кто его с сайтов то качает. Заинсталь dc али revconnect, хаб dchub.hacker.lv:4012
и качай - Как на Delphi принять mms-поток и записать его в файл? сходи на delphimaster.ru или sql.ru
если там не помогут, то тогда только на европейских сайтах и то, если с английским дружешь.
я не помогу, т.к. не моё направление. - Кто тут мастер Delphi 7 ?? Нужна помощь))ну что у тебя там?
вопрос написал бы хоть - Как в Delphi распечатать форму?procedure TForm1.Button1Click(Sender: TObject);
Var p:TextFile;
f:Integer;
Begin
AssignPrn(p);
Printer.Canvas.Font.Size:=10;
Printer.Canvas.Font.Name:='Arial';
Rewrite(p);
for f:=0 to Memo1.Lines.Count-1 do writeln(p,Memo1.Lines[f]);
writeln(p,Label1.Caption);
CloseFile(p);
End; - как будет выглядить код ? (delphi)procedure TFormX.Memo1DblClick(Sender: TObject);
begin
<код>
<код>
<код>
<код>
<код>
<код>
<код>
end;
можно и без массивов