Запись в текстовый файл

[Xardas]

Скажите, пожалуйста. Как записать в текстовый файл данные из двух Memo с помощью TSaveDialog и чтобы при каждом сохранении данные в него (файл) дописывались.

Заранее, спасибо!!!

[vitalik007]

var fname:string;
begin
if fname='' then begin
savedialog1.execute;
fname:=savedialog1.filename;
end;
memo1.lines.savetofile(fname);
memo2.lines.savetofile(fname);
end;

[SunKnight]

var f:textfile;
begin
assignfile(f,'D:\a.txt');
append(f);
begin
   for i:=0 to memo1.Lines.Count do
   writeln(f,memo1.lines.strings[i]);
end;
closefile(f);
end;

чтото тип того

[Xardas]

Сообщение от vitalik007

var fname:string;
begin
if fname='' then begin
savedialog1.execute;
fname:=savedialog1.filename;
end;
memo1.lines.savetofile(fname);
memo2.lines.savetofile(fname);
end;

Мне так кажется, что в файле будут данные только из Memo2???

[vitalik007]

да ты прав!
можешь ппробовать вариант SunKnighta должно работать

[Xardas]

Сообщение от SunKnight

var f:textfile;
begin
assignfile(f,'D:\a.txt');
append(f);
begin
   for i:=0 to memo1.Lines.Count do
   writeln(f,memo1.lines.strings[i]);
end;
closefile(f);
end;

чтото тип того

А если записывать из TListBox нужно писать так??????
assignfile(f,'C:\a.txt');
append(f);
for i:=0 to listbox1.Items.Count do
writeln(f,listbox1.items[i]);

[vitalik007]

да ты прав

[Xardas]

Выдает ошибку

Project Project1.exe raized exception class EStringListError with message 'List index out of bounds (3).' Process stopped. Use Step or Run to continue.

[puporev]

Попробуй
for i:=0 to memo1.Lines.Count-1 do
а то у тебя происходит выход за пределы лисбокса.

[Xardas]

Все работает!!! Всем ОГРОМНОЕ СПАСИБО!!!