文本文件读写TextFile

{对Txt文件进行替换，ANSI类型}
function TForm22.SearchFile(const FileName, SearchText: string;
  IsReplace: boolean; const ReplaceText: string): boolean;
var
  inFile: TextFile;
  inString: String;
  Temp: TStringList;
  bool: boolean;
begin
  Temp := TStringList.Create;
  assignFile(inFile, FileName);             //关联文本文件
  reset(inFile);
  while not Eof(inFile) do                 //文本未读完
  begin
    readln(inFile, inString);
    Temp.Add(inString);
  end;
  CloseFile(inFile);                  //关掉文件，不然不能直接保存
  if pos(SearchText, temp.Text) <> 0 then         {表示inString中有一句话SearchText}
  begin
      bool := true;
      bl := true;
      fileNum := fileNum + 1;
      if IsReplace then
      begin
        temp.Text := StringReplace(temp.Text, SearchText, ReplaceText, [rfReplaceAll]);       //替换
        temp.SaveToFile(FileName);
      end;
  end
  else
  begin
    bool := false;
  end;
  Temp.Free;
  StatusBar1.Panels[0].Text := '找到 ' + IntToStr(fileNum) + ' 个文件';
  result := bool;
end;