Eliminar subcadena de una cadena

[[seoane]]

Pues no conozco ninguna función que se ajuste a lo que pides. Aunque últimamente delphi trae funciones para todo, lo malo es encontrarlas.

Pero lo que si puedo es dejártelo en 2 instrucciones :

Código Delphi [-]
function QuitaCeros(Str: String): String;
begin
  while pos('/0',Str) > 0 do
    delete(Str,pos('/0',Str)+1,1);
  Result:= Str
end;

// Por ejemplo
ShowMessage(QuitaCeros('SLS_F/000105'));