Ver Mensaje Individual
  #2  
Antiguo 25-04-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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:
Cita:
INSERT INTO CONFIG VALUES
('UPDATE','0072616e636865732f6c61737430392f7371007e000affffffff0000000000000000000000007400316874747 03a2f2f7570646174653465782e6a646f776e6c
6f616465722e6f72672f6272616e636865732f6c61737430392f787400064252414e43487078')
INSERT INTO CONFIG VALUES
()
INSERT INTO CONFIG VALUES('MAS DATOS',')

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita