Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by MaBuSE,
18. Mai 2005
Falls nur Zahlen vorkommen könnte man auch so eine Quick & Dirty Lösung verwenden.
function MyCompareStr(s1, s2: string):Integer;
begin
// Bedingung Rückgabewert
// S1 > S2 > 0
// S1 < S2 < 0
// S1 = S2 = 0
try
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by MaBuSE,
18. Mai 2005
In der oben zitierten Funktion findet das eigentliche Sortieren statt.
Wenn Du statt AnsiCompareStr nun eine eigene Funktion benutzt z.B. MyCompareStr, kannst du jede gewünschte Sortierung programmieren.
z.B.
function MyCompareStr(s1, s2: string):Integer;
begin
// Bedingung Rückgabewert
// S1 > S2 > 0
// S1 < S2 < 0