Delphi 读写文件

Question

有一个文件 a.txt 内容有abcdefg
如果我要把文件写成 内容只有 abc ,也就是删除defg  怎么写呀

Answer 1

用个Tstringlist读出a.txt的内容. 处理完后再存回去

Answer 2

procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList;
  sTmp: string;
begin
  if OpenDialog1.Execute  then
   begin  sl := TStringList.Create;
  try
    sl.LoadFromFile(OpenDialog1.FileName);
    sTmp := sl.Text;
    sl.Text := StringReplace(sTmp, 'abcdefg', 'abc', [rfReplaceAll
    sl.SaveToFile(OpenDialog1.FileName);
    messagebox(0,'操作完成','提示',0);
  finally
    sl.Free;  end;
 end;
end;

Answer 3

给你写了一下,不过提醒楼主注意结贴呀,由于很多人仅仅提下问题,给他回答后,他就没影了,也不结贴,大大挫伤了我的回贴积极性.
procedure TForm1.Button1Click(Sender: TObject);
var
ss:TStringList;
begin
ss:=TStringlist.create;
ss.LoadFromFile('a.txt');
ss.Text:='abc';
//或者delete(ss.text,4,length(ss.Text)-3);
//或者ss.Text:=copy(ss.Text,1,3);
ss.SaveToFile('a.txt');
ss.free;
end;