Problemas al eliminar cadena de Richedit

[ZayDun]

hola me estoy haciendo un gran lio con un Richedit, el richedit carga un documento que tiene como valor algo similar a esto:

DATOS A
[CONTENIDOA DATOS A]
DATOS B
[CONTENIDOB DATOS B]

el contenido de datos B es bastante amplio, por lo que tampoco pense que iba a ser ningun problema y aplique dicho codigo..

Código Delphi [-]
Delete(Datos,Pos('CONTENIDOB',Datos),Pos(']',Datos));

el problema es que el resultado que da viene a ser a algo asi.

DATOS A
[CONTENIDOA DATOS A]
DATOS B
[T
OS B]

me elimina solo parte del texto y da un salto de linea, pero si antes de ejecutar ese codigo elimino los saltos de linea me da el resultado que yo quiero pero un tanto desordenado al haber eliminado los saltos de linea.

DATOS A[CONTENIDOA DATOS A]DATOS B []


¿Alguna idea?

[[oscarac]]

puedes colocar algo de codigo?

[ZayDun]

Contenido de Richedit
#Control0#
(00000222201020...)
#Control1#
(95DVDS48654651651654B6584..)
#Control2#
(9951654B633..)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
Datos:String;
begin
Datos:=Richedit1.Lines.Text;
//
If Pos ('Control1',Datos)>0 Then
Begin
Delete(Datos,Pos('Control1',Datos),Pos(')',Datos));
Memo1.Lines.Add(Datos);
End;

[[oscarac]]

y que resultado obtienes?

[ecfisa]

Hola ZayDun.

Contenido de Richedit
#Control0#
(00000222201020...)
#Control1#
(95DVDS48654651651654B6584..)
#Control2#
(9951654B633..)

¿ Que resultado esperas, es decir que querés que se borre del texto de arriba luego de la ejecución del código?

Un saludo.

[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.