怎么读取TextFile中的一段文字？

Question

举个例子:
procedure TForm1.Button1Click(Sender: TObject);
var sFile: String;
    tFile:TextFile;
    sStr,ss: String;
begin
  if OpenDialog1.Execute then
  begin
    sFile := OpenDialog1.FileName;
    AssignFile(tFile,sFile);
    Reset(tFile);
    ReadLn(tFile,sStr);
    while POS('正文',sStr) = 0 do
      ReadLn(tFile,sStr);
    while not Eof(tFile) do
    begin
      ReadLn(tFile,ss);
      sStr := sStr + #13+#10+ss;
    end;
    CloseFile(tFile);
    Memo1.Text := Copy(sStr,11,Length(sStr));
  end;
end;

Answer 1

如果正文与非正文之间是有标记分隔的，可以用pos（substr，str）的方法取得起始和终止位置，然后copy就可以了

Answer 2

TStringList最方便了!
再根据#用pos处理吧!