Klasse mit Konstanten ?

[Neutral General]

Delphi-Quellcode:

type TRune = class
function GetRarity : Integer;
end;

type TRune1 = class(TRune)
end;
type TRune2 = class(TRune)
end;


function TRune.GetRarity : Integer;
begin
  if Classname = 'TRune1' then Rarity := 300; // Ka ob die Eigenschaft jetzt Classname heißt..
  if Classname = 'TRune2' then Rarity := 400;
  ...
end;

Würde das so etwa gehen ?
EDIT : Ich glaube das wäre echtes OOP o.O sowas hab ich ja noch nie gemacht

@Speedmaster : Ist aber zum Glück nur 2D