教程-Delphi Property详解

克耍宝 發表於 2019-5-9 09:28:00

http://anony3721.blog.163.com/blog/static/51197420107105132120/?ignoreua
<div class="cnblogs_code">
<pre> 1 Property
 2 Keyword Defines controlled access to class fields System unit
 3 ?1.Property Name : Type read Getter|nodefault;
 4 ?2.Property Name : Type write Setter;
 5 ?3.Property Name : Type read Getter write Setter;
 6 ?4.Property Name : Type Index Constant read Getter {default : Constant|nodefault;} {stored : Boolean};
 7 ?5.Property Name : Type Index Constant write Setter {default : Constant|nodefault;} {stored : Boolean};
 8 ?6.Property Name : Type Index Constant read Getter write Setter {default : Constant|nodefault;} {stored : Boolean};
 9 ?7.Property Name : BaseType read Getter {default;}
10 ?8.Property Name : BaseType write Setter; {default;}
11 ?9.Property Name : BaseType read Getter write Setter; {default;}
12 10.Property Name : Type read Getter implements Interfaces...;
13 11.Property Name; // Redeclared base class property
14 12.Property Name : Type; // Dispinterface only 
15 13.Property Name : Type readonly; // Dispinterface only 
16 14.Property Name : Type writeonly; // Dispinterface only</pre>
</div>
 
<table style="width: 984px" border="0" cellspacing="0" cellpadding="0" align="center">
<tbody>
<tr valign="top">
<td width="380">
<table border="0" cellspacing="0" cellpadding="7">
<tbody>
<tr>
<td class="title" bgcolor="#fef5b5">Description</td>
</tr>
<tr bgcolor="#fffeeb">
<td>The Property keyword defines a controlled access to class fields.    It is an Object Oriented concept that internals of an object should be hidden from the outside. Whilst you can allow fields (data) in a class to be directly externally accessible (by placing in the public or published sections), this is unwise. Instead, Property can be used to define how the data is read and written.    Versions 1, 2 and 3 These basic forms define read, write or read and write access to class fields. The data Type is returned from the field or method called Getter. The data is updated via the Setter field or method.    Note that you must use a different name for the Name and for Getter and Setter. For example: Property Age read fAge write fAge; You would use field names when there is no vetting or retrieval processing required. When using a method to read or write, the read or written value can be a lot simpler than the stored value. The stored value can even be entirely different.    Versions 4, 5 and 6 Using the Index keyword tells Delphi to pass the Constant value as the argument to the Getter and Setter methods. These must be functions that take this constant index value as an argument.    For example: Property Item2 : string Index 2 read ItemGetter; where ItemGetter is defined as : Function ItemGetter(Index : Integer) : string; Default provides run time information for the property. NoDefault does not. Stored is beyond the scope of Delphi Basics.    Versions 7, 8 and 9 This is a generalised version of versions 4,5 and 6. It requests the user to provide the index value for the Getter and Setter methods.    Default allows the Getter and Setter method calls to be replaced as in the following example : myValue := MyClass.Getter(23); can be replaced by : myValue := MyCLass;    Version 10 Allows the implementation of an Interface method to be delegated to a property. Access to the property invokes the interface implementation.    Version 11 By redclaring a parent class property, you can do so in a public or published clause, thereby raising the access rights of the property.    Versions 12, 13 and 14 Are relevant for dispinterfaces, outside the scope of delphi basics.</td>

</tr>
<tr>
<td> </td>

</tr>
<tr bgcolor="#dadaf0">
<td class="h2">Related commands</td>

</tr>
<tr bgcolor="#f9f9ff">
<td>
<table cellspacing="0" cellpadding="0">
<tbody>
<tr valign="top">
<td>Index</td>
<td width="8"> </td>
<td align="left">Principally defines indexed class data properties</td>

</tr>
<tr valign="top">
<td>Private</td>
<td width="8"> </td>
<td align="left">Starts the section of private data and methods in a class</td>

</tr>
<tr valign="top">
<td>Protected</td>
<td width="8"> </td>
<td align="left">Starts a section of class private data accesible to sub-classes</td>

