[Bloo]

Вот код процедуры, которая должна сохранять текст из 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;

[lmikle]

Убери все, кроме первых 2 строчек кода:

Код:

if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);

Этого достаточно.

[Bloo]

Ух ты, спасибоооо!!! )))))))))))