class methode an Klassenreferenz aufrufen

[TurboMagic]

Ihr könnt ja gerne grillen, ich hab' dafür den Bug gefixt.
Himitsu's Hinweis war richtig! Das hatte ich doch glatt übersehen.

Ist halt die Frage ob der Compiler das erkennen könnte/müsste.

[Uwe Raabe]

Zitat von TurboMagic:

Ist halt die Frage ob der Compiler das erkennen könnte/müsste.

Bei einem Hardcast ist der Compilers blind - soll er ja dann auch sein.

[himitsu]

Hier könnte er aber "mindestens" eine Warnung rausbringen, wenn nicht gar direkt einen Fehler werfen, selbst bei einem harten Cast, da sowas eh nie funktionieren kann.

(welches man über einen Cast mit untypisiertem Pointer umgehen könnte, wenn man wirklich mal sowas machen wöllte)


casts von/zu/zwischen Object/Class/Interface/String können ja nie funktionieren.
Vor einer Weile hatten wir den Fall, dass Jemand ein "TEdit" in einen Strind casten wollte (... := string(Edit1); ), um den Text zu bekommen, was natürlich knallte. (OK, hier hätte der Compiler "schlau" sein und .ToString nutzen können, was aber auch schwachsinn wäre, weil es fast niegendwo implementiert ist und TObject nur den Klassennamen rausgibt)

[Uwe Raabe]

Zitat von himitsu:

Hier könnte er aber "mindestens" eine Warnung rausbringen, wenn nicht gar direkt einen Fehler werfen, selbst bei einem harten Cast, da sowas eh nie funktionieren kann.

Kannst du ja haben. Unter Hinweise und Warnungen: Unsichere Typumwandlung.

[Stevie]

Du musst auch eine Klassenreferenz auf eine andere Klassenreferenz casten

Delphi-Quellcode:

type
  TDECHashClass = class of TDECHash;
  TDECPasswordHashClass = class of TDECPasswordHash;

  TDECHash = class
  public
    class function IsPasswordHash: Boolean;
  end;

  TDECPasswordHash = class(TDECHash)
  public
    class function GetMaxSaltLength:UInt16; virtual; abstract;
  end;

  THash_BCrypt = class(TDECPasswordHash)
  public
    class function GetMaxSaltLength:UInt16; override;
  end;

[..]

var
  Hash: TDECHashClass;
begin
  // beschaffe die Klassenreferenz der ausgewählten Klasse aus einer
  // Liste aller registrierten Klassen
  Hash := ClassRegistration.GetHashClass('BCrypt');

  // Hier knallt es:
  if Hash.IsPasswordHash and (TDECPasswordHashClass(Hash).GetMaxSaltLength > 0) then