Tagarray

[EWeiss]

Habe jetzt mal meine eigene Variante erstellt aber auch diese funktioniert nicht.
Hoffe das ist richtig so
Bereichsprüfung ist an Fehler gibt es keinen.

Delphi-Quellcode:

procedure BubbleSwap(var Value1, Value2: Integer);
var
  lTemp: Integer;

begin

  lTemp := Value1;
  Value1 := Value2;
  Value2 := lTemp;
end;

procedure BubbleSort(var zorder: array of Integer; var faceorder: array of Integer);
var
  IntI, IntK: Integer;
begin

  for IntI := Low(zorder) to (High(zorder) - 1) do
  begin
    for IntK := (IntI + 1) to High(zorder) do
    begin
       if zorder[IntI] > zorder[IntK] then
       begin
         BubbleSwap(zorder[IntI], zorder[IntK]);
         BubbleSwap(faceorder[IntI], faceorder[IntK]);
       end;
    end;
  end;
end;

gruss