|
dolphin
|
Дата: Пятница, 05.06.2009, 08:10 | Сообщение # 1
|
Администратор
Сообщений: 897
Статус: Offline
|
procedure SaveTxtInfo;
var f:TextFile;
begin
If SaveDialog1.Execute then
begin
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
Writeln(f,'Ваши данные');
CloseFile(f);
end;
end;
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
dolphin
|
Дата: Пятница, 05.06.2009, 08:10 | Сообщение # 2
|
|
Администратор
Сообщений: 897
Статус: Offline
|
Чтение
procedure ReadTxtInfo;
var f:TextFile;
s:string;
begin
If OpenDialog1.Execute then
begin
AssignFile(f,OpenDialog1.FileName);
Reset(f);
Readln(f,s);
CloseFile(f);
end;
end;
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
