Obtener el número de linea actual de un memo

[Byfed]

Hola,

Llevo un rato dandole vueltas a las propiedades del Tmemo y no encuentro lo que busco. Lo que quiero haces es detectar cuando se produce un cambio en un Tmemo (en onchange del componente) y devolver el número de línea en que se ha producido dicho cambio.

La idea es que tengo un Tmemo que se llena con direcciones de correos de clientes. Cuando se cambia una dirección de correo del memo, quiero que se actualice en la base de datos.

Lo que tenía pensado era llevar un array de enteros que tenga el mismo número de posiciones que el memo y en él almacenar los id de clientes que obtengo de la base de datos al ir rellenando el memo. Entonces, si detecto en qué linea del memo se produce el cambio con el id del array de enteros ya puedo construir la consulta para actualizar el email para ese cliente.

¿Alguien sabe cómo puedo llevarlo a cabo? Por exigencias del guión, el componente donde estan los correos tiene que ser un Tmemo, osea que no me vale cambiar el componente.

Gracias y un saludo

[*Caro*]

Hola Byfed, para obtener la línea actual del Memo puedes hacerlo así:

Código Delphi [-]
var
 LineaActual : Integer;
begin
 LineaActual := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);

Saluditos

[Byfed]

Perfecto. es justo lo que andaba buscando. Muchas gracias.