CondIng para Leiaute 1.0

[Joffas]

Boa tarde tive que fazer uma alteração na unit pcesConversaoeSocial, criando um novo tipo 

TGenericosString0_7 : array[0..7] of string = ('0','1','2','3','4','5','6','7' );

E alterando as funções de conversão pois o mesmo retornava o resultado errado.

function tpCondIngToStr(const t: tpCondIng string;
begin
  result := EnumeradoToStr2(t, TGenericosString0_7 );
end;

function StrTotpCondIng(var ok: boolean; const s: string): tpCondIng;
begin
  result := tpCondIng( StrToEnumerado2(ok, s, TGenericosString0_7) );
end;

[Juliomar Marchetti]

é contribuição? se sim anexe ao tópico a unit alterada

[EMBarbosa]

Em 29/04/2022 at 14:21, Joffas disse:

Boa tarde tive que fazer uma alteração na unit pcesConversaoeSocial, criando um novo tipo 

TGenericosString0_7 : array[0..7] of string = ('0','1','2','3','4','5','6','7' );

E alterando as funções de conversão pois o mesmo retornava o resultado errado.

function tpCondIngToStr(const t: tpCondIng string;
begin
  result := EnumeradoToStr2(t, TGenericosString0_7 );
end;

function StrTotpCondIng(var ok: boolean; const s: string): tpCondIng;
begin
  result := tpCondIng( StrToEnumerado2(ok, s, TGenericosString0_7) );
end;

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  25883.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.