Hauptproblem sind erstmal die Tyen ... beide Ordinal
aber da der Name in Private doch eher egal ist:
Delphi-Quellcode:
TMyClass = class(TObject)
private
function GetItemI(Index: Integer): TMyItemType;
function GetItemE(Index: TMyEnum): TMyItemType;
public
property Item[Intex: Integer]: TMyItemType read GetItemI;
property Item[Intex: TMyEnum]: TMyItemType read GetItemE;
end;
weiter bleibt dann aber noch das Problem mit "property Item", welche nicht unbedingt überladen werden können (abgesehn von Hawkeye219's Link)