Fórum separar numero de texto numa string #257935
11/11/2004
0
galera tenho uma variavel com texto e numero. por exempro: varialvel:=casa01;
como faço para jogar o texto para outra varialve e o numero para outra
obrigado
como faço para jogar o texto para outra varialve e o numero para outra
obrigado
Speedrob
Curtir tópico
+ 0
Responder
Posts
11/11/2004
Delphi32
No exemplo a seguir eu estou jogando para duas variáveis do tipo string. Você pode adaptar o código de acordo com a sua necessidade:
Ao final desse código a variável numletras terá as letras e a variável varnumeros terá os números.
Até!
...
var i:integer;
texto,varletras,varnumeros:string;
begin
texto := ´CASA01´;
varletras := ´´;
varnumeros := ´´;
for i:=1 to Length(Texto) do
if (Texto[i] in [´0´..´9´]) then
varnumeros := varnumeros+Texto[i]
else
varletras := varletras + Texto[i];
end;
Ao final desse código a variável numletras terá as letras e a variável varnumeros terá os números.
Até!
Responder
Gostei + 0
12/11/2004
Speedrob
valeu amigo
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)