Mega Code Archive

 

Categories / Delphi / VCL

 

Tstringgrid satirinin en alta gönderilmesi

Bu fonksiyon, "RowNumber" parametresi ile belirtilen satiri, StringGrid bileseninin en son satirina gönderir. procedure GridMoveRowToBottom(RowNumber : Integer; Grid : TStringGrid); Var i : Integer; Begin Grid.Row := RowNumber; Grid.RowCount := Grid.RowCount + 1; Grid.Rows[Grid.RowCount-1] := Grid.Rows[Grid.Row]; For i := RowNumber+1 To Grid.RowCount -1 Do Begin Grid.Rows[i-1] := Grid.Rows[i]; End; Grid.RowCount := Grid.RowCount - 1; End;