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, Kali Linux Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель Я не вредитель, я всего лишь теоретик
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, Kali Linux Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель Я не вредитель, я всего лишь теоретик
