Eliminar cadena con salto de linea
 

Hola, llevo poco tiempo con delphi y me he encontrado con un problema.. estoy intentando eliminar una cadena de un TMemo pero la linea se elimina solo en parte, ya me he leido bastantes post sobre problemas para eliminar cadenas pero ninguna esta funcionando conmigo. Os dejo el codigo por si alguno puede guiarme hacia la solucion, la cadena que quiero eliminar es desde la palabra "CONFIGURATION" hasta el siguientes ")" que encuentra. Gracias.

Hola Miguel89 y bienvenido a los foros de Club Delphi.

Probá de este modo:

Código Delphi [-]
procedure EliminarTexto(Memo: TMemo; const Cad1,Cad2: string);
var
  i,Des: Integer;
begin
  Memo.SetFocus;
  Des:= Pos(Cad1, Memo.Lines.Text);
  Memo.SelStart:= Des;
  i:= Des;
  while Memo.Lines.Text[i] <> Cad2 do Inc(i);
  Memo.SelLength:= i-Des-1;
  Memo.SelText:= '';
end;

Un ejemplo con tu texto:

Código Delphi [-]
     EliminarTexto(Memo1,'(''CONFIGURATION', ')');

Resultado:

Un saludo.

viendo que de momento nadie ha respondido me extiendo un poco mas para ver si lo dejo mas claro.

el memo1 contiene una cadena que quiero eliminar, pero al ser bastante larga la cadena y no contener espacios me da un salto de linea (no se que tipo de salto) ya que probe a quitar los saltos de linea + retorno #13#10 y esa linea continuo igual

ejemplo de algo similar al contenido del memo

con un

Código Delphi [-]
Delete (Cadena,Pos('CONFIGURATION',Cadena),Pos(')',Cadena));

deberia de haber sido suficiente a mi entender.. pero elimina solo parte del codigo. Si lo hago de esta manera..

Código Delphi [-]
Delete (Cadena,Pos('CONFIGURATION',Cadena),MaxInt);

Asi si elimina desde donde le digo hasta el final del memo, pero el problema que borra tambien contenido que hace falta.

Alguna solucion antes de volver loco?

gracias ecfisa!! el codigo funciona perfectamente. encantado de encontrar por aqui a gente asi, un saludo.