Keine Ahnung, ob ich mich jetzt blamiere
Nur mal so 'ne hingedaddelte Idee (ungetestet, nicht kompiliert, nur so mal eben hingehauen
)
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 := Low(zorder) to High(zorder) - 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;