Código
Begin
While pos('-', Texto) <> 0 Do
delete(Texto,pos('-', Texto),1);
While pos('.', Texto) <> 0 Do
delete(Texto,pos('.', Texto),1);
While pos('/', Texto) <> 0 Do
delete(Texto,pos('/', Texto),1);
While pos(',', Texto) <> 0 Do
delete(Texto,pos(',', Texto),1);
Result := Texto;
End;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009