Reference the following code provided in the ElevateSoft Manual v4:

begin
  with MyTable do
  begin
    DatabaseName:='d:\temp';
    TableName:='customer';
    if Exists then
    OptimizeTable('',false);
  end;
end;

What code can be added to the above to indicate to an end user using my
program whether or not the Table has been successfully optimized?

Also, in using the RepairTable method programmatically, if the table to
be repaired is found to be corrupt, does DBISAM automatically generate
log messages for the repair status like that in using the utility?

What about coding something like this for the OptimizeTable method:

begin
    if MessageDlg('Optimize ''Clients''
Table?',mtConfirmation,[mbYes,mbNo],0)=
    mrYes then
    begin
      with dmInspectData.taClients do
      begin
        DatabaseName:='Inspect';
        TableName:='Clients';
        if Exists then
        begin
          if VerifyTable then
          begin
            try
              OptimizeTable('',False);
            finally
            ShowMessage('Table Optimization Successful');
            end;
          end
          else
            ShowMessage('Optimization Failed. Repair Table then          
Optimize');
        end
        else
        ShowMessage('Table ''Clients'' Not Found');
      end;
    end;
end;



Marty Potokar wrote:
> Reference the following code provided in the ElevateSoft Manual v4:
>
> begin
>   with MyTable do
>   begin
>     DatabaseName:='d:\temp';
>     TableName:='customer';
>     if Exists then
>     OptimizeTable('',false);
>   end;
> end;
>
> What code can be added to the above to indicate to an end user using my
> program whether or not the Table has been successfully optimized?
>
> Also, in using the RepairTable method programmatically, if the table to
> be repaired is found to be corrupt, does DBISAM automatically generate
> log messages for the repair status like that in using the utility?

Marty,

I would remove the try...finally because if you don't, then the message 'Table
Optimization Successful' will show up even if the OptimizeTable raises an exception.


--
Fernando Dias
[Team Elevate]