Ich habe es jetzt doch mit Generics probiert.
Aber bei dem Folgenden Code bekomme ich einen Fehler:
Delphi-Quellcode:
type
List<Vartype> = class
private
FArray: array of Vartype;
public
function IndexOf(Item: Vartype): integer;
end;
function List<Vartype>.IndexOf(Item: Vartype): integer;
var i: integer;
begin
for i := 0 to Length(FArray) - 1 do
begin
if Item = FArray[i] then //<- Hier kommt der Fehler: [DCC Fehler] ListUnit.pas (109): E2015
// Operator ist auf diesen Operandentyp nicht anwendbar
begin
Result := i;
Exit;
end;
end;
Result := -1;
end;
Wie soll ich sonst das Array mit dem Item vergleichen?