delphi 修改文本文件内容：Delphi打开TXT文本，其中有好几行文本内容，对第一行的后半部分内容修改，其他

Question

几行数据不变，如何写？如对图中文本，第一行#后面的文本更改，如何做？

Answer 1

这个问题，可以借用 delphi 语言里的 TStringList 类来解决，相对代码要简单一些，因为要达到的要求也不复杂。

试编写代码示例如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  txt: TStringList;
  i: Integer;
  str,str1,str2: string;
begin
  txt := TStringList.Create;
  txt.LoadFromFile('e:\test.txt');
  i := Pos('#',txt[0]);
  if i>0 then
  begin
    str1 := Copy(txt[0],0,i-1);
    txt[0] := str1 + '修改后的内容';
    txt.SaveToFile('e:\test1.txt');
  end;
end;

运行结果截图：