本文整理自网络，侵删。
type
TStringGridRowDeletion = class helper for TStringGrid
public
procedure RemoveRows(RowIndex, RCount: Integer);
procedure Clear;
end;
{ TStringGridRowDeletion }
procedure TStringGridRowDeletion.Clear;
var
i: integer;
begin
for i := 0 to RowCount -1 do
RemoveRows(0, RowCount);
end;
procedure TStringGridRowDeletion.RemoveRows(RowIndex, RCount: Integer);
var
i: Integer;
begin
for i := RowIndex to RowCount - 1 do
Rows[i] := Rows[i + RCount];
RowCount := RowCount -RCount;
end;
var
myStringGrid: TStringGrid;
begin
...
myStringGrid.RemoveRows(0, 4);
...
end; 相关阅读 >>
Delphi 获取适合微信使用的当前日期，以int64表示，是当前时间和1970-01-01 00:00:00之间的秒差
Delphi tstreamreader tfile assignfile读取文本文件
更多相关阅读请进入《Delphi》频道 >>
