Вот код процедуры, которая должна сохранять текст из Memo в текстовый файл, но файл создаётся без формата и остаётся пустым. В чём тут ошибка?
Код:
procedure TForm1.N2Click(Sender: TObject);
var f:textfile;
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
begin
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
closefile(f);
end;