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

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

1 个答案: