Сохранение из Memo в документ Delphi

[malicious_devil]

Я знаю как сделать сохранение из Memo в документ, но данные каждый раз записываются новые. Как сделать чтобы сохранялись и предыдущие записи в документе.

[Алексей_2012]

Один из вариантов-использовать TStringList.

procedure TForm1.Button1Click(Sender: TObject);

var ts: tstringlist;
  i: word;
  s: string;

begin

  s := 'new.txt';
  ts := tstringlist.create;//список строк
  ts.clear;//очистка списка (на всякий случай)

//если файл есть, то грузим его в список
//если файла не будет, то он все равно создастся
   if  fileexists(s) then     ts.loadfromfile(s);

  

//построчное добавление из мемо в список (нумерация с 0 до количества строк мемо)

  for i := 0 to memo1.lines.count - 1 do
    ts.add(memo1.lines[i]);


//сохранение файла new.txt
    ts.SaveToFile(s);

//освобождение памяти, занятой списком
  ts.free;
end;
end.

"спасибо"-на весы слева похоже))

[malicious_devil]

Сообщение от Алексей_2012

Один из вариантов-использовать TStringList.

procedure TForm1.Button1Click(Sender: TObject);

var ts: tstringlist;
  i: word;
  s: string;

begin

  s := 'new.txt';
  ts := tstringlist.create;//список строк
  ts.clear;//очистка списка (на всякий случай)

//если файл есть, то грузим его в список
//если файла не будет, то он все равно создастся
   if  fileexists(s) then     ts.loadfromfile(s);

  

//построчное добавление из мемо в список (нумерация с 0 до количества строк мемо)

  for i := 0 to memo1.lines.count - 1 do
    ts.add(memo1.lines[i]);


//сохранение файла new.txt
    ts.SaveToFile(s);

//освобождение памяти, занятой списком
  ts.free;
end;
end.

"спасибо"-на весы слева похоже))

Спасибо огромное!

[min@y™]

Один из вариантов-использовать TStringList.

второй вариант (если файл большой) - TFileStream.
есть и 3-й вариант (для суперпупермегагигантских файлов), но, имхо, тебе его не надь.

[Алексей_2012]

зато мне надо, поделитесь, пожалуйста))

[min@y™]

зато мне надо, поделитесь, пожалуйста))

обоснуй формулировку задачи.

[Алексей_2012]

Вдруг когда-нибудь пригодится, да-да, гугл и тогда еще, наверное, не отменят, но все же)

[min@y™]

Вдруг когда-нибудь пригодится

вот тогда и заходи.

[Алексей_2012]

Вы так добры))

[min@y™]

Вы так добры))

не обижайся. прото я валяюсь на диване под одеялом, мне влом и неудобно на клавн текст натукивать. поэтому юзаю виртуальную клаву.

ладно, вот вырвал тебе из талмуда несколько листов.