Correção exemplo CIOT

[Antonio Carlos L]

Unit Frm_ACBrCIOT;

procedure TfrmACBrCIOT.btnCriarEnviarClick(Sender: TObject);

linha 1095

 {$if CompilerVersion < 23}
              MemoDados.Lines.Add(IntToStr(TipoCarga.Codigo) +
                               ' - '+ TipoCargaToStr(TipoCarga.Descricao));
           {$else}
              MemoDados.Lines.Add(TipoCarga.Codigo.ToString +
                               ' - '+ TipoCargaToStr(TipoCarga.Descricao));
           {$IfEnd}

para adequar a Delphis mais antigos

[Italo Giurizzato Junior]

Boa tarde Antônio,

Favor atualizar os fontes, pois fiz a alteração para compatibilizar com versões antigas do Delphi no dia 18/03/2020

 

18/03/2020
Compatibilização do programa exemplos com versões mais antigas do Delphi.
Por: Italo Jurisato Junior