Re: [delphi-br] Campo Do Telefone -> Eduardo

2005-08-04 Por tôpico Cleiton
Eduardo... Vou tentar e depois digo se deu certo... - Original Message - From: "Eduardo Silva ®" <[EMAIL PROTECTED]> To: Sent: Wednesday, August 03, 2005 12:55 PM Subject: RES: [delphi-br] Campo Do Telefone -> Eduardo Debugue o sistema e veja o retorno do texto que

Re: [delphi-br] Campo Do Telefone -> Eduardo

2005-08-03 Por tôpico Daniel Bastos
Para todos os campos que contenham mascaras, eu uso assim: // crio esta função function RetiraCaracteres(str : string) : string; var ct : integer; begin result := ''; for ct := 1 to Length(str) do if str[ct] in (['0'..'9']) then result := result + str[ct]; end; procedure TForm1.Button1Click(Send

RES: [delphi-br] Campo Do Telefone -> Eduardo

2005-08-03 Por tôpico Eduardo Silva ®
: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Danilo Rogério Enviada em: quarta-feira, 3 de agosto de 2005 12:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Campo Do Telefone -> Eduardo Tente... If Tabela.FieldByName('CAMPO_TELEFONE'

Re: [delphi-br] Campo Do Telefone -> Eduardo

2005-08-03 Por tôpico Danilo Rogério
Tente... If Tabela.FieldByName('CAMPO_TELEFONE').IsNull then Showmessage('Esta vazio') Cleiton <[EMAIL PROTECTED]> escreveu: Olá Eduardo... Eu já tinha tentado fazer da forma que você mostrou, mas por alguma razão não tinha dado certo. Continuo na mesma. if DBeditNome.text = '( )-

Re: [delphi-br] Campo Do Telefone -> Eduardo

2005-08-03 Por tôpico Cleiton
Olá Eduardo... Eu já tinha tentado fazer da forma que você mostrou, mas por alguma razão não tinha dado certo. Continuo na mesma. if DBeditNome.text = '( )-' then begin ShowMessage ( 'o telefone está em branco'); DBeditNome.SetFocus; exit; end; -Mensagem original