Erro na Linha de Exclusão

[Arrasted 0]

Ola Pessoal to com o seguinte problema numa rotina de Exclusão, deem uma olhada, nao consigo achar o erro.

procedure TForm1.btnExcluirClick(Sender: TObject);begin  if messageBox(handle, 'Deseja realmente EXCLUIR o Registro',  mb_IconInformation + mb_YesNo) = mrYes Then  Table1.Deleteend;

Valeu...Érico

[Dopi 0]

O código aparenta estar correto...Qual é problema ? Há alguma msg de erro ? Qual o Banco de Dados usado ?

[Arrasted 0]

Daniel estou começando a programar no Delphi, to saindo do VB.

O código aparenta estar correto mesmo...

olha só [Error] UCadastro.pas(125): Incompatible types: 'Integer' and 'PAnsiChar' - Cara nao sei como determinar o Integer e o PAnsiChar no Delphi...Não sei como escrever...no vb seria fácil, apesar de detestar trabalhar com (Pchar no VB)

 

Abraço cara

[williandb 0]

Testei seu código aqui...faltou apenas um a passagem de um parâmetro que no código a baixoseria a string 'Titulo da mensagem'

procedure TForm1.btnExcluirClick(Sender: TObject);begin  if messageBox(handle, 'Deseja realmente EXCLUIR o Registro', 'Titulo mensagem',      mb_IconInformation + mb_YesNo) = mrYes Then      Table1.Deleteend;

[Dopi 0]

Um jeito mais "Delphi" de fazer Dialogs é usar a função MessageDlg, dai você não precisa usar pChar

 

Veja o exemplo do Help do Delphi.

procedure TForm1.Button1Click(Sender: TObject);begin  if MessageDlg('Welcome to my Delphi application.  Exit now?',    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then  begin    MessageDlg('Exiting the Delphi application.', mtInformation,      [mbOk], 0, mbOk);    Close;  end;end;

Muitos programadores não usam MessageDlg porque os botoes geralmente ficam em Ingles... mas isso é facilmente contornado Traduzindo-se as Strings da Unit Consts.pas do próprio Delphi...

[Arrasted 0]

Obrigado pessoal ....Já tinha conseguido..de qualquer Muito obrigado []'s para todos