Fórum Função, quem pode me explicar???? #215321
19/02/2004
0
Oi tudo bem? :lol:
Estou a 6 meses tentano aprender programar em Delphi, mas minhas condições só mer permiti fazer isto por livros e na Internet. :cry:
A minha duvida e a seguinte:
Tenho um codigo de função que se chama ValidaPis, coloque a função lá no seu devido lugar, antes da Implementation da unit, gostaria de saber como fazer para depois que eu digitar este numero no seu devido campo
se o nemero estiver errado me retornaria uma menssagem Tipo :
O numero de pis digitado esta incorreto, ou coisa parecida. :oops:
Gostaria de dicas de como fazer este tipo de validação.
Será que e tipo assim:
Evento OnExit do Edit =
If ValidaPis = Fase then
ShowMessage(´...´);
não consigo :cry:
Agradeço toda a ajuda.
E bom carnaval a todos. :lol:
Estou a 6 meses tentano aprender programar em Delphi, mas minhas condições só mer permiti fazer isto por livros e na Internet. :cry:
A minha duvida e a seguinte:
Tenho um codigo de função que se chama ValidaPis, coloque a função lá no seu devido lugar, antes da Implementation da unit, gostaria de saber como fazer para depois que eu digitar este numero no seu devido campo
se o nemero estiver errado me retornaria uma menssagem Tipo :
O numero de pis digitado esta incorreto, ou coisa parecida. :oops:
Gostaria de dicas de como fazer este tipo de validação.
Será que e tipo assim:
Evento OnExit do Edit =
If ValidaPis = Fase then
ShowMessage(´...´);
não consigo :cry:
Agradeço toda a ajuda.
E bom carnaval a todos. :lol:
Marcelo_j.
Curtir tópico
+ 0
Responder
Posts
19/02/2004
Karepa
A sua função deve retornar true ou false.
function ValidaPis(nrPis : String) : Boolean
begin
--se estiver ok
Result := True;
--senão
Result := False;
end;
no evento on exit do edit, coloque.
if not ValidaPis(Edit1.Text) then
begin
ShoeMessage(´Pis informado é invalido, digite Novamente´);
Edit1.SetFocus;
end;
espero ter ajudado.
function ValidaPis(nrPis : String) : Boolean
begin
--se estiver ok
Result := True;
--senão
Result := False;
end;
no evento on exit do edit, coloque.
if not ValidaPis(Edit1.Text) then
begin
ShoeMessage(´Pis informado é invalido, digite Novamente´);
Edit1.SetFocus;
end;
espero ter ajudado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)