Klasse mit Konstanten ?

[Neutral General]

Zitat von BlackJack:

nein, wenn dann so:

Delphi-Quellcode:

type TRune = class
function GetRarity : Integer; virtual; abstract;
end;

type TRune1 = class(TRune)
function GetRarity : Integer; override;
end;
type TRune2 = class(TRune)
function GetRarity : Integer; override;
end;


function TRune1.GetRarity : Integer;
begin
  Result := 300;
end;
function TRune2.GetRarity : Integer;
begin
  Result := 400;
end;

musst du halt nur für jede klasse machen, ich weiss ja nicht ob es das so bringt.

p.s.: warum gibt es nicht sowas wie property Value: Integer read 1234; , das wäre doch mal praktisch

wenn dann eher so

Delphi-Quellcode:

type
TRune = class
public
function GetRarity : Integer;
end;

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


function TRune.GetRarity : Integer;
begin
  Result := -1;
  if Classname = 'TRune1' then Result := 300;
  if Classname = 'TRune2' then Result := 400;
end;

so find ich praktischer...

@ Tigerman33 : ja stimmt schon... ich glaube ich mache es so wie da oben...