verificar um edit

Delphi

30/11/2004

bom seguinte galera

eu tenho um cadastro de cliente (Access\ADO) e na tabela tem o campo Endereço eu queria fazer na hr de salvar o registro c tivesse ´,´ escrito .. exemplo

Ex: Rua 13 de maio, 192

se o cara esquecer do ,192 avisar na hr de salvar.. . como faço issu?


Slack

Slack

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

30/11/2004

Declare o Seguinte método:

Function funExisteVirgula(APalavra : String) : Boolean;
Var
   IntC  : Integer;
begin
   Result := False;
   For IntC := 1 To Length(APalavra)Do
   Begin
      If(Copy(APalavra,IntC,1) = ´,´)Then
      Begin
          Result := True;
          Exit;
      End;
   End;
end;


[color=red:e5f71f7f03][b:e5f71f7f03]Para chamar o método, faça:[/b:e5f71f7f03][/color:e5f71f7f03]

If(funExisteVirgula(´Rua 14 de Novembro, 123 ...´))Then
   ShowMessage(´Existe Vírgula´)
Else
   ShowMessage(´Não Existe Vírgula´);



GOSTEI 0
Paulo_amorim

Paulo_amorim

30/11/2004

Olá

Pode-se utilizar a função Pos para fazer isso

if Pos( ´,´ , <suaString> ) > 0 then 
ShowMEssage(´Tem virgula´) 
else 
ShowMessage(´Nao tem vírgula´);


Até+


GOSTEI 0
Rômulo Barros

Rômulo Barros

30/11/2004

Olá Pode-se utilizar a função Pos para fazer isso 
if Pos( ´,´ , <suaString> ) > 0 then 
ShowMEssage(´Tem virgula´) 
else 
ShowMessage(´Nao tem vírgula´);
Até+


[color=red:5ede62817a][b:5ede62817a]Exatamente isso, Paulo !!! [/b:5ede62817a][/color:5ede62817a] :wink: :wink:


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

30/11/2004

[quote:13a5a59fbf=´Undeclared Identifier´]
Exatamente isso, Paulo !!! :wink: :wink:[/quote:13a5a59fbf]

:?


GOSTEI 0
Rômulo Barros

Rômulo Barros

30/11/2004

[quote:62a02066d1=´Marcelo Saviski´][quote:62a02066d1=´Undeclared Identifier´]
Exatamente isso, Paulo !!! :wink: :wink:[/quote:62a02066d1]

:?[/quote:62a02066d1]

:?:


GOSTEI 0
POSTAR