Bei Sortierung Komma zeichen ignorieren

[Der schöne Günther]

Zitat von DelphiDustin:

Das würde ich vlt hinbekommen aber es soll hat nur in einem edit feld stehen.

Wäre doch trotzdem schon einmal besser als nichts, oder? Weil da hättest du dich zwangsläufig schon einmal damit befassen müssen wie man den Inhalt des Edit-Felds (String) in eine Zahl umwandelt. Also das was dir der nette Schokohase schon fertig in seinem Quelltext-Schnippsel zeigt

[Luckie]

Ich würde die Kommata mit dem folgendem Leerzeichen durch einen Zeilenumnruch #13#10 ersetzen, das Ergebnis in eine Stringlist packen und diese mit Bubblesort numerisch sortieren.

[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...

[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?