Как дописать (добавить) данные в файл из memo,чтобы старая информация не удалялась delphi?

Question

Валерий Н · Accepted Answer

советую поискать исходники. или посети форум программистов: programmersforum точка ru

Максим · Answer

[ссылка заблокирована по решению администрации проекта]. ru/showthread.php?t=711

Карим Ниязов · Answer

var L:TStringList; 
i:integer; 
begin 
 L:=TStringList.Create; 
 L.LoadFromFile(FileName); 
 for i:=0 to Memo1.Lines.Count-1 do 
 L.Add(Memo1.Lines); 
 L.SaveToFile(FileName); 
 L.Free; 
end;