Сохранение данных Memo, ...в файл *.txt без SaveDialog Опции

[Jill]

Не получается

С SaveDialog получается, но...

Задача на потоки. В одном из потоков необходимо данные Memo сохранять в текстовый файл. Как?

[hardcase]

Зачем объявлять файл?
Файлы (file of ...) остались в Pascal - в делфи их использовать не рекомендуется, а в старших версиях Делфи они вообще запрещены.

var fs: TStream;

begin
if SaveDialog1.Execute then begin //запускаем SaveDialog
   fs:=TFileStream.Create(SaveDialog1.FileName, fmCreate or fmOpenWrite);
   Memo1.Lines.SaveToStream(fs);
   fs.Free;
end;

ещё вариант:

var fn: string;
    fs: TStream;

begin
   fn:=InputBox('Output file','Enter file name:','C:\test.txt');
   fs:=TFileStream.Create(fn, fmCreate or fmOpenWrite);
   Memo1.Lines.SaveToStream(fs);
   fs.Free;
end;