mehrdimensionalen Array sortieren ???

[JasonDX]

schreib sowas:

Delphi-Quellcode:

procedure TForm1.btn_sortby_heightClick(Sender: TObject);
var
  i,k,j,s:integer; //s ist die Spalte, nach der sortiert werden soll
  buff: string;
begin
//Bubblesort starts here
  For i:= high(myRecord[0]) downto low(myRecord[0]) Do
    For j:= low(myRecord[0]) To i Do
      If (myRecord[s, j-1] > myRecord[s, j]) Then
      Begin
        For k := low(myRecord) To high(myRecord) Do
        Begin
          buff := myRecord[k, j-1];
          myRecord[k, j-1] := myRecord[k, j];
          myRecord[k, j] := buff;
        end;
      end;
end;

Müsste eigentlich klappen.

Edit: Fehler ausgebessert