Fórum verificar um edit #260665
30/11/2004
0
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
Curtir tópico
+ 0Posts
30/11/2004
Rômulo Barros
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
30/11/2004
Paulo_amorim
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
30/11/2004
Rômulo Barros
if Pos( ´,´ , <suaString> ) > 0 then ShowMEssage(´Tem virgula´) else ShowMessage(´Nao tem vírgula´);
[color=red:5ede62817a][b:5ede62817a]Exatamente isso, Paulo !!! [/b:5ede62817a][/color:5ede62817a] :wink: :wink:
Gostei + 0
30/11/2004
Marcelo Saviski
Exatamente isso, Paulo !!! :wink: :wink:[/quote:13a5a59fbf]
:?
Gostei + 0
01/12/2004
Rômulo Barros
Exatamente isso, Paulo !!! :wink: :wink:[/quote:62a02066d1]
:?[/quote:62a02066d1]
:?:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)