Classe Delphi (tipada)
Olá ,
estou com uma dúvida, preciso criar uma classe básica no delphi
Exemplo
Type
MinhaClasse = class
preciso criar uma propriedade que aceite somente tipos definidos , como por exemplo
TipoDado = (tpOuro, tpPrata, tpBronze); (nao sei como fazer aqui)
end;
parecido com o que a maioria dos componentes do delphi ja possui, como exemplo
um form, qdo faco a instancia de um form
posso usar uma de suas propriedades assim
Form.DragMode := [ae entra as opcoes definidas], eu nao consigo colocar nenhuma diferente das que foram definidas/tipadas.
onde depois ao instanciar a classe,
quando eu solicitar o objeto instanciado, Tipodado.<ele me dê as opcoes informadas acima>
so que nao estou conseguindo fazer.
Obrigado.
estou com uma dúvida, preciso criar uma classe básica no delphi
Exemplo
Type
MinhaClasse = class
preciso criar uma propriedade que aceite somente tipos definidos , como por exemplo
TipoDado = (tpOuro, tpPrata, tpBronze); (nao sei como fazer aqui)
end;
parecido com o que a maioria dos componentes do delphi ja possui, como exemplo
um form, qdo faco a instancia de um form
posso usar uma de suas propriedades assim
Form.DragMode := [ae entra as opcoes definidas], eu nao consigo colocar nenhuma diferente das que foram definidas/tipadas.
onde depois ao instanciar a classe,
quando eu solicitar o objeto instanciado, Tipodado.<ele me dê as opcoes informadas acima>
so que nao estou conseguindo fazer.
Obrigado.
Cleber Campos.
Curtidas 0
Respostas
Wanderson Cortes
01/10/2014
Você tem que criar esse tipo por fora
e na sua classe você cria um atributo do tipo acima
type TTipoDado = (tpOuro, tpPrata, tpBronze);
e na sua classe você cria um atributo do tipo acima
type TMinhaClasse = class(TObject)
publishied
property tipoDado : TTipoDado;
end;
end;
GOSTEI 0
Cleber Campos.
01/10/2014
[RESOLVIDO]
Olá Wanderson,
obrigado por ter respondido,
funcionou perfeitamente.
Muito obrigado.
Olá Wanderson,
obrigado por ter respondido,
funcionou perfeitamente.
Muito obrigado.
GOSTEI 0