DruckenMister WongFacebook

Zeilen in einem StringGrid tauschen

System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

Folgende Prozedur erwartet drei Parameter, die den beiden zu tauschenden Zeilennummern entsprechen. Die Zählung beginnt bei 0.


procedure ExchangeStringGridRows(const AGrid: TStringGrid; Row1, Row2: Integer);
var
  Temp: TStrings;
begin
  Temp:=TStringList.Create;
  try
    Temp.Assign(AGrid.Rows[Row1]);
    AGrid.Rows[Row1].Assign(AGrid.Rows[Row2]);
    AGrid.Rows[Row2].Assign(Temp);
  finally
    Temp.Free;
  end;
end;
 

Evtl. vorhandene Objekte werden ebenfalls getauscht.