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

我想在文本的某一行后添加一个单词，例如： 以下是文本文件中的文本： 5264564321323鲁尼将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;

var
i：整数；
sl:TStringList；
开始
sl:=TStringList.Create；
尝试
sl.LoadFromFile（'users.txt'）；
对于i:=sl.Count-1到0 do
如果位置（'R003'，sl[i]）为0，则
sl.插入（i，“用户”）//不起作用，我不知道如何实施
sl.SaveToFile（'users.txt'）；
最后
sl.免费；
结束；
结束；

您的代码基本上很好。问题是您正在搜索的文本不包含

R003

相反，它包含

ROO3

也就是说，您使用了数字0而不是字母O

请注意，代码会在文件中插入新行。如果要修改行，则需要写入

sl[i] := ...

---

你的代码基本上是好的。问题是您正在搜索的文本不包含

R003

相反，它包含

ROO3

也就是说，您使用了数字0而不是字母O

请注意，代码会在文件中插入新行。如果要修改行，则需要写入

sl[i] := ...

---

非重复但相关：非重复但相关：