Как из Memo вывести строки в txt файл в конец там существующих

[Saili]

Заношу строки
Memo2.Lines.LoadFromFile('t1.txt'); // загружаю файл
Memo2.Lines.SaveToFile('t3.txt'); // Заношу в другой

Memo2.Lines.LoadFromFile('t2.txt'); // загружаю второй файл
Memo2.Lines.SaveToFile('t3.txt'); // снова заношу в файл t3

а предыдущая информация исчезает!!!

[Speeker]

Конечно пропадает!!!
Ведь у тебя в мемо содиржимого того вайла нет, а если хочешь что бы не пропадало используй переменную для хранения содежимого файла
Первое что пришло в головоу (а по тому не оптимально)
используй дополнительную переменную типа TStrings и загружай в нее файл
Примерно так:
procedure TForm1.Button1Click(Sender: TObject);
var
z:tstrings;
i:integer;
begin
z:=tstringlist.Create;
memo1.Lines.LoadFromFile('d:\a.txt' );
memo1.Lines.SaveToFile('d:\b.txt');
memo1.Lines.LoadFromFile('d:\c.txt' );
z.LoadFromFile('d:\b.txt');
for i:=0 to memo1.Lines.Count-1 do
z.Add(memo1.Lines.ValueFromIndex[i]);
z.SaveToFile('d:\b.txt');
end;

[Saili]

Спасибо, Speeker! Повторил - работает!
Но куда-то деваются первые символа всех строк файла "с".
Ниче не понимаю!

[Virtson]

memo1.Lines.LoadFromFile('d:\a.txt');
memo1.Lines.SaveToFile('d:\b.txt');
memo1.Lines.LoadFromFile('d:\c.txt');
z.LoadFromFile('d:\b.txt');
for i:=0 to memo1.Lines.Count-1 do
z.Add(memo1.Lines.ValueFromIndex[i]);
z.SaveToFile('d:\b.txt');

[Saili]

Без них нельзя.
"Нет ничего более постоянного во Вселенной, чем ПЕРЕМЕННЫЕ"
ЛАО ЦЗЫ
А, все таки куда девается первый символ?
TStrings ими питается что ли?

Приятных выходных, ребята!!!

[Speeker]

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

А, все таки куда девается первый символ?
TStrings ими питается что ли?

Приятных выходных, ребята!!!

Пришли мне исходник, посмотрю...

[Gambler]

procedure TForm1.Button1Click(Sender: TObject);
var
S,S1:tstrings;
i:integer;
begin
S:=tstringlist.Create;
S1:=tstringlist.Create;
S.LoadFromFile('d:\A.txt'); //Загружаем "А"
S1.LoadFromFile('d:\B.txt'); //Загружаем "B"
for i:=0 to S1.Count-1 do 
S.Add(S1.Strings[i]); //В этом и была вся фигня.
S.SaveToFile('d:\C.txt');
end;

[Drop]

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

for i:=0 to S1.Count-1 do 
S.Add(S1.Strings[i]);

Зачем цикл если есть S.AddStrings(S1);

[Speeker]

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

Зачем цикл если есть S.AddStrings(S1);

Согласен, есть не доработка, но у меня вроде и мой код пахал...