separar da string (texto de numero)

[adrzel 0]

Olá amigos.

estou trabalhando com uma string e necessito separ o texto dos valores numericos mas não estou conseguindo enchergar uma solução

 

obrigado até mais... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[thalesoli 0]

Poste um exemplo da string

[adrzel 0]

a questão é presciso dividir um arquivo txt emum conjunto de letras maíusculas (se tiver no texto)os numeros (se tiver no texto)e caracteres especiasi como & $ @ etctem uma idéia como pode ser feito? EX:PARA DESCONTRAIR um pouco, 25455 PARA DESCONTRAIRum pouco,25455 mas tem que ir identificando aos poucos começando pelo começo... cada vez que vai mudar de uma sequencia de letras maúsculas para numeros por e tenho que contar quantas letras ou numeros e enviar um simbolo dependendo da quantidade de letras ou numeros.

[Motta 645]

ve se ajuda ...

 

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

letra,numero,outros : string;

begin

Edit1.Text := Lowercase(Edit1.Text);

for i := 1 to length(Edit1.Text) do

begin

if Edit1.Text in ['a'..'z'] then

letra := letra + Edit1.Text

else

if Edit1.Text in ['0'..'9'] then

numero := numero + Edit1.Text

else

outros := outros + Edit1.Text;

end;

Edit1.Text := numero + letra + outros;

end;