Sortieren von Buchstaben in einer Listbox

[DeddyH]

Zitat:

Delphi-Quellcode:

var i, j: integer; Merke : string;
begin
   i:=2;
   while i < Laenge do
   begin
      i:=i+1; //i ist jetzt 3, ist das Absicht?
      Merke:= Zahl[i]; 
      j:= i;  //j ist jetzt auch 3
      //Man könnte die Buchstaben auch ohne Stringfunktionen direkt vergleichen
      while ((j > 1)and (ansicomparestr(Zahl[j-1], Merke)> 0 )) do  
      begin
        //Das Folgende ist kein Tausch!
        Zahl[j] := Zahl[j-1];  
        j := j-1;
      end;
      //Jetzt müssten die ersten beiden Buchstaben gleich sein (s.o.)
      //Erster Buchstabe bekommt jetzt den Wert des vormals 3.       
      Zahl[j] := Merke;
   end;