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...