Quitar todas las instancias de una substring en una string

Enviado Por: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Fecha: 19/01/00

Truco accedido 97 veces

Pon un TLabel (Label1) y un TButton (Button1) en tu form

Pon este código dentro del OnCLick de Button1:

  procedure TForm1.Button1Click(Sender: TObject);

  function QuitaEn(Cadena, Esto: String): String;
   var
     aPos: Integer;
   begin
     aPos := Pos(Esto, Cadena);
     Result:= '';
     while (aPos > 0) do begin
       Result := Result + Copy(Cadena, 1, aPos-1);
       Delete(Cadena, 1, aPos + Length(Esto)-1);
       aPos := Pos(Esto, Cadena);
     end;
     Result := Result+Cadena;
   end;



 var
   Prueba:string;
 begin
   Prueba:='Cadena en donde quitar una palabra';
   Label1.Caption:=QuitaEn(Prueba,'donde');
 end;

Para usarlo en un TMemo:

   Memo1.Text:=QuitaEn(Memo1.Text,'str a quitar/str to remove');