18 outubro 2011

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;

Nenhum comentário:

Postar um comentário