Classe enumerada

Delphi

06/09/2016

Bom dia!

Gostaria de saber como faço para adicionar o conteúdo de uma classe enumerada em um combobox.

TTipoFiscal = (tfFisica,tfJuridica); //quero esse conteudo em um combobox

TParceiro = class(TEntidades)
private
FTipoFiscal: TTipoFiscal;
FNatureza: TTipoNatureza;
FEndereco: TEndereco;
FInfComerciais: String;
FInfBancarias: String;
FInfAdicionais: String;
FParentesco: TParentesco; // Essa field foi declarada para receber o conteudo de TParentesco que esta (Forward) ?
FContato: TContatos; //Essa field foi declarada para receber o conteudo de Contatos que esta (Forward) ?
procedure SetContatos(const Value: TContatos);
public
constructor create;
destructor destroy; override;
property TipoFiscal: TTipoFiscal read FTipoFiscal write FTipoFiscal;
property Natureza: TTipoNatureza read FNatureza write FNatureza;
property Endereco: TEndereco read FEndereco write FEndereco;
property InfComerciais: String read FInfComerciais write FInfComerciais;
property InfBancarias: String read FInfBancarias write FInfBancarias;
property InfAdicionais: String read FInfAdicionais write FInfAdicionais;
property Contatos: TContatos read FContato write SetContatos;
property Parentesco: TParentesco read FParentesco write FParentesco;
Italo Gomes

Italo Gomes

Curtidas 0
POSTAR