Não Apresentar a MSG de error no except
02/07/2008
0
aguardo a ajuda de vcs;
att
Wagner Sena
Cd.wagner.sena
Posts
02/07/2008
Edilcimar
tenta fazer algo
except
label1.caption :-= ´mensagem de erro´
end
02/07/2008
Comodelphi
try // tenta fazer algo except on E: Exception do label1.caption := E.Message end;
abcs.
02/07/2008
Cd.wagner.sena
segue abaixo o codigo q fiz
begin try lblcontador.Visible:= True; lblcontador.Caption:= ´Aguarde... Conectando a Base de Dados...´; Application.ProcessMessages; ZConnection.Connected:= True; except On E: Exception Do begin lblErro.Caption:= E.Message; ReiniciaProcesso; end; end; end;
02/07/2008
Cd.wagner.sena
02/07/2008
Comodelphi
Clique aqui para fazer login e interagir na Comunidade :)