Ir al contenido


Foto

[TRUCO DELPHI] Mover la Fila de un StringGrid al final.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 28 noviembre 2016 - 02:57

[TRUCO DELPHI] Mover la Fila de un StringGrid al final.


delphi
  1. procedure GridMoveRowToBottom(RowNumber : Integer; Grid : TStringGrid);
  2. Var
  3. i : Integer;
  4. Begin
  5. Grid.Row := RowNumber;
  6. Grid.RowCount := Grid.RowCount + 1;
  7. Grid.Rows[Grid.RowCount-1] := Grid.Rows[Grid.Row];
  8. For i := RowNumber+1 To Grid.RowCount -1 Do
  9. Begin
  10. Grid.Rows[i-1] := Grid.Rows[i];
  11. End;
  12. Grid.RowCount := Grid.RowCount - 1;
  13. End;

Saludos!


  • 1




IP.Board spam blocked by CleanTalk.