Лабораторная работа: Обработка файлов в среде Delphi

AssignFile (f, OpenDialog1. FileName);

fName:=OpenDialog1. FileName;

Reset(F);

Readln (F, s);

Memo1. Text:=s;

CloseFile(F);

end;

end;

3) печать:

procedure TForm1. Button3Click (Sender: TObject);

begin

if PrintDialog1. Execute then

begin

AssignPrn(f);

Rewrite(F);

Writeln (f, Memo1. Text);

System. CloseFile(f);

end;

end;