델피의 클래스 이해(11) - 클래스에 깊이 들어가는 방법[5] - 정적 방법, 클래스 방법, 정적 클래스 방법

//        ,             ,           .


 
   




//                 



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  end;



{     :}

TMyClass = class(TObject)

  class procedure alert(s: string); {               class    }

end;

{

         private   protected  ;

           ;

            、           .

}





var

  Form1: TForm1;



implementation



{$R *.dfm}



{ TMyClass }

class procedure TMyClass.alert(s: string);

begin

  ShowMessage(s);

end;





{         }

procedure TForm1.Button1Click(Sender: TObject);

begin

  TMyClass.alert('  '); {  }

end;



{          }

procedure TForm1.Button2Click(Sender: TObject);

var

  MyClass: TMyClass;

begin

  MyClass := TMyClass.Create;

  MyClass.alert('  ');  {  }

  MyClass.Free;

end;



end.


 
   




//     



{    Delphi        ,    : 

     : class var

     : class const

     : class type

     : class property



                 ,          (private), 

        SetName          :

}

TMyClass = class(TObject)

  private

    class var FName: string;

    class procedure SetName(const Value: string); static; {           static    }

  published

  class property Name: string read FName write SetName;

end;