Sugestão de alteração na unit pcnConversao.pas

[Luiz Neto]

Sugiro a seguinte alteração

function EnumeradoToStr2(const t: variant; const AString: array of string ): variant;
// Atencao não Funciona em Alguns Enumerados ja existentes
begin
// Melhorar para testar se o valor consta na string
  IF Not ((VarType(t) = varUnknown) Or (VarType(t) = varNull) Or (VarType(t) = varEmpty)) Then Begin
     result := AString[ integer( t ) ];
  end;
end;

 

[BigWings]

Acho que não entendi o objetivo da alteração.

Pode explicar melhor o que ou qual situação precisa ser feita a validação?

Não vai quebrar o código já existente? Tem várias funções que chamam essa rotina.

[Luiz Neto]

É para evitar erro de execução na conversão quando t estiver vazia ou nula, tem situações com leitura do BD que podem gerar t nulo, isto é apenas para adicionar mais uma camada de verificação evitar o erro na execução.

Não irá quebrar o código, é exatamente por ela ser chamada em várias rotinas e com isso dispensar inúmeros testes se t está vazio pelo código. Tem algumas opcoes onde o campo é opcional e aí o valor 

de t será vazio e vai dar erro de conversão no integer (t).

[EMBarbosa]

Em 28/05/2021 at 16:23, Luiz Neto disse:

É para evitar erro de execução na conversão quando t estiver vazia ou nula, tem situações com leitura do BD que podem gerar t nulo, isto é apenas para adicionar mais uma camada de verificação evitar o erro na execução.

Não irá quebrar o código, é exatamente por ela ser chamada em várias rotinas e com isso dispensar inúmeros testes se t está vazio pelo código. Tem algumas opcoes onde o campo é opcional e aí o valor 

de t será vazio e vai dar erro de conversão no integer (t).

Acho melhor não fazer esse teste na função. Veja bem, se você está chamando a função pra converter, seria melhor que você tivesse certeza da entrada antes.

Por exemplo, se você usar o seguinte comando nativo do Delphi, vai gerar uma exception:

  StrToInt('a');