Localizar números no Memo

Delphi

06/05/2004

Olá Pessoal,

Gostaria de saber como posso fazer para localizar todos os números que estão em um Memo, vale lembrar que nesse Memo há tanto número quanto letras, após a localização preciso armazena-lo em uma variável e ficar com o menor valor, sendo que esse valor deverá ser maior que 1.

Ex.: o conteudo do memo é o seguinte :

PID TTY TIME COMMAND
19649 pts/tmb 0:00 ps
20996 pts/tmb 0:00 sh
20997 pts/tmb 0:00 fglgo
20991 pts/tmb 0:00 run



No caso acima o valor da variável ficará com o valor 19649 ao final do processamento


Obrigado pela ajuda


Vieira

Vieira

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

06/05/2004

valor := pos(´19649´, memo1.lines.text);

com este comando você paga a posição da string.


GOSTEI 0
Paulo_amorim

Paulo_amorim

06/05/2004

Olá

Vc poderia fazer:

Inicializar uma variável valor com um número que vc sabe não ser possível de atingir pelo teu programa;

Fazer um for, verificando cada Memo.Lines.Strings[i]

Dentro dele, pegar o número e guardar em uma variável. Poderia usar até o comando que o Lucas falou, se preferir...

Fazer if valor > then valor :=

Creio que isso deva resolver.
Espero que ajude
Até+


GOSTEI 0
POSTAR