怎样修改一个文本文件？

Question

var
txtf:Textfile;
i:integer;
str:string;
substr;string;
po:integer;
begin
  assignfile(txtf,filename);
  reset(txtf);
  while not eof(txtf) do
  begin
    readln(txtf,str);
    substr:='4321';
    po:=pos(substr,str);
    if po>0 then begin
      delete(str,po),4);
      insert(str,po,substr);
    end;
  end;
end;

Answer 1

处理之前先可以加上判断是不是要处理的那一行
if str=... then

Answer 2

laofeng(老封) 的方法是正确的。

Answer 3

我还是喜欢用TStringList将文件Load进来，处理完后再SAVE