关于delphi的文本操作

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TStringList.Create do try
    LoadFromFile('<文件名>');
    Text := StringReplace(Text, '<原字符>', '<新字符>', [rfReplaceAll]);
    SaveToFile('<文件名>');
  finally
    Free;
  end;
end;

Answer 1

简单的文本替换,用pos() 函数查找,

Answer 2

我的意思是：譬如某个txt中有5行，其中第3行的内容是：“abcde”.
现在想用delphi将第3行的内容改为“12345”.
但是要求查找时不管第3行的具体内容。只是根据其行数来操作。可以实现吗？

Answer 3

可以做到，顺序读取，然后判断回车符就可以判断出行数，
然后将SelStart设到开头，SelLength到下一个回车符，
根据SelLength得到要替换的字符数，
以后就是文本的删除与添加问题了（根据记录文件来理解的），
应该可行

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TStringList.Create do try
    LoadFromFile('<文件名>');
    Strings[2] := '12345';
    SaveToFile('<文件名>');
  finally
    Free;
  end;
end;