Evento OnError - Exemplo

Sumário - Índice

Exemplo de uso

procedure TForm1.BatchTable1Error(Sender: TObject; Error: TEvBatchError);
var
S: string;
begin
case Error of
    beOpenSource: S := 'Não foi possível abrir a tabela.';
    beOverwrite: S := 'O arquivo de destino já existe e não pode ser sobrescrito.';
    beCreateFile: S := 'O arquivo de destino não pode ser criado.';
    beOpenFile: S := 'O arquivo de importação não pode ser aberto.';
    beAppendReg: S := 'Erro ao adicionar registros na tabela.';
    beWriteFile: S := 'Erro ao gravar no arquivo de destino.';
end;
ShowMessage(S);
end;