熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

開發Delphi對象式數據管理功能(五)

2022-06-13   來源: Delphi編程 


 

  寫DFM文件的過程WriteComponentResFie

  該過程帶有兩個參數FileName和InstanceFileName參數指定要寫入的DFM文件名Instance參數是TComponent類型的它指定要寫入的部件名一般是TForm對象的子類該過程將Instance部件和其擁有的所有部件寫入DFM文件

  這個過程的意義在於可以在程序運行過程中產生Delphi的窗體部件和在窗體中插入部件並由該函數將窗體寫入DFM文件支持了動態DFM文件的重用性

  該過程的程序是這樣的

  

  procedure WriteComponentResFile(const FileName: string; Instance: TComponent);

  var

  Stream: TStream;

  begin

  Stream := TFileStreamCreate(FileName fmCreate);

  try

  StreamWriteComponentRes(InstanceClassName Instance);

  finally

  StreamFree;

  end;

  end;

  

  函數中用FileStream創建文件用Stream對象的WriteComponetRes方法將Instance寫入流中

  

   讀DFM文件的函數ReadComponentResFile

  

  ReadComponentResFile函數帶有兩個參數FileName和InstanceFileName參數指定要讀DFM文件名Instance參數指定從DFM文件中要讀的部件該函數從DFM文件中將Instance和它擁有的所有部件並返回該部件

  這個函數的意義在於配合WriteComponentResFile過程的使用支持DFM文件的重用性

  該函數的程序是這樣的

  

  function ReadComponentResFile(const FileName: string; Instance: TComponent):

  TComponent;

  var

  Stream: TStream;

  begin</FO    


From:http://tw.wingwit.com/Article/program/Delphi/201401/30266.html
  • 上一篇文章:

  • 下一篇文章:
  • 推薦文章
    Copyright © 2005-2022 電腦知識網 Computer Knowledge   All rights reserved.