Guardarme una Cadena de texto de un Memo

[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.