Fórum Como pegar atributos de outra classe? #574055

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

  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;