tratamento de erros...

Delphi

04/04/2004

galera gostaria de tratar erros... como na máscara.. de um campo cep com esse erro de n preenchimento do restante do campo :

´invalid input value. use escape key to abandon changes ´

e relacionar campos em um show message que não foram preenchidos


Jonasaf

Jonasaf

Curtidas 0

Respostas

Marco Salles

Marco Salles

04/04/2004

´invalid input value. use escape key to abandon changes ´

Este erro ocorre quando voce sai do MaskEdit :?: :?: poste para nos qual a mascara que voce esta usando no MaskEdit
relacionar campos em um show message que não foram preenchidos

var
i:integer;
campo:String;
begin
for i:=0 to Form1.componentcount-1 do
  if Form1.components[i] is tdbedit then
     if tdbedit(Form1.components[i]).text = ´´ then
        begin
         Campo:=TDbEdit(Form1.components[i]).DataField;
         showmessage(´Error : O Campo ´+campo+13+
                                      ´        Não Pode Ser Deixado em Branco´);
        end;
end;

Dica: Muitas vezes em um Form, alguns campos podem ficar em branco outros não...A rotina anterior testa todos os campos indiferentemente...
Sugiro personalisar a rotina , somente para aqueles campos que são extremamentes necessários terem seus valores diferentes de vazio....Para personalisar a Rotina use a Propiedade tag dos componentes DbEdits...Por Exemplo tag=1 Campos que deverão ser testados, Campo=0..Campos que podem ter valores nulos....Usando esta definição, Altere o código anterior para:
var
i:integer;
campo:String;
begin
for i:=0 to Form1.componentcount-1 do
  if Form1.components[i] is tdbedit then
     if (tdbedit(Form1.components[i]).text = ´´And
        (tdbedit(Form1.components[i]).tag=1) then
        begin
         Campo:=TDbEdit(Form1.components[i]).DataField;
         showmessage(´Error : O Campo ´+campo+13+
                                      ´        Não Pode Ser Deixado em Branco´);
        end;
end;



GOSTEI 0
POSTAR