Klasse mit Konstanten ?

[Kroko1999]

Mein Vorschlag:

Delphi-Quellcode:

type
  TRune = class
      constructor Create (ARarity: Integer);
    private
      FRarity: Integer;
      FColor: TColor;
    public
      property Color: TColor read FColor;
      property Rarity: Integer read FRarity;
  end;

constructor TRune.Create (ARarity: Integer);
begin
  FRarity := ARarity;
  case FRarity of
    0..3: FColor := clGreen;
    //etc.
  end;
end;

und beim Create übergibts Du die Rarity.