Memototxt

[Mustang]

Как записать текст поля мемо в тэкстэ фал и обратно?

[pu4koff]

Memo.Lines.SaveToFile('bugoga.txt')
Memo.Lines.LoadFromFile('bugoga.txt ')

[Pitbull]

или
f:TextFile;
begin
AssignFile(f,'c:\1.txt');//объявление файла
Append(f); // открытие файла на добавление, если rewrite(f) - тогда перезапишет существующий фаил
Writeln(f,memo1.text);//запись содержимого мемо в фаил
CloseFile(f);
end;

end.

[Andrei Isaev]

Ну можно и по другому с помощью SaveDialiog. Вот как :
with SaveDialog1 do
if Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1. Filename);
Caption := 'TextEditor - ' +ExtractFilename(SaveDialog1.Filena me);
end;
end;