separar numero de texto numa string

Delphi

11/11/2004

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


Speedrob

Speedrob

Curtidas 0

Respostas

Delphi32

Delphi32

11/11/2004

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:

...
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é!


GOSTEI 0
Speedrob

Speedrob

11/11/2004

valeu amigo


GOSTEI 0
POSTAR