So jetzt hab ichs.
So geht des CustomSort:
Delphi-Quellcode:
type
TNonFoodComparer = class (TComparer<TNonFood>)
function Compare(const Left, Right: TNonFood): Integer; override;
end;
...
{ TNonFoodComparer }
function TNonFoodComparer.Compare(const Left, Right: TNonFood): Integer;
begin
case NonFoodArtikelSortieren of
Artikelname: Result := CompareText(Left.Artikelname, Right.Artikelname);
Menge: Result := CompareValue(Left.Menge, Right.Menge);
Preis: Result := CompareValue(Left.Preis, Right.Preis);
Kosten: Result := CompareValue(Left.Kosten, Right.Kosten);
end
end;
...
{ TNonFoodList }
procedure TNonFoodList.Sortieren(SortBy: TNonFoodArtikelEnum);
begin
NonFoodArtikelSortieren := SortBy;
Self.Sort(TNonFoodComparer.Default);
end;
Aber die Probleme gehen weiter...
Ich habe versucht den Bug den himitsu
hier beschrieben hat zu beheben.
Delphi-Quellcode:
constructor TNonFoodList.Create(const AComparer: IComparer<T>;
AOwnsObjects: Boolean);
begin
inherited Create(AComparer, AOwnsObjects);
end;
Hier hab ich nun Undeklarierter Bezeichner: 'T'
so langsam nervts mich....