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;
ShowMessage(QuitaCeros('SLS_F/000105'));