Understanding Class Defination

[Uwe Raabe]

Zitat von himitsu:

Das ist wie eine "billige" Prozedur nur daß sie nicht irgendwo ungeliebt rumgammelt, sonder schön dort zugeordnet ist, wozu sie gehört.

Durch das virtual/override ist es eben keine "billige" Prozedur mehr. Damit lässt sich nämlich das interne Verhalten des TUIRibbonForm in der abgeleiteten Klasse nachträglich manipulieren, was mit einer "billigen" Prozedur eben nicht ginge. Es ist schon eher wie eine normale virtual/override Methode, aber sie steht eben bereits zur Verfügung, bevor die eigentliche Klasseninstanz erzeugt wird.

[himitsu]

Nja, wenn dich der Compiler zwingt es static zu machen, wenn man sich Getter und Setter für sein class property bastelt, dann bringt das auch nicht viel,
aber ansonsten hast du Recht.

Außerdem haben nicht-statische Klassenmethoden auch den versteckten Self -Parameter, in welchem der Typ drin steht, mit welchem diese Methode aufgerufen wurde.

[Sir Rufo]

Und das mit dem Self in der Klassenmethode ist auch gut so, denn dadurch geht das hier:

Delphi-Quellcode:

program dp_183894;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

type
  TFoo = class
  public
    class function Construct: TFoo;
  end;

  TBar = class( TFoo )

  end;

{ TFoo }

class function TFoo.Construct: TFoo;
begin
  Result := Self.Create;
end;

procedure Test;
var
  LFoo: TFoo;
begin
  LFoo := TBar.Construct;
  try
    Writeln( LFoo.ClassName );
  finally
    LFoo.Free;
  end;
end;

begin
  try
    Test;
  except
    on E: Exception do
      Writeln( E.ClassName, ': ', E.Message );
  end;
  ReadLn;

end.

TBar.Construct ruft die geerbte Klassenmethode von TFoo auf, da aber dort mit Self.Create die Instanz erzeugt wird, bekommen wir auch tatsächlich eine TBar Instanz zurück

[ATS3788]

Danke euch allen
Eine schöne Woche

Martin Michael