[EleGant]

Делаю не большую програмку. Цель программы сохранять в TXT файл данные из Memo1, Edit1, Edit2.
Смог сделать что бы сохраняло из Memo1...но немогу понять как сделать что бы в этот же TXT-файл сохранялись значения из Edit1 и Edit2.
Так же в программе которой пишу есть кнопка "Далее"...вот на это кнопку и хочу сделать сохранение из Memo1, Edit1, Edit2, и что бы когда нажмешь кнопку он сохранил в TXT почистил поля и снова был бы готов к ДОзаписи(т.е. не перезаписать файл...а дописать в него новую инфу)...помогите пожалуйста! Буду очень признателен..и заплачу если нужно..не большие деньги, но заплачу.

[TOJluK]

Код:

1 2 3 4

Var f:TextFile; begin AssignFile(f,'D:\File.txt'); Append(f); // для дозаписи

[lmikle]

Тут роще сделать через доп. TStringList.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure SaveText(AFileName : String; AMemo : TMemo; AEdit1, AEdit2 : TEdit); var   I : Integer;   S : TStringList; begin   S := TStringList.Create;   Try      // читаем существующий текст      If FileExists(AFileName) Then S.LoadFromFile(AFileName);        // Добавляем новый      S.Add(AEdit1.Text);      S.Add(AEdit2.Text);      For I := 0 To AMemo.Lines.Count-1 Do        S.Add(AMemo.Lines[i]);        // Сохраняем все нафих...      S.SaveToFile(AFileName);   Finally     S.Free;   End; end;

[EleGant]

Вы не могли бы скинуть пример кода с Memo1 и Edit1...а то сколько не пытался ничего не выходит...давно не делфил((

[EleGant]

Код:

1 2 3 4

Finally     S.Free;   End; end;

На "Finally" вылазит ошибка..что с ней делать

[EleGant]

Сам разобрался. Большое спасибо...