＋设为首页 ＋添加到收藏夹
如果我知道stringgrid中的一个行号 i:=sGrid.row
那我怎么删除第i行?
把删除行后的内容填上来，然后把stringgrid的行数减1
for l:=i to stringgrid1.rowcount-2 do
for k:=1 to stringgrid1.colcount-2 do
stringgrid1.cell[k,l]:=stringgrid1.cell[k,i+1];
stringgrid1.rowcount:=stringgrid1.rowcount-1;
用dtqyhq(鸿浪）的方法吧
for vy:=stringgrid1.row to stringgrid1.rowcount-1 do
begin
for vx:=0 to stringgrid1.colcount-2 do
begin
stringgrid1.cells[vx,vy]:=stringgrid1.cells[vx,vy+1];
end;
end;
stringgrid1.rowcount:=stringgrid1.rowcount-1;
type
TMyGrid=Class(TStringGrid);
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
TMyGrid(StringGrid1).DeleteRow(0);
end;
