?? 053.htm

?? Delphi基礎知識講座
?? HTM
?? 第 1 頁 / 共 4 頁
字號:
12 3 4 下一頁
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI基礎教程-->第二十章　開發Delphi對象式數據管理功能（三）</TITLE>
<META NAME="keywords" CONTENT=" DELPHI基礎教程 第二十章　開發Delphi對象式數據管理功能（三）">
<META NAME="description" CONTENT=" - DELPHI基礎教程 - 第二十章　開發Delphi對象式數據管理功能（三）">

<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋體"}
.tt2 {font: 12pt/15pt "宋體"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 background="bg.gif" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">

<TR>
<TD CLASS="tt3" VALIGN="top" width="8%"  background="bg.gif"><strong><A HREF="054.htm" ><FONT style="FONT-SIZE: 9pt">后一頁</font></A><BR>
<A HREF="052.htm" ><FONT style="FONT-SIZE: 9pt">前一頁</font></A><BR>

<A HREF="index.html" ><FONT style="FONT-SIZE: 9pt">回目錄</font></A><BR>
<A HREF="../../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁</font></A><BR>
</strong>
</TD>
<TD class="tt2" background="bg.gif" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷體_GB2312">第二十章　開發Delphi對象式數據管理功能（三）</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<font face="Arial"><p>20.2.1.1 TFiler</font><font face="宋體" lang="ZH-CN">對象的屬性和方法　</p>
<p>　　</font><font face="Arial">1. Root</font><font face="宋體" lang="ZH-CN">屬性</p>
<p>　　聲明：</font><font face="Arial">property Root: TComponent; </p>
<p>Root </font><font face="宋體" lang="ZH-CN">屬性給</font><font face="Arial">Filer</font><font
face="宋體" lang="ZH-CN">對象指出被讀寫的對象中哪一個對象是根或主要擁有者。</font><font
face="Arial">RootComponent</font><font face="宋體" lang="ZH-CN">和</font><font
face="Arial">WriteRootComponent</font><font face="宋體" lang="ZH-CN">方法在讀和寫部件及其擁有的部件前先設置</font><font
face="Arial">Root</font><font face="宋體" lang="ZH-CN">的值。</p>
<p>　　</font><font face="Arial">2. Ancestor</font><font face="宋體" lang="ZH-CN">屬性</p>
<p>　　聲明：</font><font face="Arial">property Ancestor: TPersistent; </p>
<p>Ancestor</font><font face="宋體" lang="ZH-CN">屬性用于往繼承下來的窗體中寫部件，因為當寫部件時，</font><font
face="Arial">Write</font><font face="宋體" lang="ZH-CN">對象只需要寫入與所繼承的部件不同的屬性，所以在寫之前要跟蹤每個繼承的部件，并且比較它們的屬性。</p>
<p>　　如果</font><font face="Arial">Ancestor</font><font face="宋體" lang="ZH-CN">為</font><font
face="Arial">nil</font><font face="宋體" lang="ZH-CN">，就表示沒有相應的繼承的部件，</font><font
face="Arial">Writer</font><font face="宋體" lang="ZH-CN">對象應當將部件完全寫入流。</font><font
face="Arial">Ancestor</font><font face="宋體" lang="ZH-CN">一般為</font><font
face="Arial">nil</font><font face="宋體" lang="ZH-CN">，只有當調用</font><font
face="Arial">WriteDescendant</font><font face="宋體" lang="ZH-CN">和</font><font
face="Arial">WriteDescendantRes</font><font face="宋體" lang="ZH-CN">時，才給賦值。當編寫和覆蓋</font><font
face="Arial">DefineProperties</font><font face="宋體" lang="ZH-CN">時，必須設置</font><font
face="Arial">Ancestor</font><font face="宋體" lang="ZH-CN">的值。</p>
<p>　　</font><font face="Arial">3. IgnoreChildren</font><font face="宋體"
lang="ZH-CN">屬性</p>
<p>　　聲明：</font><font face="Arial">property Ignorechildren: Boolean;</p>
<p>IgnoreChildren</font><font face="宋體" lang="ZH-CN">屬性使一個</font><font
face="Arial">Writer</font><font face="宋體" lang="ZH-CN">對象存儲部件時可以不存儲該部件擁有的部件。如果</font><font
face="Arial">IgnoreChildren</font><font face="宋體" lang="ZH-CN">屬性為</font><font
face="Arial">True</font><font face="宋體" lang="ZH-CN">，則</font><font face="Arial">Writer</font><font
face="宋體" lang="ZH-CN">對象存儲部件不存它擁有的子部件。否則，</font><font
face="Arial">Writer</font><font face="宋體" lang="ZH-CN">對象將所有其擁有的對象寫入流。</p>
<p>　　</font><font face="Arial">4. Create</font><font face="宋體" lang="ZH-CN">方法</p>
<p>　　聲明：</font><font face="Arial">constructor Create(Stream: TStream; BufSize:
Cardinal); </p>
<p></font><font face="宋體" lang="ZH-CN">　</font><font face="Arial">Create</font><font
face="宋體" lang="ZH-CN">方法創建一個新的</font><font face="Arial">Filer</font><font
face="宋體" lang="ZH-CN">對象，建立它和流</font><font face="Arial">Stream</font><font
face="宋體" lang="ZH-CN">的聯系；并且給它分配一個緩沖區</font><font
face="Arial">Buffer</font><font face="宋體" lang="ZH-CN">。</font><font face="Arial">Buffer</font><font
face="宋體" lang="ZH-CN">的大小由</font><font face="Arial">BufSize</font><font
face="宋體" lang="ZH-CN">指定。</p>
<p>　　</font><font face="Arial">5. Defineproperty</font><font face="宋體"
lang="ZH-CN">方法</p>
<p>　　聲明：</font><font face="Arial">procedure Defineproperty(const Name: String;
ReadData: TReaderProc; </p>
<p>WriteData: TWriterProc; HasData: Boolean); virtual; abstract; </p>
<p>Defineproperty</font><font face="宋體" lang="ZH-CN">方法定義</font><font
face="Arial">Filer</font><font face="宋體" lang="ZH-CN">對象將作為屬性存儲的數據。</font><font
face="Arial">Name</font><font face="宋體" lang="ZH-CN">參數描述接受的屬性名，該屬性不在</font><font
face="Arial">published</font><font face="宋體" lang="ZH-CN">部分定義。</font><font
face="Arial">ReadData</font><font face="宋體" lang="ZH-CN">和</font><font face="Arial">WriteData</font><font
face="宋體" lang="ZH-CN">參數指定在存取對象時讀和寫所需數據的方法。</font><font
face="Arial">HasData</font><font face="宋體" lang="ZH-CN">參數在運行時決定了屬性是否有數據要存儲。</p>
<p>　　只有當對象有數據要存儲時，才在該對象的</font><font
face="Arial">DefineProperties</font><font face="宋體" lang="ZH-CN">中調用</font><font
face="Arial">DefineProperty</font><font face="宋體" lang="ZH-CN">。</font><font
face="Arial">DefineProperties</font><font face="宋體" lang="ZH-CN">有一個</font><font
face="Arial">Filer</font><font face="宋體" lang="ZH-CN">對象作為它的參數，調用的就是該</font><font
face="Arial">Filer</font><font face="宋體" lang="ZH-CN">對象的</font><font
face="Arial">DefineProperty</font><font face="宋體" lang="ZH-CN">和</font><font
face="Arial">DefineBinaryProperty</font><font face="宋體" lang="ZH-CN">方法。當定義屬性時，</font><font
face="Arial">Writer</font><font face="宋體" lang="ZH-CN">對象應當引用</font><font
face="Arial">Ancestor</font><font face="宋體" lang="ZH-CN">屬性，如果該屬性非空，</font><font
face="Arial">Writer</font><font face="宋體" lang="ZH-CN">對象應當只寫入與從</font><font
face="Arial">Ancestor</font><font face="宋體" lang="ZH-CN">繼承的不同的屬性的值。</p>
<p>　　一個最簡單的例子是</font><font face="Arial">TComponent</font><font
face="宋體" lang="ZH-CN">的</font><font face="Arial">DefineProperties</font><font
face="宋體" lang="ZH-CN">方法。盡管</font><font face="Arial">TComponent </font><font
face="宋體" lang="ZH-CN">沒有在</font><font face="Arial">published</font><font
face="宋體" lang="ZH-CN">中定義</font><font face="Arial">Left</font><font
face="宋體" lang="ZH-CN">、</font><font face="Arial">Top</font><font face="宋體"
lang="ZH-CN">屬性，但該方法存儲了部件的位置信息。</p>
<p>　</p>
<p></font><font face="Arial">procedure TComponent.DefineProperties(Filer: TFiler);</p>
<p>begin</p>
<p>Filer.DefineProperty('Left', ReadLeft, WriteLeft, LongRec(FDesignInfo).Lo &lt;&gt; 0);</p>
<p>Filer.DefineProperty('Top', ReadTop, WriteTop, LongRec(FDesignInfo).Hi &lt;&gt; 0);</p>
<p>end;</p>
<p></font>　<font face="Arial"></p>
<p>6. DefineBinaryproperty</font><font face="宋體" lang="ZH-CN">方法</p>
<p>　　聲明：</font><font face="Arial">procedure DefineBinaryproperty(const Name:
String; </p>
<p>ReadData, WriteData: TStreamProc; </p>
<p>HisData: Boolean); virtual; abstract; </p>
<p>DefineBinaryProperty</font><font face="宋體" lang="ZH-CN">方法定義</font><font
face="Arial">Filer</font><font face="宋體" lang="ZH-CN">對象作為屬性存儲的二進制數據。</font><font
face="Arial">Name</font><font face="宋體" lang="ZH-CN">參數描述屬性名。</font><font
face="Arial">ReadData</font><font face="宋體" lang="ZH-CN">和</font><font face="Arial">WriteData</font><font
face="宋體" lang="ZH-CN">參數描述所存儲的對象中讀寫所需數據的方法。</font><font
face="Arial">HasData</font><font face="宋體" lang="ZH-CN">參數在運行時決定屬性是否有數據要存。</p>
<p>　　</font><font face="Arial">DefineBinaryProperty</font><font face="宋體"
lang="ZH-CN">和</font><font face="Arial">DefineProperty</font><font face="宋體"
lang="ZH-CN">方法的不同之處在于，二進制型的屬性直接用</font><font
face="Arial">Stream</font><font face="宋體" lang="ZH-CN">對象讀寫，而不是通過</font><font
face="Arial">Filer</font><font face="宋體" lang="ZH-CN">對象。通過</font><font
face="Arial">ReadData</font><font face="宋體" lang="ZH-CN">和</font><font face="Arial">WriteData</font><font
face="宋體" lang="ZH-CN">傳入的方法，直接將對象數據寫入流或從流讀出。</p>
<p>　　</font><font face="Arial">DefineBinaryProperty</font><font face="宋體"
lang="ZH-CN">屬性用得較少。只有標準的</font><font face="Arial">VCL</font><font
face="宋體" lang="ZH-CN">對象定義了象圖形、圖像之類的二進制屬性的部件中才用它。</p>
<p>　　</font><font face="Arial">7. FlushBuffer</font><font face="宋體" lang="ZH-CN">方法</p>
<p>　　聲明：</font><font face="Arial">procedure FlushBuffer; virtual: abstract; </p>
<p>FlushBuffer</font><font face="宋體" lang="ZH-CN">方法用于使</font><font
face="Arial">Filer</font><font face="宋體" lang="ZH-CN">對象的緩沖區與相聯的</font><font
face="Arial">Stream</font><font face="宋體" lang="ZH-CN">對象同步。對</font><font
face="Arial">Reader</font><font face="宋體" lang="ZH-CN">對象來說，是通過重新分配緩沖區；對于</font><font
face="Arial">Writer</font><font face="宋體" lang="ZH-CN">對象是通過寫入當前緩沖區。</p>
<p>　　</font><font face="Arial">FlushBuffer</font><font face="宋體" lang="ZH-CN">是一個抽象方法，</font><font
face="Arial">TReader</font><font face="宋體" lang="ZH-CN">和</font><font face="Arial">TWriter</font><font
face="宋體" lang="ZH-CN">都覆蓋了它，提供了具體實現。</p>
<p>　</font><font face="Arial"></p>
<p>20.2.1.2 TFiler</font><font face="宋體" lang="ZH-CN">對象的實現原理</p>
<p>　</p>
<p>　　</font><font face="Arial">TFiler</font><font face="宋體" lang="ZH-CN">對象是</font><font
face="Arial">Filer</font><font face="宋體" lang="ZH-CN">對象的基礎類，它定義的大多數方法都是抽象類型的，沒有具體實現它，這些方法要在</font><font
face="Arial">TReader</font><font face="宋體" lang="ZH-CN">和</font><font face="Arial">TWrite</font><font
face="宋體" lang="ZH-CN">中覆蓋。但它們提供了</font><font face="Arial">Filer</font><font
face="宋體" lang="ZH-CN">對象的框架，了解它無疑是很重要的。</p>
<p>　　</font><font face="Arial">1. TFiler</font><font face="宋體" lang="ZH-CN">對象屬性的實現</p>
<p>　　</font><font face="Arial">TFiler</font><font face="宋體" lang="ZH-CN">對象定義了三個屬性：</font><font
face="Arial">Root</font><font face="宋體" lang="ZH-CN">、</font><font face="Arial">Ancestor</font><font
face="宋體" lang="ZH-CN">和</font><font face="Arial">IgnoreChildren</font><font
face="宋體" lang="ZH-CN">。正如定義對象屬性通常所采用的方法那樣，要在</font><font
face="Arial">private</font><font face="宋體" lang="ZH-CN">部分定義存儲屬性值的數據域，然后在</font><font
face="Arial">public</font><font face="宋體" lang="ZH-CN">或</font><font face="Arial">Published</font><font
face="宋體" lang="ZH-CN">部分定義該屬性，并按需要增加讀寫控制。它們的定義如下：</p>
<p>　　</p>
<p></font><font face="Arial">TFiler = class(TObject)</p>
<p>private</p>
<p></font><font face="宋體" lang="ZH-CN">…</font><font face="Arial"> </p>
<p>FRoot: TComponent;</p>
<p>FAncestor: TPersistent;</p>
<p>FIgnoreChildren: Boolean;</p>
<p>public</p>
<p></font><font face="宋體" lang="ZH-CN">…</p>
<p></font><font face="Arial">property Root: TComponent read FRoot write FRoot;</p>
<p>property Ancestor: TPersistent read FAncestor write FAncestor;</p>
<p>property IgnoreChildren: Boolean read FIgnoreChildren write FIgnoreChildren;</p>
<p>end;</p>
<p></font>　<font face="宋體" lang="ZH-CN"></p>
<p>　　它們在讀寫控制上都是直接讀寫私有的數據域。</p>
12 3 4 下一頁
?? 文件大小 434 K
?? 上傳用戶 A15117704533
?? 所屬分類 Delphi/CppBuilder
??? 相關標簽

#Delphi #基礎知識 #講座
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 053.htm

?? 快捷鍵說明
