PEX - Remove caracteres e mantem somente números

Abaixo veremos comandos de evento PEX para extrair de qualquer string somente os números, ou seja, poderá atender a diversos casos como exemplo:

Procedure EXEMPLO(const aiAtividadeAtual : Integer; aoFormularios : TJSONObject; const aoVariaveis : TVariaveisEventoFormulario; const aoMensagem : TJSONObject);
var
Ind    : Integer;
Result : String;
begin
     Result := '';
     FOR Ind := 1 to Length('TESTE123teste - evento 1 - PeX') do
     begin
       if TSTR.of_TemNumero(Copy('TESTE123teste - evento 1 - PeX',Ind,1)) then
       begin
          Result := Result + Copy('TESTE123teste - evento 1 - PeX', Ind, 1);
       end;
     end;   
end;
Explicação do código:

Lembre-se de buscar sempre entender o código, assim podendo trata-los em diversas situações e variações, por exemplo, sua string pode vir de variáveis do processo, variáveis PEX, variáveis do sistema, consultas SQL, formulários e outros, assim como a utilização da resposta obtida no Result poderá ser aplicada em qualquer tipo de destino.


Revisão #1
Criado 23 December 2021 09:25:40 por Nicolly Andrielly
Atualizado 6 April 2022 09:07:47 por Nicolly Andrielly