Function Occurs(T, S : ShortString) : Byte; Var P : Byte; Begin Result := 0; P := Pos (T, S); while P > 0 do begin Inc (Result); S := Copy (S, P + Length (T), 255); P := Pos (T, S); end; End;
Essa funcao identifica quantas ocorrecias de um caracter há em uma string, Desculpe nao postar a fonte mas tenho faz tempo e nao me lembro onde consegui. Mas se nao me engano foi o DTDelphi espero ter ajudado Codigo de Ex.: usei isso no onValidate do campo If (Occurs(copy((Sender as TField).Value,0,1),(Sender as TField).Value)<11) then Em 30/11/06, Rodrigo <[EMAIL PROTECTED]> escreveu: > > if (cpf <> '00000000000')and(cpf <> '11111111111')and(cpf <> > '22222222222') > and(cpf <> '33333333333')and(cpf <> '44444444444')and(cpf <> > '55555555555') > and(cpf <> '66666666666')and(cpf <> '77777777777')and(cpf <> > '88888888888') > and(cpf <> '99999999999')then > > galera tenho uma validação de CPF e tive que colocar esse codigo acima > também > existe uma forma de validação...usando expressão regular..ou algo melhor > do que o acima...? > > qq sugestão é bem vinda. > > abs. > > Rodrigo Mota. > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]