如何查找、删除文件内的字符串？

Question

var
  LineStr:String;
  sTextFileName:TextFile;
begin
  AssignFile(sTextFileName,'C:\abc.txt');
  Reset(sTextFileName);
{读入第一行}
  Readln(sTextFileName,LineStr);
  if LineStr='abc' then 
  begin
    Rewrite(sTextFileName);
    Write(sTextFileName,'cba');//修改替换
  end;
{读入第二行}//每一次Readln就是往下读一行
  Readln(sTextFileName,LineStr);
  if LineStr='abc' then 
  begin
    Rewrite(sTextFileName);
    Write(sTextFileName,'cba');//修改替换
  end;
end;

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
var
  sStringList:TStringList;
  Index:integer;
begin
  sStringList := TStringList.Create;
  sStringList.LoadFromFile('e:\text.txt');
  if sStringList.Find('abc',Index) then
  begin
    {
     //1.查找abc,如存在则删除
     sStringList.Delete(Index);
    }
     //2、查找abc,如存在则将abc改为＊abc
     sStringList.Insert(Index,'*'+sStringList.Strings[Index]);
     sStringList.Delete(Index+1);
     sStringList.SaveToFile ('e:\text.txt');
  end;
end;
调试通过，记得给分哦！