这个Delphi 2007中的构造相当于什么？

Question

在Delphi XE中：

function ReadConfig(TextReader: TTextReader): string;
begin
  try
    Result := TextReader.ReadToEnd;
  finally
    TextReader.Free;
  end;
end.

典型用途：

var
  s: string;

  ...

  s := ReadConfig(TStreamReader.Create('MySetting.cf'));

问题：

Delphi 2007向下的等效构造是什么。

Answer 1

假设您要求阅读文件：

var
    fils: TFileStream;
    stri: TStringStream;
begin
    fils := TFileStream.Create(sFileName, fmOpenRead or fmShareDenyNone);
    stri := TStringStream.Create('');
    try
        stri.CopyFrom(fils, fils.Size);
        Result := stri.DataString;
    finally
        fils.Free;
        stri.Free;
    end;
end;