0 001china Unregistered / Unconfirmed GUEST, unregistred user! 2003-02-20 #1 我想删除一个文本文件中的某个字符,过去我是用控件memo来实现的。 有没有办法直接在文件中删除呀?? 比如某个txt文件中含有“大富翁”字符串,我该如何把这个字符串从该文件中删除呢!!
Z zhukewen Unregistered / Unconfirmed GUEST, unregistred user! 2003-02-20 #2 可以用TStringList。 var ts: TStringList; n: Integer; begin ts := TStringList.Create; ts.LoadFromFile('YourFile.txt'); n := Pos('大富翁',ts.Text); if n > 0 then begin Delete(ts.Test,n,6); ts.SaveToFile('YourFile.txt'); end; ts.free; end;
可以用TStringList。 var ts: TStringList; n: Integer; begin ts := TStringList.Create; ts.LoadFromFile('YourFile.txt'); n := Pos('大富翁',ts.Text); if n > 0 then begin Delete(ts.Test,n,6); ts.SaveToFile('YourFile.txt'); end; ts.free; end;