[poli-smen]

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

Код:

var stringList:TStringList;
begin
  stringList:=TStringList.Create;
  stringList.Add(Edit1.Text);
  stringList.SaveToFile('db.txt');
  stringList.free;
  Memo1.lines.loadfromfile('db.txt');

конструкция работает. возник вопрос как сделать запись в фаил построчно, что было так: ввёл, нажал кнопку, добавилась строка, снова ввёл, снова нажал, добавилась вторая строка(первая на месте, не удалена) и т.д.

Добавить новую строчку в файл:

Код:

var
  fs: TFileStream;
  s: string;
begin
  if FileExists('db.txt') then
    fs := TFileStream.Create('db.txt', fmOpenWrite or fmShareDenyWrite)
  else
    fs := TFileStream.Create('db.txt', fmCreate);

  try
    s := Edit1.Text + #13#10;
    fs.WriteBuffer(Pointer(s)^, Length(s));
  finally
    fs.Free;
  end;
end;

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

конструкция YVitaliy не работает, не могу вывести из фаила в мемо или лайбел т.к. заносит в фаил какю то калималю из символов.

Какая конструкция YVitaliy не работает?