如何在Delphi中写入文本文件中的特定点

Question

我想在特定行之后向文本中添加一个单词，例如：这是文本文件中的文本：5264564321323 ROO3 Rooney Will 234234（我想在此处添加一些内容）

这是我目前正在尝试使用的代码：

var
  i: Integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('users.txt');
    for i := sl.Count-1 downto 0 do
      if Pos('R003', sl[i]) <> 0 then
        sl.Insert(i,'user'); //DOES NOT WORK, I DONT KNOW HOW TO IMPLEMENT IT

    sl.SaveToFile('users.txt');
  finally
    sl.Free;
  end;
end;

Answer 1

您的代码本质上很好。 问题是您要搜索的文本不包含

R003

相反，它包含

ROO3

也就是说，您使用数字0代替字母O。

请注意，您的代码在文件中插入了新行。 如果您打算修改一行，则需要编写

sl[i] := ...