如何对文本文件进行操作？（200分等你拿）

Question

如何检索文本文件里的内容。
我现在有一个文本文件“result.txt”，我想知道里面是不是包含字符串str1，该如何操作？

Answer 1

function hasStr1():boolean;
var
   f1:textFile;
   StrLine:String;
begin
   result:=false;
   AssignFile(f1,'c:\result.txt');
   reset(F1);
  while not eof(F1) do
  begin
    readln(F1,StrLine)
    if pos(str1,StrLine)>0 then 
    begin
       result:=true;
       break;
    end;
   closefile(F1);
   end;
end;

Answer 2

function hasStr1():boolean;
var
   f1:textFile;
   StrLine:String;
begin
   result:=false;
   AssignFile(f1,'c:\result.txt');
   reset(F1);
  while not eof(F1) do
  begin
    readln(F1,StrLine)
    if pos(str1,StrLine)>0 then 
    begin
       result:=true;
       break;
    end;
   
   end;
  closefile(F1);
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  FS:TFileStream;
  Writer:TWriter;
begin
  FS:=TFileStream.Create('c:\demo.txt',fmCreate);
  Writer:=TWriter.Create(FS,4096);
  Writer.WriteString(Edit1.Text);
  Writer.WriteString('aaa');
  Writer.Free;
  FS.Free;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  FS:TFileStream;
  Reader:TReader;
  S:string;
begin
  FS:=TFileStream.Create('c:\demo.txt',fmOpenRead);
  Reader:=TReader.Create(FS,4096);
  ShowMessage(Reader.ReadString);
  ShowMessage(Reader.ReadString);
end;