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