[poli-smen]

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

вот код. пишет не по строкам а заменой. Где я ошибся?

Это я ошибся. Правильно нужно так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

var   fs: TFileStream;   s: AnsiString; begin   if FileExists('db.txt') then   begin     fs := TFileStream.Create('db.txt', fmOpenWrite or fmShareDenyWrite);     fs.Position := fs.Size; // <--- ВОТ ЭТО НУЖНО ДОБАВИТЬ   end else   begin     fs := TFileStream.Create('db.txt', fmCreate);   end;      try     s := Edit1.Text + #13#10;     fs.WriteBuffer(Pointer(s)^, Length(s));   finally     fs.Free;   end; end;