Похожие вопросы
- Вопрос по 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 да кто его с сайтов то качает. Заинсталь dc али revconnect, хаб dchub.hacker.lv:4012
и качай - Какие есть программы похожие на Delphi 7?microsoft visual c++
visual basic - Путь в базе данных. (Delphi) ExtractFileDir (ParamStr (0)) + '\MyDatabase.XXX'
- Как на Delphi принять mms-поток и записать его в файл? сходи на delphimaster.ru или sql.ru
если там не помогут, то тогда только на европейских сайтах и то, если с английским дружешь.
я не помогу, т.к. не моё направление. - А сейчас кто-то пишет какой-либо софт на Delphi? (вн.)Delphi это не язык программирования это среда разработки. Язык там Object Pascal. Если разрабатывают, то очень мало.
Если с программированием основными принципами программирования уже знаком, то изучай C++ или Java.
На Java чаще всего разрабатываются Enterprise проекты. Для этого одного знания Java не достаточно.
Сейчас много ещё разрабатывают на C#. Синтаксис очень похож на Java. - как будет выглядить код ? (delphi)procedure TFormX.Memo1DblClick(Sender: TObject);
begin
<код>
<код>
<код>
<код>
<код>
<код>
<код>
end;
можно и без массивов - Есть кто нибудь кто хорошо понимает Delphi?Походу в закладке Win32 была иконка таймера.
- Как в 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;