[EleGant]

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

[TOJluK]

Код:

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

[lmikle]

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

Код:

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]

Код:

  Finally
    S.Free;
  End;
end;

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

[EleGant]

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