Tagarray

[Delphi.Narium]

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;