Buscar

Remove caracteres de uma string deixando apenas numeros

Código

function SoNumeros(Const Texto:String):String;
var
  vContString: integer;
  vString: string;
begin
  vString:='';
  for vContString:= 1 To Length(Texto) Do
    begin
      if (Texto[vContString] in ['0'..'9']) then
        begin
          vString:= vString + Copy(Texto, vContString, 1);
        end;                    
    end;

  if vString<>'' then
    result:=vString
  else
    result:='00000000000';
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 26/02/10
Por: Walter Lucchesi Dias
Visualizada: 10881 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009