Eliminar, actualizar e insertar linea en un memo

[roman]

Para buscar la palabra puedes usar la función Pos aplicada a memo.text, o bien PosEx de la unidad StrUtils si quieres hacer búsquedas secuenciales. En ambos casos, la función te devolverá el índice (basado en 1) de donde empieza la palabra dentro del texto, o 0 si no se encuentra. Este índice lo puedes usar como parámetro al mensaje EM_LINEFROMINDEX para obtener el índice de la línea en el memo.

Ejemplo:

Código Delphi [-]
var
  i, j: integer;

begin
  i := Pos('palabra', Memo1.Text);
  Dec(i); // EM_LINEFROMCHAR usa el índice del caracter, basado en 0

  if i >= 0 then
  begin
    j := Memo1.Perform(EM_LINEFROMCHAR, i, 0);
    Memo1.Lines.Delete(j);
  end;
end;

// Saludos

[roman]

Por otra parte, quizá quieras considerar otras opciones para lo que haces. Por ejemplo, en lugar de un archivo de texto plano, podrías usar un archivo INI. En lugar de guardar

boton.nombre //aqui hay un comentario
boton.text //aqui hay un comentario
boton.letf //aqui hay un comentario
boton.caption //aqui hay un comentario

cuando creas el boton, podrías guardar

[boton]
nombre = nombre del botón
text = texto del botón
letf = ...
caption = ...

es decir, todo lo relacionado a una componente, en una sección del archivo INI. Delphi cuenta con la clase TIniFile que trivializa el manejo de estos archivos.

// Saludos

[[ArdiIIa]]

Perdona roman por la intromisión:
EM_LINEFROMINDEX, no lo tengo documentado por ningún sitio.
Donde está definido ?
Lo mas parecido que he visto es EM_LINEINDEX

[roman]

¡Ah! Tienes razón , es EM_LINEFROMCHAR no EM_LINEFROMINDEX.

// Saludos

[[ArdiIIa]]

Luego en el wparam, habría que pasarle el valor de la variable I, NO??
es decir

Código Delphi [-]
j := Memo1.Perform(EM_LINEFROMCHAR, I,0);

[roman]

Je, je, muy cierto, ya lo he corregido en el original (ambos errores). Gracias

// Saludos

[gulder]

grasias roman, ArdiIIa y disculpen la demora estoy mirando lo que dicen grasias