delphi 在特定点将文本插入文本文件

Question

我想编辑一个文本文件。如果我读到一个特殊的行(让我们说//--开始在这里编辑文本--//)，那么在该行之后我想插入几行，但我不想覆盖现有的行。 delphi 可以做到这一点吗？谢谢!

示例文本:

这个

是一个文件

里面有文字

//--开始在此处插入文本--//

中间没有任何内容

编辑后的示例文本:

这个

是一个文件

里面有文字

//--开始在此处插入文本--//

现在有东西了

介于两者之间

中间没有任何内容

Answer 1

var
  SL: TStringList;
  InsTextPos: Integer;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('c:\test.txt');
    InsTextPos := SL.IndexOf('//--begin inserting text here--//');
    if InsTextPos >= 0 then
    begin
      SL.Insert(InsTextPos+1, 'Inserting Line 2');
      SL.Insert(InsTextPos+1, 'Inserting Line 1');
      SL.SaveToFile('c:\test.txt');
    end;
  finally
    SL.Free;
  end;
end;