Сохранение данных 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;

[Jill]

hardcase, файл должен сохранятся по умолчанию

почему не проходит такой вариант?

var
  f:TextFile;
  fName:string[80];
  i:integer;
begin
  fName:='CallRecord.txt';
  AssignFile(f,fName);
  Rewrite(f);
   for i:=0 to Form1.Memo1.Lines.Count do begin
  writeln(f,Form1.Memo1.Lines[i]);   end;
  CloseFile(f);
end;

вроде работает в потоке...

[hiv]

hardcase, файл должен сохранятся по умолчанию

почему не проходит такой вариант?

var
  f:TextFile;
  fName:string[80];
  i:integer;
begin
  fName:='CallRecord.txt';
  AssignFile(f,fName);
  Rewrite(f);
   for i:=0 to Form1.Memo1.Lines.Count do begin
  writeln(f,Form1.Memo1.Lines[i]);   end;
  CloseFile(f);
end;

вроде работает в потоке...

Потому, что надо:

 ...
  for i:=0 to Form1.Memo1.Lines.Count-1 do begin
...

И где здесь потоки?

Сделай как написал тебе hardcase в своем первом примере, только не забудь кинуть на форму SaveDialog из ярлычка Dialogs в панели компонентов.
Хау!