Entschuldigt die späte Antwort, ich war ein paar Tage nicht da.
Zu euren Antworten:
@Uwe:
Delphi-Quellcode:
type
TSortDirection = (sdGridAscending, sdGridDescending);
Soll nur die Sortierrichtung angeben.
property CustomSortCompareFunction[Index : Longint] : TSortCompare read GetCustomSortCompareFunction write SetCustomSortCompareFunction;
Hier sollen die Vergleichsfunktionen für die einzelnen Spalten angegeben werden können.
@shmia und himitsu:
Es geht mir ja gerade darum die Vergleichsfunktion in eine Klasse zu kapseln, ein
of object;
funktioniert dann aber nicht.
nochmal zur Erklärung:
Delphi-Quellcode:
TWertlisteKlasse = class (...)
function CustomSortCompareFunction(const Str1, Str2: String; SortDirection : TSortDirection): integer of object;
end;
In dieser Klasse (von TList) sind mehrere (
DB)-Spalten enthalten. Nun wollte ich die Vergleichsfunktion für eine Spalte an das Objekt binden, da es was mit den Daten zu tun hat und alleine keinen weiteren Sinn macht. Das ist dann auch wirklich OO-Programmierung.