类的类方法

unit  Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1  =   class (TForm)
    Button1: TButton;
     procedure  Button1Click(Sender: TObject);
   private
     {  Private declarations  }
   public
     {  Public declarations  }
   end ;

var
  Form1: TForm1;

implementation

{ $R *.dfm }
type
  TBoolean  =    class
     class   function  BooleanToString(AValue: Boolean):  string ;
   end ;

procedure  TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg(TBoolean.BooleanToString(Button1.Enabled), mtInformation, [mbOK],  0 );
end ;

{  TBoolean  }

class   function  TBoolean.BooleanToString(AValue: Boolean):  string ;
const
  Bools:  array [Boolean]  of   string   =  ( ' False ' ,  ' True ' );
begin
  Result : =  Bools[AValue];
end ;

end .