Problemas al eliminar cadena de Richedit

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