Delphi Добавить Строку В Файл

Для того, чтобы добавить строку в файл на Delphi, нужно открыть файл с помощью класса TFileStream и использовать метод Write для записи новой строки в файл. Для этого нужно создать экземпляр класса TFileStream с указанием пути к файлу и режимом открытия файла. Например:

var
  fs: TFileStream;
  s: string;
begin
  s := 'Новая строка';
  fs := TFileStream.Create('file.txt', fmOpenWrite or fmShareDenyNone);
  fs.Seek(0, soFromEnd);
  fs.Write(s[1], Length(s));
  fs.Free;
end;

В этом примере мы создаем экземпляр класса TFileStream с указанием файла 'file.txt' и режимом открытия fmOpenWrite, который позволяет записывать данные в файл. Затем мы переходим в конец файла с помощью метода Seek и записываем новую строку с помощью метода Write. Наконец, мы освобождаем память, занятую экземпляром класса TFileStream с помощью метода Free.