Fórum Localizar números no Memo #230472
06/05/2004
0
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
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
Curtir tópico
+ 0
Responder
Posts
06/05/2004
Lucas Silva
valor := pos(´19649´, memo1.lines.text);
com este comando você paga a posição da string.
com este comando você paga a posição da string.
Responder
Gostei + 0
06/05/2004
Paulo_amorim
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é+
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é+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)