请问如何遍历StringGrid某一列的值,符合条件的删除所在行?
比如一个StringGrid,遍历第三列的值
如果等于6就删除该行?
[解决办法]
了判了
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
with stringgrid1 do
begin
for i:=RowCount-1 downto 0 do
begin
if Cells[2,i]='6' then
begin
for j:=i to RowCount-1 do
Rows[j]:=Rows[j+1];
RowCount:=RowCount-1;
end;
end;
end;
end;