Wie bekomm ich das mit dem sortieren hin?

[Perlsau]

Wie wär's mit dem Property Sorted? Listbox.Sorted auf True setzen könnte eventuell ganz nützlich sein

[nahpets]

Zitat von Perlsau:

Wie wär's mit dem Property Sorted? Listbox.Sorted auf True setzen könnte eventuell ganz nützlich sein

Prinzipiell ja, da aber Zahlen als Strings gespeichert werden, wird das keine numerische Sortierung werden.
Das sieht dann eher so aus:

Code:

1
10
100
2
20
200
...

Der Teil müsste dann verändert werden:

Delphi-Quellcode:

for i:=1 to length(s) do
  begin
     x:=ord(s[i]);
     begin
        If (x>=65) and (x<=90) Then       listbox1.items.Add(s[i]);
     end;
  end;

[frankyboy1974]

hallo,

ich würde das Problem mit einer Schleife lösen. Du ermittelt das erste Zeichen deiner Zeichenkette, erhöhst deinen Zähler um eins und entfernst anschliessend alle Vorkommen des ersten Zeichen aus deiner Zeichenkette. Dies wiederholst du solange bis die Zeichenkette leer ist.

Delphi-Quellcode:

zaehler:=0;
While zeichenkette<>'' do begin
h:=midstr(zeichenkette,1,1);
inc(zaehler);
zeichenkette:=stringreplace(zeichenkette,h,'', [rfReplaceAll, rfIgnoreCase]);
end;

Quellcode Freihand programmiert, nicht getestet.


mfg

[Perlsau]

Zitat von nahpets:

Prinzipiell ja, da aber Zahlen als Strings gespeichert werden, wird das keine numerische Sortierung werden.

Nichts einfacher als das: Fülle die Strings vorne mit Nullen oder Leerzeichen auf, so daß alle Strings gleich lang sind:

Delphi-Quellcode:

// ---------- Fügt vor den String Zeile das Zeichen so oft an, bis die Länge Zahl erreicht ist ----------
Function Plus_String(Zeile: String; Zeichen: Char; Zahl: Integer): String;
Var
  Aus : String;

begin
  If Length(Zeile) > Zahl - 1 Then
     Result := Zeile          Else
     Begin
       Aus := Zeile;
       Repeat
         Aus := Zeichen + Aus;
       Until Length(Aus) = Zahl;
       Result := Aus;
     End;
end;

[Luckie]

Wie wäre es mit einem simplen Bubble Sort?

[HolgerX]

Hmm...

Gibt es da bei dei TStringList nicht CustomSort?

Dort in der Vergleichsroutine einfach mit StrToInt arbeiten und dann direkt die Zahlenwerte vergleichen, statt die Strings...