Что эквивалентно этой конструкции в 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;