Fórum Function, valida CPF ? #273787
23/03/2005
0
Boa Tarde !:lol:
Gostaria de usar uma function para validar cpf, eu copie uma deste Site mas não sei como usar.
Criei Function CPF(Num:String):Boolean; e coloquei na parte Interface/Type na ultima linha antes da parte private.
Esta correto???? :oops:
Ai no evento OnExit do DBEdit7, apaguei a procedure que o Delphi cria e coloquei a função:
Function TForm....CPF(num:String):Boolean;
e o código da function
.
..
...
Esta correto????? :oops:
Ai quando vou rodar o programa me da a menssagem:
FUNCTION NEEDS RESULT TYPE.
Aguem pode me instruir como utilizar esta function?
Gostaria que quando o CPF = False, me dava a menssagem CPF Invalido.
Não sei como inserir a function em meu programa, onde coloco as partes da function eunão sei??????? :cry:
Me expliquem por favor!!!!! :cry:
Muito Obrigado.
Gostaria de usar uma function para validar cpf, eu copie uma deste Site mas não sei como usar.
Criei Function CPF(Num:String):Boolean; e coloquei na parte Interface/Type na ultima linha antes da parte private.
Esta correto???? :oops:
Ai no evento OnExit do DBEdit7, apaguei a procedure que o Delphi cria e coloquei a função:
Function TForm....CPF(num:String):Boolean;
e o código da function
.
..
...
Esta correto????? :oops:
Ai quando vou rodar o programa me da a menssagem:
FUNCTION NEEDS RESULT TYPE.
Aguem pode me instruir como utilizar esta function?
Gostaria que quando o CPF = False, me dava a menssagem CPF Invalido.
Não sei como inserir a function em meu programa, onde coloco as partes da function eunão sei??????? :cry:
Me expliquem por favor!!!!! :cry:
Muito Obrigado.
Marcelo_j.
Curtir tópico
+ 0
Responder
Posts
23/03/2005
Rômulo Barros
[b:fc7cee45f7]Ficaria mais ou menos assim, toda a sua Unit:[/b:fc7cee45f7]
[b:fc7cee45f7]Agora, no evento OnExit do DbEdit, faça:[/b:fc7cee45f7]
_____________________________________________
[b:fc7cee45f7][color=blue:fc7cee45f7]Utilize a Ferramenta de Pesquisa do Fórum[/color:fc7cee45f7][/b:fc7cee45f7]
Pesquisar pelos termos
_____________________________________________
[b:fc7cee45f7]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:fc7cee45f7]
[b:fc7cee45f7]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:fc7cee45f7]
[b:fc7cee45f7]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:fc7cee45f7]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
Function CPF(Num:String):Boolean;
Begin
// Código... ... ...
End;
{$R *.dfm}
end.[b:fc7cee45f7]Agora, no evento OnExit do DbEdit, faça:[/b:fc7cee45f7]
procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
If(Not(CPF(DBEdit1.Text)))Then
Begin
ShowMessage(´CPF inválido ou incorreto !!´);
DBEdit1.SetFocus();
End;
end;_____________________________________________
[b:fc7cee45f7][color=blue:fc7cee45f7]Utilize a Ferramenta de Pesquisa do Fórum[/color:fc7cee45f7][/b:fc7cee45f7]
Pesquisar pelos termos
_____________________________________________
[b:fc7cee45f7]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:fc7cee45f7]
[b:fc7cee45f7]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:fc7cee45f7]
[b:fc7cee45f7]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:fc7cee45f7]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)