Contributor: HUTTEMAN
what you need to do is create a new TTable object inside of your procedure.
The following code will do what you need:
procedure TForm1.EmptyTable(const DbName, TbName: string);
begin
if MessageDlg('Empty ' + TbName + ' Table? Are you sure?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then begin
with TTable.Create(nil) do try
DatabaseName := DbName;
TableName := TbName;
repeat
try
EmptyTable;
ShowMessage(TbName + ' Table Empty!');
exit;
except
on EDatabaseError do begin
{ Ask if it is OK to retry }
if MessageDlg('EmptyTable failed',mtError, [mbAbort, mbRetry], 0)
mrRetry then begin
raise; { If not, reraise to abort }
end
{ Otherwise resume the repeat loop }
end
end;
until false;
finally
Free
end;
end;
end;