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;
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
Postar um comentário