Propriedade Aborted

Sumário - Índice

Exemplo de uso

procedure TForm1.Button1Click(Sender: TObject);
var
Success: Boolean;
begin
EvDBUtil1.DatabaseNames := 'DBAlias;SisAlias';
EvDBUtil1.TableNames.Clear;
EvDBUtil1.TableNames.Add('clientes.db');

case RadioGroup1.ItemIndex of
    0: Success := EvDBUtil1.Reindex;
    1: Success := EvDBUtil1.Pack;
end;

if Success then
    ShowMessage('Processamento efetuado com sucesso.')
else if EvDBUtil1.Aborted then
    ShowMessage('Processamento abortado pelo usuário.')
else
    ShowMessage('Um erro ocorreu durante o processamento.');
end;