Delphi 系統[19]關鍵字和保留字 object - 物件

1、定義：

• object ：定義物件型別，或宣告“物件函式”或“物件過程”。定義物件型別是ObjectPascal中的一個古老的功能，這個功能現在已經被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　　更新時間：