Tip / Delphi
Metodi statici in Delphi: forse non tutti sanno che ...
Abstract
Anche in object pascal esistono i metodi statici
Data di stesura: 14/02/2006
Data di pubblicazione:
14/02/2006
Ultima modifica: 04/04/2006
di
Gianantonio Dehò
Discuti sul forum
Stampa
Ebbene sì: anche le nostre fantastiche classi delphi possono essere corredate di metodi statici.
Il loro nome è
class methods e la loro dichiarazione deve necessaramente cominciare con la parola riservata
"class".
Come sempre ottimamente documentato, consultate l'help digitando le keywords "class methods".
Un piccolo esempio di factory per voi.
type TStaticMethodsInfo = (smValue1, smValue2, smValue3);
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
type
TStaticMethods = class (TObject)
public
class procedure setAvailable(var Operation: boolean);
class function GetInstance(description: TStaticMethodsInfo): TStaticMethods;
end;
var
Form1: TForm1;
implementation
{$R *.xfm}
{ TStaticMethods }
class function TStaticMethods.GetInstance(description: TStaticMethodsInfo): TStaticMethods;
begin
case description of
smValue1: result := TStaticMethodsDescendant.create();
smValue2: result := TStaticMethodsOtherDescendant.create();
end;
end;
class function TStaticMethods.isAvailable(var Operation: Boolean);
begin
Operation := (SomeCondition = true);
end;
Informazioni sull'autore
Gianantonio Dehò, lavora da 8 anni nel campo dell'IT. Recentemente ha messo a frutto l'esperienza maturata nell'ambito dei sistemi qualitá, ideando e realizzando precISO®, software per la gestione e manutenzione dei sistemi qualitá secondo ISO9000, distribuito dall'omonima societá.
È possibile consultare l'elenco degli articoli scritti da Gianantonio Dehò.
Altri articoli sul tema Tip / Delphi.