Self nicht definiert (Static Class Method)

[himitsu]

Zitat von nicodex:

Self referenziert dann die Klasse.

Ja genau,

aber wie kann ich dann "schön" darauf zugreifen, ohne dan Klassennamen nun "Hartzucoden"?

Denn sowas geht na nun nicht

Delphi-Quellcode:

type
  TFoo = class
  strict private
    class var FValue: string;
  public
    class function Bar(): string; static;
  end;

class function TFoo.Bar(): string;
begin
  Result := Self.ClassName;
end;