procedure TForm1.DeleteButtonClick(Sender: TObject);
var i: integer;
begin
with wwdbgrid1, wwdbgrid1.datasource.dataset do begin
DisableControls; {Disable controls to improve performance}
for i:= 0 to SelectedList.Count-1 do begin
GotoBook(SelectedList.items[i]);
Freebook(SelectedList.items[i]);
Delete; { Delete Record }
end;
SelectedList.clear; { Clear selected record list }{ since they are all deleted }
EnableControls; { Re-enable controls }
end;
end;
var i: integer;
begin
with wwdbgrid1, wwdbgrid1.datasource.dataset do begin
DisableControls; {Disable controls to improve performance}
for i:= 0 to SelectedList.Count-1 do begin
GotoBook(SelectedList.items[i]);
Freebook(SelectedList.items[i]);
Delete; { Delete Record }
end;
SelectedList.clear; { Clear selected record list }{ since they are all deleted }
EnableControls; { Re-enable controls }
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货