Stringgrid Spalten in Zeilen tauschen

[p80286]

Wenn ich das Problem richtig verstanden habe sollte das hier weiter hefen:

Delphi-Quellcode:

var
  x,y : integer;
begin
  { dient nur zum füllen }
  y:=0;
  for x:=0 to 5 do
    stringgrid1.Cells[y,x]:=inttohex(x,2);
  y:=1;
  for x:=0 to 5 do
    stringgrid1.Cells[y,x]:=char(x+32);
  stringgrid1.rowcount:=6; {x+1}
  stringgrid1.ColCount:=2; {y+1}
{--------------------------------------}

  for x:=0 to stringgrid1.RowCount-1 do
    for y:=0 to stringgrid1.ColCount-1 do
      stringgrid2.Cells[x,y]:=stringgrid1.Cells[y,x];

end;

Gruß
K-H