Retornar somente números da string

Eata função retorna somente caracteres numéricos da cadeia passada como parâmetro. Muito útil

function ApenasNumerosNaString(pStr:String): String;
//Converte uma cadeia de string onde se tenha numeros e caracteres em uma
//cadeia de strings onde so tenha numeros
Var
  I: Integer;
begin
  Result := '';
  For I := 1 To Length(pStr) do
   If pStr[I] In ['1','2','3','4','5','6','7','8','9','0'] Then
     Result := Result + pStr[I];
end;

Comentários

Postagens mais visitadas deste blog

[resolvido] USB To Serial Prolific no Windows 7 e 8x e 10

Corrigir BAD_SYSTEM_CONFIG_INFO no Windows 7,8, 8.1, 10

Como Alterar o Perfil da Rede Pública para Privada no “Windows 8.1″ e “Windows Server 2012″