Tagarray

[EWeiss]

Irgendwie ist die Sortierung noch nicht in Ordnung.
Mit dem Bubblesort geht es nicht auch nicht nach meiner Änderung.

Delphi-Quellcode:

procedure BubbleSort(var zorder: array of Integer; var faceorder: array of Integer);
var
   i : Integer;
   tempZ : Integer;
   tempFace : Integer;
   done : Boolean;
begin
   repeat
     done := True;
     for i := 10 downto 1 do 
     begin
       if zorder[i] > zorder[i + 1] then
       begin
         tempZ := zorder[i];
         tempFace := faceorder[i];
         zorder[i] := zorder[i + 1];
         faceorder[i] := faceorder[i + 1];
         zorder[i + 1] := tempZ;
         faceorder[i + 1] := tempFace;
         done := False;
       end;
     end;
   until done;
end;

Es drehen sich alle im Kreis aber der Visuelle Effekt ist der einer Schlange.
Das letzte Icon ist das grüne Index 10 die anderen setzen sich jetzt alle dahinter.

Bubblesort macht eigentlich nichts, wenn ich sie nicht verwende habe ich das gleiche verhalten.

gruss