在學習Delphi時常有些心得,在此寫出來,供大家參考,如有錯誤或不妥之處還望指教.

    使用過c++的人都知道在c++的類中有靜態屬性及靜態方法,為程式設計帶來很多方便.那麼在Delphi中靜態屬性及靜態方法是怎麼實現的呢?請看下面的例項:

unit Unit2;

interface

type
  TMyClass = Class
  public
    {靜態過程:設定靜態屬性的值}
    class procedure SetStaticMemberValue(AString: string);
    {靜態函式:讀取靜態屬性的值}
    class function GetStaticMemberValue: string;
  end;

implementation
{在此宣告靜態屬性,這一點與c++有很大的不同}
var
  AStaticMember: string;

class function TMyClass.GetStaticMemberValue: string;
begin
  Result := AStaticMember;
end;

class procedure TMyClass.SetStaticMemberValue(AString: string);
begin
  AStaticMember := AString;
end;

end.

    那麼在TMyClass中宣告的屬性及方法是否是靜態屬性或靜態方法呢?請看下面的例項:

...
uses unit2
...

procedure TForm1.Button2Click(Sender: TObject);
begin
  {不需宣告TMyClass的例項,可直接設定及讀取靜態屬性的值}
  TMyClass.SetStaticMemberValue('MyClass');
  showmessage(TMyClass.GetStaticMemberValue);
end;