procedure TForm1.btnAddClick(Sender: TObject);
var
I: Integer;
begin
with StringGrid1 do begin
RowCount := RowCount + 1;
for I := RowCount - 1 downto Row + 1 do Rows[I] := Rows[I - 1];
Rows[Row].Clear;
end;
end;
var
I: Integer;
begin
with StringGrid1 do begin
RowCount := RowCount + 1;
for I := RowCount - 1 downto Row + 1 do Rows[I] := Rows[I - 1];
Rows[Row].Clear;
end;
end;
谢谢你的帮助,但是这段程序好象不行吗,我再试试,如果行,一定给分