Лучший ответ
Ответы
-
0 0
Laptop (42) 6 (16930)249 15 лет
А смысл? Кто сейчас, кроме студентов, пишет на Делфи? А если вы не можете вставить таймер в свою программу, то это вопрос не сюда.
Похожие вопросы
- Кто хорошо владеет Delphi?Вопрос в студию
- Кто очень хорошо разбирается в Delphi, напишите задачку за $ ?? в делфи умею только, калькулятор, звезду, элипс, окружность, треугольники с флагами рисовать
- Вопрос по 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(см.внутри)?ну integer это целые числа. Вот тебе и выдаёт ошибку. Либо округляй, либо переходи на дробные
var a,b,c:extended;
вместо StrToInt будет FloatToInt
аналогично FloatToStr будет вместо IntToStr - Какие есть программы похожие на Delphi 7?microsoft visual c++
visual basic - Delphi 7 да кто его с сайтов то качает. Заинсталь dc али revconnect, хаб dchub.hacker.lv:4012
и качай - А сейчас кто-то пишет какой-либо софт на Delphi? (вн.)Delphi это не язык программирования это среда разработки. Язык там Object Pascal. Если разрабатывают, то очень мало.
Если с программированием основными принципами программирования уже знаком, то изучай C++ или Java.
На Java чаще всего разрабатываются Enterprise проекты. Для этого одного знания Java не достаточно.
Сейчас много ещё разрабатывают на C#. Синтаксис очень похож на Java. - Путь в базе данных. (Delphi) ExtractFileDir (ParamStr (0)) + '\MyDatabase.XXX'
- Кто тут мастер 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;