類方法調用

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;//類聲明  TMyClass = class  public    class procedure MyProc;  //類方式    constructor Create;      //Create 也是類方法  end;var  Form1: TForm1;implementation{$R *.dfm}{ TMyClass }constructor TMyClass.Create;begin  inherited;  MyProc;  //內部調用類方法end;class procedure TMyClass.MyProc;begin  ShowMessage('ok');  //類方法實現end;procedure TForm1.FormCreate(Sender: TObject);var  MyClass1: TMyClass;begin  TMyClass.MyProc;  //用類名調用類方法，顯示：ok  MyClass1 := TMyClass.Create;  //內部調用類方法，顯示：ok  MyClass1.MyProc;  //對象調用類方法，顯示：ok  MyClass1.Free;end;end.