Como pegar atributos de outra classe?

Delphi

20/01/2017

Boa tarde,

Fiz uma prova hoje mas na hora de construir a aplicação acabei estruturando erroneamente as classes. Basicamente as classes são Cliente e Conta.

Queria pegar tipo:

  TCliente = class
  private
    { private declarations }
    FNome: string;
    FCpf: string;
    Conta: TConta;
  published
    { published declarations }
  end;


Para dizer que o Cliente tem uma Conta. Pois lá coloquei a conta herdando do Cliente, o que não tem nada a ver são tipos diferentes. Só que não consigo pegar essa classe. Tenho que colocar em outra unit ? Como é...

  TConta = class
  protected
    { privatae declarations }
    FConta: string;
    FAgencia: string;
    FSaldo: string;
    procedure SetAgencia(const Value: string);
    procedure SetConta(const Value: string);
    procedure SetSaldo(const Value: string);
  protected
    { protected declarations }
  public
    { public declarations }

  published
    { published declarations }
    property Conta: string read FConta write SetConta;
    property Agencia: string read FAgencia write SetAgencia;
    property Saldo: string read FSaldo write SetSaldo;
  end;
Filipe Lobato

Filipe Lobato

Curtidas 0

Melhor post

Jones Granatyr

Jones Granatyr

20/01/2017

Olá! Se você colocou na mesma unit teoricamente deve funcionar. Faça um teste simples: coloque o código do TConta antes do TCliente
GOSTEI 1

Mais Respostas

Filipe Lobato

Filipe Lobato

20/01/2017

Olá! Se você colocou na mesma unit teoricamente deve funcionar. Faça um teste simples: coloque o código do TConta antes do TCliente


Funcionou, haha, engraçado que ainda pouco eu fiz isso que você falou e não tinha funcionado. Porém o mais correto é colocá-los em Units diferentes não é isso? Se for, como eu coloco, da mesma forma? Só adicionando o Uses da classe?
GOSTEI 0
Jones Granatyr

Jones Granatyr

20/01/2017

Opa! Uma boa prática é colocar em units diferentes, assim o código fica melhor organizado (principalmente em sistemas grandes). É só na unit Cliente fazer uses para a unit Conta :)
GOSTEI 0
João Lima

João Lima

20/01/2017

Sempre e melhor colocar em Units diferente... Até porque se for colocar da mesma forma basicamente vai ser ter que adicionar o Uses da Classe
GOSTEI 0
POSTAR