Home » Tipps & Tricks » Komponenten » TStringGrid » Zeilen in einem StringGrid tauschen

Zeilen in einem StringGrid tauschen

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.