Der Compiler stört sich eindeutig an diesem Teil:
Delphi-Quellcode:
function tcl<TKey>.GetItem(Index: integer): TKey;
begin
result := inherited items[index];
end;
Wenn man die Zeile auskommentiert, ist auch der Fehler weg. Allerdings funktioniert
Delphi-Quellcode:
function tcl<TKey>.GetItem(Index: integer): TKey;
begin
result := inherited items[index] as TKey;
end;
leider auch nicht. Vielleicht ein Bug?
Ich frage mich allerdings auch, warum du nicht gleich die TObjectList<T: class> aus Generics.Collections verwendest.