Fórum como capturar todos os cpf de um texto em um memo? #424368

Poderia fazer isso com a utilização dos comandos: POS e Copy...

Onde poderia fazer da seguinte forma:

A função Copy(str : string, i, j : integer) : string copia caracteres de uma dada string.
onde :

str é a string de onde se deseja copiar os caracteres.

i é posição de onde vai começar a cópia.
j é quantidade de caracteres a copiar.

exemplo :

s : string;
s := Copy('Clube delphi', 3, 7);

após a execução dessa linha a variável s conteria : 'ube del'

já a função Pos(str, subStr : string) : integer retorna a posição inicial de uma determinada sequência de caracteres dentro de uma string.

onde :

str é a string de onde se deseja verificar.
subStr é a sequência de caracteres que se deseja encontrar dentro de str.

exemplo:

i : integer;
i := Pos('Clube delphi', 'delphi');

após a execução dessa linha i receberia 7, pois a substring 'delphi' tem seu primeiro caracter na posição 7.

caso subStr não for encontrada em str, a função str retorna -1.

obs.: a posição inicial em tipos de dados strings é 1.

Espero ter ajudado!!!

Isso ae Deivison, ótima explicação.. Ficou bem claro eu tb faria dessa forma!!
Fica ae a dica!!!

Uma outra forma de fazer , a que eu prefiro é utilizar Expressões Regulares nativo no delphi se não me
engando a partir do DelphiXe
qualquer coisa eu posto o código
[]sds

Olá! Corroborando o que o Marcos Salles disse o ideal para este tipo de problema é a Expressão Regular.

Acredito que a solução já tenha sido dada porém deixo aqui minha sugestão de resolução.



Obviamente é um exemplo bobo sem considerar alguns problemas do seu cenário.

[url]http://eugostododelphi.blogspot.com.br/p/expressao-regular.html[/url]

É isto,

Como é bom o amigo Mario comparecer por aqui e nos trazer esta maravilha de solução limpa com o uso de Expressão Regular
apareça mais vezes Mario e nos presentei com esta facilidade que vc tem em utilizar esta biblioteca

[]sds