Guardarme una Cadena de texto de un Memo

[Neftali [Germán.Estévez]]

Por eso te explicaba que hay que recorrerlas todas.

Otra opción es ir eliminandolas del Memo a medida que las vayas procesando (extaryendo el número).

[[Nbull]]

No me entiendes, lo que te quiero decir es que una vez que has pasado la linea a la variable Str como saco de esa string los caracteres que yo quiera.

Empezado por Neftali

Str := Memo1.Lines[i];
// Sacar del String el número
.....

Cuando tu dices //sacar del string el numero
¿Como se hace?

Por ejemplo:
si tengo

Str:=00 734 041129 1130 204 00209 0000 0 XXXXXXXXX
Como consigo yo quedarme solo con las XXXXXXXXX
No se si me habre explicado bien ahora, espero que me entiendas y puedas ayudarme.Muchos Gracias de todos Modos.Un Saludo.

[llonigualker]

Una vez que tengas la linea que quieres en un string, para sacar el numero de telefono podrias usar la siguiente funcion

numerotlf:=copy(lineaguardada,40,9);

40 porque dices que empieza en la 40 el numero y 9 porque su longitud (del numero) es de 9 caracteres.

Saludos.

[[Nbull]]

Gracias llonigualker me ha funcionado, ahora mi problema es que en el memo auxiliar que me he puesto para que me saque todos los números que haya solo me saca el de la primera linea.Mi código es este:

Código Delphi [-]
for i:=0 to (Tarificador.Lines.Count- 1) do
begin
Str:=Tarificador.Lines[i];
NumeroTlf:=Copy(Str,40,10);
Mprueba.Lines[i]:=NumeroTlf;
end;

Haber si me podeis decir que es lo que tengo mal por que ya os digo, solo me pone la primera linea de mi tarificador en Mprueba.

Gracias a los dos me habeis ayudado mucho.
Un saludo y a pasar buena tarde.

[llonigualker]

Te falta un Mprueba.addlines o algo asi si quieres añadir lineas al memo temporal o auxiliar.

Saludos.

[llonigualker]

o Mprueba.lines.add

Miralo tu en las propiedades del tmemo.

[[Nbull]]

Muchisimas gracias Llonigualker solucione el problema, me faltaba añadir las lineas a mi Tmemo auxiliar.


Un Saludo.