Preciso de uma ajuda de Vocês...

Cara deve ser algo assim ..



no botão deleta vc coloca isso mais ou menos assim


IF IBQcliente.RecordCount = 0 THEN
begin
ShowMessage(´Não ha registro´);
exit;
end
else
BEGIN
query.Close;
query.SQL.Clear;
query.SQL.Add(´DELETE FROM NomedaTabela´);
query.SQL.Add(´WHERE ChavePrimaria=:ChavePrimaria´);
query.ParamByName(´ChavePrimaria´).asstring:=Edit_ChavePrimaria.Text;
dm.query.ExecSQL;
dm.IBTransaction1.COMMIT;


cara é mais ou menos assim ..isso foi o que eu entendi ..falow

Cara,

Sua pergunta está Confusa.

Como que o usuario vai deletar um Registro se
a tabela está vazia ?

mas acho que e algo assim.
Oque vc pode fazer e ao abrir a tabela cheque
a qtd de registros

if componente.recordcount = 0 then
botaoexcluir.enabled := False;

falou
espero ter ajudado
wagnerps :?:

É assim, a tabela esta vazia e o usuario, ao tentar deletar, recebe uma menssagem de erro que aparece em uma janela padrão do Delphi6 que explica o erro em ingles, o que eu queria era fazer uma verificação que, quando o usuario apertar o botão de deletar na tabela vazia o erro fosse uma janela que eu fiz. Só que não consigo fazer a verificação. E esse código acima só funciona se ja foi feito o pack na tabela depois de haver deletado os itens.

Consegui fazer a verificação, é uma coisa bem simples, e para quem queria saber é assim:

If Tabela.IsEmpty then
ShowMessage(´Tabela Vazia!!!´);
Else
Tabela.Delete;