Ein Denkfehler ligt erstmal darin, daß du wohl Spalten und Zeilen verwechselt hast.
Zitat:
Delphi-Quellcode:
TCols = array of string;
TRows = array of TCols;
Delphi-Quellcode:
TRows = array of {TCols} array of string;
^ r ^ c
entspricht also Rows2[r,c]
Delphi-Quellcode:
For i := 0 to High(Rows2) - 1 do
For k := i + 1 to High(Rows2) do
If (Rows2[i,0] > Rows2[k,0]) or ((Rows2[i,0] = Rows2[k,0])
and (Rows2[i,1] > Rows2[k,1])) Then Begin
Cols6 := Rows2[i];
Rows2[i] := Rows2[k];
Rows2[k] := Cols6;
End;
FillGrid(SG2, Cols2, Rows2);