Запись текста в файл.

[RageGod]

Опять прошу помощи!
Вообщем, есть текстовый файл.
Такая задача: открыть текстовый файл, дойти до определенной строки и вставить после неё свой текст. Закрыть и сохранить файл.
Вот такой с использованием TStringList получился:

var
  TList : TStringList;
  i: integer;
  line: integer;
begin
  TList := TStringList.Create;
  TList.LoadFromFile('Тут мой файл');
  for i := 0 to TList.Count do
  begin
    if pos ('"last_version":', TList.Strings[i]) > 0 then
    begin
      Line := i + 2;
      break;
    end;
  end;
  if line > 0 then
  begin
    TList.Insert(Line, 'Тут текст, который вставлять');
    TList.SaveToFile('Тут мой файл');
    Halt;
  end
  else
  begin
    Halt;
  end;
  TList.Free;
end;

Но нужен такой вариант на WinApi. Чтобы не использовались никакие доп. модули (например, здесь используется Classes). Помогите.

[s-andriano]

Открываете два файла - один на ввод, другой - на вывод.
Начало цикла.
Читаете строку из входного файла.
Пишете ее в выходной файл.
Сравниваете (эту же) строку с образцом. Если совпала - пишете в выходной файл также дополнительную строку.
Если входной файл не закончился - на начало цикла.
Закрываем оба файла.

[RageGod]

Сообщение от s-andriano

Открываете два файла - один на ввод, другой - на вывод.
Начало цикла.
Читаете строку из входного файла.
Пишете ее в выходной файл.
Сравниваете (эту же) строку с образцом. Если совпала - пишете в выходной файл также дополнительную строку.
Если входной файл не закончился - на начало цикла.
Закрываем оба файла.

В принципе алгоритм понятен.
Помочь хотя бы с тем, какие функции и процедуры использовать можете, пожалуйста?

[alextrof94]

Ну такое загуглить несложно... "WinApi работа с файлами Delphi"

[RageGod]

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

Ну такое загуглить несложно... "WinApi работа с файлами Delphi"

Гуглил. В гугле дают только варианты работы с добавление в конец файла или перезапись всего файла. Найти действительно что-то, описывающее добавление файла по заданной координате, не удалось!

[alextrof94]

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

Гуглил. В гугле дают только варианты работы с добавление в конец файла или перезапись всего файла. Найти действительно что-то, описывающее добавление файла по заданной координате, не удалось!

Так тебе и нужна перезапись всего файла, только по строкам.

[RageGod]

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

Так тебе и нужна перезапись всего файла, только по строкам.

Я имел в виду, что там либо в конец файла, либо полностью очистить файл и записать что-то новое.
Вы меня не так понимаете. Мне всего лишь надо вставить строчку в определенное место.

[alextrof94]

ну так полной перезаписью это и делается... создается массив строк, или вовсе поток, копируются туда изначальные данные, в середину вставляются нужные дополнительные данные, затем все записывается в чистый файл.

[eval]

Мне всего лишь надо вставить строчку в определенное место.

реальность такова, что этопрактически не возможно

[RageGod]

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

реальность такова, что этопрактически не возможно

Хм.
Вообщем тогда придется делать так, как советовали выше.
Придется парсить весь файл, вставлять в нужное место строку и заново писать файл.