Bei Sortierung Komma zeichen ignorieren

[Uwe Raabe]

Mit einem halbwegs aktuellen Delphi kann man auch recht einfach Zahlen in einer Stringlist sortieren:

Delphi-Quellcode:

uses
  System.SysUtils,
  System.Classes;

function NumberCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := string.Compare(List[Index1], List[Index2], [coDigitAsNumbers]);
end;

procedure Main;
var
  lst: TStringList;
  I: Integer;
begin
  lst := TStringList.Create;
  try
    lst.CommaText := '5, 32, 2, 86';
    lst.CustomSort(NumberCompareStrings);
    Writeln(lst.CommaText); // => 2,5,32,86
  finally
    lst.Free;
  end;
end;

[Luckie]

Er nun wieder.

Aber wie und wo bekommt deine Sortierfunktion die Parameter übergeben?

[Schokohase]

Zitat von Luckie:

Er nun wieder.

Aber wie und wo bekommt deine Sortierfunktion die Parameter übergeben?

Das verrät dir ein Blick in die Dokumetation
System.Classes.TStringList.CustomSort und das bringt einen dann zu
System.Classes.TStringListSortCompare

[Luckie]

Danke. Aber beide deiner Links werden bei mir nicht gefunden: 404.

[haentschman]

Tipp mal TStringList.CustomSort in die Delphi Referenz ein...

[Luckie]

Habe ich dann auch gemacht.

[Schokohase]

Zitat von Luckie:

Danke. Aber beide deiner Links werden bei mir nicht gefunden: 404.

Links korrigiert

[mkinzler]

Zitat:

Aber wie und wo bekommt deine Sortierfunktion die Parameter übergeben?

Ist ja eigentlich eine Vergleichsfunktion, welche von der Listkomponentenklasse während des Sortiervorganges mehrfach ( beim Vergleich 2er Elemente der Liste) aufgerufen wird.

[DelphiDustin]

Hallo Ich bins nochmal,

also ich habe es jetzt hinbekommen dass 4 Zahlen aus einem edit feld in einer listbox angegeben werden aber ich hab den soritierungs fehler das immer nur nach der ersten zahl sortiert wird heißt

24
5
67
9
z.B es soll aber natürlich

5
9
24
67

dort stehen hat jemand eine gute methode für mich das leicht zu lösen?

[Uwe Raabe]

Dann zeig doch erst mal wie du das bisher machst.