Buscar por:

Inserir uma linha no meio do TStringGrid

Código

// by André Feltrin Baldessar

//

// A função abaixo insere uma linha num TStringGrid APÓS uma linha escolhida.

// 

// Uso: GridInsertRow(StrGrid,Linha)

// Onde: StrGrid = nome do componente TStringGrid no form.

// Onde: Linha = linha anterior

// 

// Exemplo: inserir uma linha após o cabeçalho do Grid, empurrando todos as outras para baixo: GridInsertRow(meustrgrid,1);

function GridInsertRow(StrGrid: TStringGrid; Linha:integer):integer;

Var Rown,Coln: Integer;

begin

  strgrid.RowCount:=strgrid.RowCount+1;

  if Linha<1 then Linha:=1

  else if Linha>strgrid.RowCount-1 then Linha:=strgrid.RowCount-1;

  if strgrid.RowCount-1 <> Linha then

  for Rown:=strgrid.RowCount-1 downto Linha do

      for Coln:=0 to strgrid.ColCount-1 do

         strgrid.Cells[Coln,Rown]:=strgrid.Cells[Coln,Rown-1];

  result:=Linha;

end;