versuchs mal mit:
Delphi-Quellcode:
type
TPenalties = class(TObjectList)
private
function GetItems(Idx: Integer): TPenalty;
procedure SetItems(Idx: Integer; Value: TPenalty);
public
property Items[Idx: Integer]: TPenalty read GetItems write SetItems;
end;
...
function TPenalties.GetItems(Idx: Integer): TPenalty;
begin
Result := (inherited GetItems(Idx)) as TPenalty;
end;
procedure TPenalties.SetItems(Idx: Integer; Value: TPenalty);
begin
inherited SetItems(Idx, Value);
end;
ungetestet, sollte aber so gehen...
Edit: hm, irgendwie hab ich die letzten Beiträge nicht gesehen... sorry...