Fórum Criando Classe #344168

type
  TCheque = class
    FNome: string;
    FCPF: string;
  private
    procedure SetCPF(const Value: string);
  published
    property Nome: string read FNome write FNome;
    property CPF: string read FCPF write SetCPF;
  end;

  TTroco = class
  private
    FCheque: TCheque;
    procedure SetCheque(const Value: TCheque);
  published
    // como não há nenhum tratamento, a procedure SetCheque é desnecessária
    property Cheque: TCheque read FCheque write FCheque;//SetCheque;
  public
    constructor Create;
    destructor Destroy;
  end;

{ TTroco }

constructor TTroco.Create;
begin
  FCheque := TCheque.Create;
end;

destructor TTroco.Destroy;
begin
  FCheque.Free;
end;

procedure TTroco.SetCheque(const Value: TCheque);
begin
  FCheque.Nome:= Value.Nome;
  FCheque.CPF:= Value.CPF;
end;

{ TCheque }

procedure TCheque.SetCPF(const Value: string);
var
  CPFValido: boolean;
begin
  // aqui pode ser feita a validação necessária
  if FCPF <> Value then
  begin
    CPFValido := Value <> ´000.000.000-00´;
    if not CPFValido then
      raise Exception.Create(´CPF Inválido´);
    FCPF := Value;
  end;
end;