delphi - 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] := ...