[poli-smen]

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

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

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

Код:

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;