Код:
procedure AppendFile(Memo: TMemo; FN: String);
var
i: Integer;
f: TextFile;
begin
AssignFile(f, FN);
Append(f);
for i:=0 to Memo.Lines.Count - 1 do
Writeln(f, Memo.Lines[i]);
CloseFile(f);
end;
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
|