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.