Problemas al eliminar cadena de Richedit

[ZayDun]

el resultado que obtengo es que se queda a mitad de la cadena y lo que quiero es eliminar la cadena completa y que deje como resultado esto.


Contenido de Richedit

#Control0#
(00000222201020...)
#Control1#
()
#Control2#
(9951654B633..)

[[oscarac]]

la cadena completa empieza en
#control0# y termina en (9951654B633..) ?

grafica mejor como quieres que quede la linea

Ejemplo
[quote]
#control0#
#control1#
#control2#
/QUOTE]

o

(00000222201020...)
(95DVDS48654651651654B6584..)
(9951654B633..)

[ecfisa]

Hola ZayDun

Como te dije antes y también te ha dicho oscarac, ya sabemos como te queda. Quisieramos saber como queres que te quede...

Por favor poné un ejemplo de antes y después.

Un saludo.

[ZayDun]

no puedo mostrarte tal y como es por que la longitud de los datos es muy amplia.

Contenido de Richedit al cargar el documento

#Control0#
(123456789etc...)
#Control1#
(abcdefghijketc..)
#Control2#
(951654B633etc..)

Contenido de Richedit al ejecutar el codigo

#Control0#
(123456789etc...)
#Control1#
h
ijketc..)
#Control2#
(951654B633etc..)

como veras elimina desde el inicio de lo que se le dice al codigo pero no hasta el final que deberia de ser ")"

el resultado correcto que yo quiero es..

#Control0#
(123456789etc...)
#Control1#
#Control2#
(951654B633etc..)

[[oscarac]]

entonces entendemos que quieres borrar lo que esta despues de
#control1# y antes de #control2#

[ecfisa]

Hola de nuevo.

Probá de este modo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Datos: string;
  ini, fin: Integer;
begin
  Datos:= RichEdit1.Text;
  ini:= Pos('#Control1#',Datos) + Length('#Control1#') + 1;
  fin:= Pos('#Control2#',Datos);
  Delete(Datos, ini, fin-ini);
  RichEdit1.Text:= Datos;
end;

Un saludo.

[ZayDun]

gracias ecfisa por el codigo, voy a testearlo, y perdonar que no me he explicado muy bien, un saludo.

[[oscarac]]

te piongo un ejemplo del delete
al pareces no esta tomando muy bien el hasta donde borrar

Código Delphi [-]
 
var
  Source : string;

begin
  Source := '12345678';
  Delete(Source, 3, 4);  && Borrar 4 caracteres a partir del tercero
  ShowMessage('Source now : '+Source);
end;

Muestra 1278

[ZayDun]

gracias a ti tb oscarac en cuanto pueda posteo el resultado y gracias de nuevo a los 2.