Stringgrid Spalten in Zeilen tauschen

[fl63]

Manchmal ist man wirklich

Anbei meine Lösung verwendet wurde ein Jedi Stringgrid

Delphi-Quellcode:

procedure TForm1.einfuegenClick(Sender: TObject);
var i,j,Zeile,Spalte :integer;
begin
 begin
   Spalte := 0;
 For j := 0 to SG1.RowCount-1 do
   begin
   SG2.Cells[Spalte,1] := SG1.Cells[1,j];
   Spalte := Spalte+1;
   end;
 end;
 SG2.InsertRow(1);
end;