Emular LineText, como el SynEdit. pero en un Memo

[JXJ]

Hola.

que ando, buscando como emular el comportamiento
del componente synedit, LineText

esto es, que en donde este el caret del cursor,
tome, el texto del mismo, para trabajar en el.

es como si se seleccionara, todo el texto, que hay en la linea
donde esta el cursor,

esto por que me es más bien util, y rápido
emplear el texto de donde se encuentra el cursor
que andar seleccionandolo.

¿alguna idea ?

gracias.

[[seoane]]

Puedes usar algo como esto:

Código Delphi [-]
var
  i, j: integer;
  Str: string;
begin
  with Memo1 do
  begin
    i := SendMessage(Handle, EM_LINEFROMCHAR, -1,0);
    j:= SendMessage(Handle, EM_LINEINDEX, i, 0);
    i:= SendMessage(Handle, EM_LINELENGTH, j, 0);
    // En Str tienes el contenido de la linea actual
    Str:= Copy(Text,j + 1,i);
  end;
end;

[JXJ]

seoane

Mucha Gracias, funciona de perlas.