Try não funciona no D7?

16/05/2003

1

Pessoal alguém sabe me dizer o que está errado neste código:

Begin
Try
dm.TblLocProf.close;
dm.TblLocProf.SQL.clear;
dm.TblLocProf.SQL.add(´SELECT * FROM mkprofessor WHERE cpf Like :cpf ´);
dm.TblLocProf.ParamByName(´cpf´).AsString:=EdCPF.Text;
DM.TblLocProf.Prepare;
dm.TblLocProf.open;
cpf:=DM.TblLocProfcpf.Value;
Except
If MessageDlg(´O CPF informado ainda não foi cadastrado no sistema!´+#13+´Deseja continuar e cadastrar este professor?´,mtInformation,[mbYes,mbNo],0)=mrYes Then
Begin
EdNome.Text:=´´;
EdNome.SetFocus;
End
Else
Begin
EdCPF.Text:=´´;
EdCPF.SetFocus;
End;
End;
End

Quando cai no bloco que deve executar o Try ele não faz nada, por que será?

Valeu

Angelo


Responder

Posts

16/05/2003

Carnette

Pessoal alguém sabe me dizer o que está errado neste código: Begin Try dm.TblLocProf.close; dm.TblLocProf.SQL.clear; dm.TblLocProf.SQL.add(´SELECT * FROM mkprofessor WHERE cpf Like :cpf ´); dm.TblLocProf.ParamByName(´cpf´).AsString:=EdCPF.Text; DM.TblLocProf.Prepare; dm.TblLocProf.open; cpf:=DM.TblLocProfcpf.Value; Except If MessageDlg(´O CPF informado ainda não foi cadastrado no sistema!´+#13+´Deseja continuar e cadastrar este professor?´,mtInformation,[mbYes,mbNo],0)=mrYes Then Begin EdNome.Text:=´´; EdNome.SetFocus; End Else Begin EdCPF.Text:=´´; EdCPF.SetFocus; End; End; End Quando cai no bloco que deve executar o Try ele não faz nada, por que será? Valeu Angelo



Para que serve o TRY ECCEPT ???


Amignho...QUAL é a EXCEÇÃO que está ocorrendo em seu código ??


NENHUMA...TRY com EXCEPT é para controlar ERROS no código ou no banco de dados que vc usa...aí sim vc trata tudo na clausula EXCEPT...

Seu código como é mostrado esta totalmente correto...Não vai causar enhum EXCEPT no seu programa...é por isto que não aparece a a mensagem...

O que vc está fazendo pode ser tratado com uma isntrução IF THEN simples ok.....

TRY com EXCEPT...é pra corrigir os PAUS no seu programa...ok


Responder

16/05/2003

Angelo

Obrigado Carnette, é por isso que não uncionou, he he :lol:

Angelo

:oops:


Responder