Klasse mit Konstanten ?

[tigerman33]

Dann würd ich aber nicht auf Classname zugreifen, sondern eher mit dem is Operator prüfen.

Delphi-Quellcode:

function TRune.GetRarity : Integer;
begin
  Result := -1;
  if self is TRune1 then begin
    Result := 300;
    exit;
  end;
  if self is TRune2 then begin
    Result := 400;
    exit;
  end; 
end;

PS: Was ich gepostet hab ist trotzdem schneller