Hallo,
hier ein eine weitere Version. Sie basiert auf Jürgens Idee, arbeitet aber ohne Zwischenspeicher:
Delphi-Quellcode:
procedure FlipGrid (aGrid: TStringGrid);
var
k, iCol : Integer;
begin
with aGrid do
for k := 0 to Pred((RowCount - FixedRows) div 2) do
for iCol := FixedCols to Pred(ColCount) do
Cols[iCol].Exchange (FixedCols + k, Pred(RowCount) - k);
end;
Gruß Hawkeye