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 93 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');