</tr>
<tr valign="top">
<td>Public</td>
<td width="8"> </td>
<td align="left">Starts an externally accessible section of a class</td>

</tr>
<tr valign="top">
<td>Published</td>
<td width="8"> </td>
<td align="left">Starts a published externally accessible section of a class</td>

</tr>

</tbody>

</table>

</td>

</tr>

</tbody>

</table>

</td>

</tr>

</tbody>

</table>
<div> </div>
<div>
<table style="width: 100%" border="0" cellspacing="0" cellpadding="6">
<tbody>
<tr>
<td class="h1" bgcolor="#bcf6bb">Example code : Illustrating basic and indexed properties</td>

</tr>
<tr bgcolor="#fafafa">
<td>// Full Unit code. // ----------------------------------------------------------- // You must store this code in a unit called Unit1 with a form // called Form1 that has an OnCreate event called FormCreate. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type   // Class with Indexed properties TRectangle = class private fArea : LongInt; fCoords : array of Longint; function GetCoord(Index: Integer): Longint; procedure SetCoord(Index: Integer; Value: Longint); public     Property Area : Longint read fArea;     Property Left : Longint Index 0 read GetCoord write SetCoord;     Property Top : Longint Index 1 read GetCoord write SetCoord;     Property Right : Longint Index 2 read GetCoord write SetCoord;     Property Bottom : Longint Index 3 read GetCoord write SetCoord;     Property Coords : Longint read GetCoord write SetCoord; constructor Create; end;   // The form class itself TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} // TRectangle property 'Getter' routine // TRectangle constructor constructor TRectangle.Create; begin   // Give default rectangle coordinates left := 0; right := 100; top := 0; bottom := 100; fArea := 100 * 100; end; function TRectangle.GetCoord(Index: Integer): Longint; begin   // Only allow valid index values if (Index >= 0) and (Index <= 3) then Result := fCoords else Result := -1; end; // TRectangle property 'Setter' routine procedure TRectangle.SetCoord(Index, Value: Integer); begin   // Only allow valid index values if (Index >= 0) and (Index <= 3) then begin     // Save the new value fCoords := Value;     // And recreate the rectangle area fArea := (right - left) * (bottom - top); end; end; // Main line code procedure TForm1.FormCreate(Sender: TObject); var myRect : TRectangle; i : Integer; begin   // Create my little rectangle with default coordinates myRect := TRectangle.Create;   // And set the corner coordinates myRect.Left := 22; // Left using direct method myRect.Top := 33; myRect.SetCoord(2,44); // Right using indexed method myRect.SetCoord(3,55);   // And ask for these values for i:= 0 to 3 do ShowMessageFmt('myRect coord %d = %d',);   // And show the rectangle area ShowMessageFmt('myRect area = %d',); end; end. </td>

</tr>
<tr bgcolor="#d2eccf">
<td align="right">Show full unit code</td>

</tr>
<tr bgcolor="#d2eccf">
<td>myRect coord 0 = 22 myRect coord 1 = 33 myRect coord 2 = 44 myRect coord 3 = 55 myRect area = 484</td>

</tr>

</tbody>

</table>

</div>
 

</div>
<div id="MySignature" role="contentinfo">
<div id="AllanboltSignature">
 <div>作者：疯狂Delphi</div>
 <div>出处：https://www.cnblogs.com/FKdelphi/</div>
 <div>本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利.</div>
</div>
<div class="div_masklayer" id="div_masklayer"></div>
<div class="div_popup" id="Div_popup">
欢迎关注我，一起进步！扫描下方二维码即可加我
<img class="img_zfb" id="img_zfb" width="150" src="https://images.cnblogs.com/cnblogs_com/FKdelphi/1101510/o_251208113944_QQ.png">
<img class="img_zfb" id="img_zfb" width="150" src="https://images.cnblogs.com/cnblogs_com/FKdelphi/1101510/o_251208115029_WX.png">
</div> 
来源：https://www.cnblogs.com/FKdelphi/p/10836623.html

頁: [1]

琼殿技术论坛's Archiver

教程-Delphi Property详解