Mega Code Archive
Stringgrid satır silmek
<![CDATA[
//www.programlama.com dan alınmıştır.
{
Bu kod u kendinize ait bir Grid classı yaratıp eklerseniz ki ben o şekilde kullanıyorum. Satır silmeye elverişli bir grid e sahip olursunuz.
kullanmak için de
SGridSil ( 3,SringGrid1);
}
Procedure SGridSil (satir : Integer; Grid : TStringGrid);
var
i : Integer;
Begin
Grid.row := satir;
if (Grid.Row = Grid.RowCount -1) then
begin
// demekki son satır hedefleniyor
Grid.RowCount := Grid.RowCount-1;
end
else
begin
// son satirda degil ise
For i:= satir to Grid.RowCount-1 do
begin
// istenilen satırdan sonra gelen satirlar birer kaydırılıyor
Grid.Rows[i] := Grid.Rows[i+1] ;
end;
Grid.RowCount := Grid.RowCount - 1 ;
end;
End;
]]>