谁知道下如何删除一个文本文件中的某个字符??(100分)

  • 主题发起人 主题发起人 001china
  • 开始时间 开始时间
0

001china

Unregistered / Unconfirmed
GUEST, unregistred user!
我想删除一个文本文件中的某个字符,过去我是用控件memo来实现的。
有没有办法直接在文件中删除呀??
比如某个txt文件中含有“大富翁”字符串,我该如何把这个字符串从该文件中删除呢!!
 
可以用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;
 
接受答案了.
 
后退
顶部