Hola.
La solución de Caro funciona perfectamente, pero se me ocurrió una idea y bue... ya que estoy la pongo.
Código:
procedure SacarExtras(var Cadena:string; ASacar: string);
var
i: Integer;
begin
for i:= Length(Cadena) downto 1 do
if Pos(Cadena[i], ASacar) > 0 then
Delete(Cadena, i, 1);
end;
se la llamaría:
Código:
...
Cadena:= 'A35-5677:G6';
SacarExtras(Cadena, '-:*#$.@'); { no es una grosería }
Saludos.