Delphi 系统[19]关键字和保留字 object - 对象

Delphi 系统[19]关键字和保留字  object - 对象

1、定义：

• object ：定义对象类型，或声明“对象函数”或“对象过程”。 定义对象类型是 Object Pascal 中的一个古老的功能，这个功能现在已经被 class 取代。

2、示例：

{Object用于声明一个对象, 这个对象可以是任意的, 并且向下兼容.Object只能被Object所继承. }
{声明对象的方法与声明类的方法是相同的. }
type
　objDemoA = object
　end; 
　objDemoB = object(objDemoA) 
　end; 


{ object 定义对象 MyObject 示例 } 
type 
  MyObject = object 
  private 
    FName: string; 
  protected 
  public 
    procedure ShowResult; 
    property Name: string read FName write FName; 
  end; 
 
{ 实现对象方法 } 
procedure MyObject.ShowResult; 
begin 
  ShowMessage('调用成功！'); 
end; 
 
{ 调用对象方法 } 
procedure TForm1.Button1Click(Sender: TObject); 
var 
   MyObj :MyObject; 
begin 
  MyObj.Name := 'Object 测试'; 
  ShowMessage(MyObj.Name); 
  MyObj.ShowResult; 
end; 
 


//Object关键字还用于声明动态函数或过程, 例如: 
type 
  { 该函数不能是独立的函数，必须是某个对象的成员 of Object } 
  TMyFun = function(I:Integer): Integer of object; 
  { 该过程不能是独立的过程，必须是某个对象的成员 of Object } 
  TMyProc = procedure(S: string) of object; 

　　

 

 

 

 

创建时间：2021.08.12　　更新时间：