DFMファイルをテキストで読み込む

DFMファイルにはフォームやフォーム上のコンポーネントのプロパティ情報が記載されています。ただしこのファイルはバイナリ形式なので開いて読むことができません。
プログラムでこの DFMファイルをテキスト形式で読み込んむには ObjectResourceToText手続き を使用します。

以下のプログラムは DFMファイルをテキスト形式で別ファイルで保存する例と、TMemoに表示する例です。

■ DFMをテキストで保存する例 
  procedure TForm1.Button1Click(Sender: TObject);
  var
    I : TFileStream;
    O : TFileStream;
  begin
    I   :=    TFileStream.Create('C:\Unit1.DFM',fmOpenRead);  
    O   :=    TFileStream.Create('C:\Unit1.TXT',fmCreate);
    ObjectResourceToText(I,O);
    I.Free;
    O.Free;
  end;

■ DFMをTMemoにテキストで表示する例 
  procedure TForm1.Button1Click(Sender: TObject);
  var
    I : TFileStream;
    O : TStringStream;
  begin
    I   :=    TFileStream.Create('Unit1.DFM',fmOpenRead);  
    O   :=    TStringStream.Create('');
    ObjectResourceToText(I,O);
    Memo1.Text  :=  O.DataString;
    I.Free;
    O.Free;
  end;