O que há de errado com este codigo???
Olá galera estou com um peque problema , tão pequeno que chega ser engraçado mas eu me esqueci como faz. vamos lá.
Tenho um toolbutton na minha aplicaçao que é um botão de exclusão de registros da tabela e estou usando o seguinte codigo:
:oops: [color=red:7e35039fa1]if application.messagebox(´ Deseja Realmente Excluir o Registro?´,´PERGUNTA´,
mb_YESNO+MB_ICONQUESTION )=IDYES THEN
tblcad.delete;
SHOWMESSAGE (´Registro excluido´);[/color:7e35039fa1]
o prblema e que quando clico nele e escolho não excluir o sistema me retorna a mesagem de registro excluido quando deveria me retorna apenas se clicasse em sim. :oops:
Tenho um toolbutton na minha aplicaçao que é um botão de exclusão de registros da tabela e estou usando o seguinte codigo:
:oops: [color=red:7e35039fa1]if application.messagebox(´ Deseja Realmente Excluir o Registro?´,´PERGUNTA´,
mb_YESNO+MB_ICONQUESTION )=IDYES THEN
tblcad.delete;
SHOWMESSAGE (´Registro excluido´);[/color:7e35039fa1]
o prblema e que quando clico nele e escolho não excluir o sistema me retorna a mesagem de registro excluido quando deveria me retorna apenas se clicasse em sim. :oops:
Andy
Curtidas 0
Respostas
Obubiba
13/07/2003
Experimente depurar este trecho do código, e ver onde o compilador está passando.
GOSTEI 0
Roger_malk
13/07/2003
Ola Andy
-----------------------------------------------------------------
if application.messagebox(´ Deseja Realmente Excluir o Registro?´,´PERGUNTA´,
mb_YESNO+MB_ICONQUESTION )=IDYES THEN
(*-------Ponha aqui o begin para que ele execute tudo-----*)
BEGIN
(*-----------------------------------------------------------------*)
tblcad.delete;
SHOWMESSAGE (´Registro excluido´);
(*----------------- Agora termine ------------------------------*)
END;
(*-----------------------------------------------------------------*)
Espero ter ajudado.......
roger_malk
-----------------------------------------------------------------
if application.messagebox(´ Deseja Realmente Excluir o Registro?´,´PERGUNTA´,
mb_YESNO+MB_ICONQUESTION )=IDYES THEN
(*-------Ponha aqui o begin para que ele execute tudo-----*)
BEGIN
(*-----------------------------------------------------------------*)
tblcad.delete;
SHOWMESSAGE (´Registro excluido´);
(*----------------- Agora termine ------------------------------*)
END;
(*-----------------------------------------------------------------*)
Espero ter ajudado.......
roger_malk
GOSTEI 0
Andy
13/07/2003
:wink:
Valeu pessoa cs são d+++++++
Andy
Valeu pessoa cs são d+++++++
Andy
GOSTEI 0
Anderson_blumenau
13/07/2003
Este é um erro muito comum na ora de usar [b:05158a9754]if[/b:05158a9754]
lembre-se que depois do [b:05158a9754]THEN[/b:05158a9754] se voce nao colocar o [b:05158a9754]Begin[/b:05158a9754]
o if vai valer apenas para a primeira linha de codigo depois do then
ex:
[b:05158a9754]if[/b:05158a9754] condicao [b:05158a9754]then[/b:05158a9754]
este codigo faz parte dessa condicao if;
este codigo nao faz parte da condicao if;
ex2
[b:05158a9754]if[/b:05158a9754] condicao [b:05158a9754]then[/b:05158a9754]
[b:05158a9754]begin[/b:05158a9754]
este codigo faz parte desta condicao if;
este codigo faz parte desta conicao if;
[b:05158a9754]end[/b:05158a9754]
lembre-se que depois do [b:05158a9754]THEN[/b:05158a9754] se voce nao colocar o [b:05158a9754]Begin[/b:05158a9754]
o if vai valer apenas para a primeira linha de codigo depois do then
ex:
[b:05158a9754]if[/b:05158a9754] condicao [b:05158a9754]then[/b:05158a9754]
este codigo faz parte dessa condicao if;
este codigo nao faz parte da condicao if;
ex2
[b:05158a9754]if[/b:05158a9754] condicao [b:05158a9754]then[/b:05158a9754]
[b:05158a9754]begin[/b:05158a9754]
este codigo faz parte desta condicao if;
este codigo faz parte desta conicao if;
[b:05158a9754]end[/b:05158a9754]
GOSTEI 0
Glaubergs
13/07/2003
Este tipo de ´probleminha´ é terrível por que a programação não está errada, mas desta forma o Delphi interpreta de outra forma ... É como eu digo quando esses problemas acontecem comigo:
´Veja o Delphi. Sinta o Delphi. Seja o Delphi.´
Hehe, eu recomendo, ás vezes dá certo, rs ...
´Veja o Delphi. Sinta o Delphi. Seja o Delphi.´
Hehe, eu recomendo, ás vezes dá certo, rs ...
GOSTEI 0