Ver Mensaje Individual
  #1  
Antiguo 02-12-2004
[Nbull] Nbull is offline
Miembro Premium
 
Registrado: nov 2004
Ubicación: Valencia-España
Posts: 168
Reputación: 20
Nbull Va por buen camino
Question Guardarme una Cadena de texto de un Memo

Hola, estoy creando una aplicación que me tarifica las llamadas de una centralita telefónica, he programado la conexión por el puerto Com y veo las tramas que me manda la centralita en un Memo.
Hasta hay todo correcto, ahora lo que quiero es coger el número del que me llama, para contrastarlo y ver si lo tengo en la base de datos saber quien es etc... Bueno la cuestión es que la central me manda una trama de este tipo:

00 734 041129 1130 204 00209 0000 0 XXXXXXXXX

Las X serian el número de teléfono del que me ha llamado y la central me envia muchas tramas seguidas . con el siguiente codigo consigo colocar el cursor delante de la primera X:
Código Delphi [-]
with Memo1 do
 begin
    // Vamos a la linea 0, Caracter 40,que es el numero de teléfono
    selstart:=perform(EM_LineIndex,0,0)+40;
    perform(EM_SCROLLCARET,0,0);
    // Hacemos focus en el Memo
    SetFocus;
 end;

Con un For recorro todo el número de teléfono y NO se como leer el caracter que va pasando y guardarmelo, mi pregunta es:

¿Como puedo colocarme en la linea de la primera trama no procesada?
y luego ¿Como puedo recorrer todas las lineas(tramas) que tengo en el memo?

No se si alguien podra ayudarme pero de todas formas Gracias.

Un Saludo.
Responder Con Cita