Fórum Classes: Herança, polimorfismo- erro #427132

Sou iniciante em POO. Estou criando um componente para ser utilizada no frente de Caixa.
Esta gerando o seguinte erro:

"TColletionItemClass and Class reference"





Abaixo a Unit



unit AuxVenda;

interface

uses
Classes, Sysutils;



type

TAuxVenda = class;



//Forma de Parcelamento
TParcelamentoItem = class(TCollectionItem)
private
FFormaPagto: String;
FUsarDiaFixo: Boolean;
FDiaFixo: Integer;
FIntervaloParcelas: Integer;
FQtdeParcelas: String;
FMetodoParcelas: String;
FDTBaseParcelas: TDateTime;
function GetDisplayName: String; override;
procedure SetFormaPagto(const Value: String);
procedure SetDiaFixo(const Value: Integer);
procedure SetDTBaseParcelas(const Value: TDateTime);
procedure SetIntervaloParcelas(const Value: Integer);
procedure SetMetodoParcelas(const Value: String);
procedure SetQtdeParcelas(const Value: String);
procedure SetUsarDiaFixo(const Value: Boolean);

public
published
property MetodoParcelas: String read FMetodoParcelas write SetMetodoParcelas;
property FormaPagto: String read FFormaPagto write SetFormaPagto;
property QtdeParcelas: String read FQtdeParcelas write SetQtdeParcelas;
property IntervaloParcelas: Integer read FIntervaloParcelas write SetIntervaloParcelas;
property UsarDiaFixo: Boolean read FUsarDiaFixo write SetUsarDiaFixo;
property DiaFixo: Integer read FDiaFixo write SetDiaFixo;
property DTBaseParcelas: TDateTime read FDTBaseParcelas write SetDTBaseParcelas;

end;





TParcelamento = class(TCollection)
private
FiParcelamento: TAuxVenda;
function GetItem(Index: Integer): TParcelamentoItem;
procedure SetItem(Index: Integer; Value: TParcelamentoItem);
protected
function GetOwner: TPersistent; override;
public
constructor Create(cParcmento: TAuxVenda);
function Add: TParcelamentoItem;
procedure Clear;
property Items[Index: Integer]: TParcelamentoItem read GetItem write SetItem; default;
end;



//Dados do Cliente
TCliente = class(TPersistent)
private
FCodigoMunicipio: Integer;
FIDCliente: Integer;
FPontoRef: String;
FLocalidade: String;
FCEP: String;
FBairro: String;
FUF: String;
FSituacao: String;
FNomeFantasia: String;
FMae: String;
FCidade: String;
FNro: String;
FNome: String;
FLogradoro: String;
FPai: String;
FCPF_CNPJ: String;
FTipoPessoa: String;
FDTNasc: TDateTime;
function getLimpa: String;
procedure SetBairro(const Value: String);
procedure SetCEP(const Value: String);
procedure SetCidade(const Value: String);
procedure SetCodigoMunicipio(const Value: Integer);
procedure SetCPF_CNPJ(const Value: String);
procedure SetDTNasc(const Value: TDateTime);
procedure SetIDCliente(const Value: Integer);
procedure SetLocalidade(const Value: String);
procedure SetLogradoro(const Value: String);
procedure SetMae(const Value: String);
procedure SetNome(const Value: String);
procedure SetNomeFantasia(const Value: String);
procedure SetNro(const Value: String);
procedure SetPai(const Value: String);
procedure SetPontoRef(const Value: String);
procedure SetSituacao(const Value: String);
procedure SetTipoPessoa(const Value: String);
procedure SetUF(const Value: String);

{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }


published
{ Published declarations }

property Nome:String read FNome write SetNome;
property DTNasc:TDateTime read FDTNasc write SetDTNasc;
property CPF_CNPJ:String read FCPF_CNPJ write SetCPF_CNPJ;
property Logradoro:String read FLogradoro write SetLogradoro;
property Nro:String read FNro write SetNro;
property Bairro:String read FBairro write SetBairro;
property PontoRef:String read FPontoRef write SetPontoRef;
property Cidade:String read FCidade write SetCidade;
property CodigoMunicipio:Integer read FCodigoMunicipio write SetCodigoMunicipio;
property CEP:String read FCEP write SetCEP;
property UF:String read FUF write SetUF;
property Localidade:String read FLocalidade write SetLocalidade;
property TipoPessoa:String read FTipoPessoa write SetTipoPessoa;
property NomeFantasia:String read FNomeFantasia write SetNomeFantasia;
property Pai: String read FPai write SetPai;
property Mae: String read FMae write SetMae;
property Limpa: String read getLimpa;
property Situacao: String read FSituacao write SetSituacao;
property IDCliente: Integer read FIDCliente write SetIDCliente;


end;






//Parcelamento Duplicata
TDuplicataItem = class(TCollectionItem)
private

procedure SetDTVencimento(const Value: TDateTime);
procedure SetNroDoc(const Value: String);
procedure SetParcela(const Value: String);
procedure SetValor(const Value: Currency);

public
FValor: Currency;
FNroDoc: String;
FParcela: String;
FDTVencimento: TDateTime;
published
property NroDoc: String read FNroDoc write SetNroDoc;
property Parcela: String read FParcela write SetParcela;
property DTVencimento: TDateTime read FDTVencimento write SetDTVencimento;
property Valor: Currency read FValor write SetValor;

end;



TDuplicata = class(TCollection)
private
FiDuplicata: TAuxVenda;
function GetItem(Index: Integer): TDuplicataItem;
procedure SetItem(Index: Integer; Value: TDuplicataItem);
protected
function GetOwner: TPersistent; override;
public
constructor Create(cDuplicata: TAuxVenda);
function Add: TDuplicataItem;
procedure Clear;
property Items[Index: Integer]: TDuplicataItem read GetItem write SetItem; default;
end;





//Parcelamento Cheque
TChequeItem = class(TDuplicata)
private
FDescricaoBanco: String;
FConta: String;
FAgencia: String;
FBanco: String;
procedure SetAgencia(const Value: String);
procedure SetBanco(const Value: String);
procedure SetConta(const Value: String);
procedure SetDescricaoBanco(const Value: String);


public
published
property Banco: String read FBanco write SetBanco;
property DescricaoBanco: String read FDescricaoBanco write SetDescricaoBanco;
property Agencia: String read FAgencia write SetAgencia;
property Conta: String read FConta write SetConta;


end;



TCheque = class(TCollection)
private
FiCheque: TAuxVenda;
function GetItem(Index: Integer): TChequeItem;
procedure SetItem(Index: Integer; Value: TChequeItem);
protected
function GetOwner: TPersistent; override;
public
constructor Create(cCheque: TAuxVenda);
function Add: TChequeItem;
procedure Clear;
property Items[Index: Integer]: TChequeItem read GetItem write SetItem; default;
end;





//Componente
TAuxVenda = class(TComponent)
private
FFormaParcelamento: TParcelamento;
FCliente: TCliente;
FDuplicata: TDuplicata;
FCheque: TCheque;
procedure SetItems(Value: TParcelamento);
procedure SetCliente(const Value: TCliente);
procedure SetDuplicata(const Value: TDuplicata);
procedure SetCheque(const Value: TCheque);

public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property Items: TParcelamento read FFormaParcelamento write SetItems;
property Cliente: TCliente read FCliente write SetCliente;
property Duplicata: TDuplicata read FDuplicata write SetDuplicata;
property Cheque: TCheque read FCheque write SetCheque;


end;



procedure Register;

implementation

procedure Register;
begin
RegisterComponents('TSD', [TAuxVenda]);
end;

{ TParcelamentoItem }


//Nota: O comportamento padrão do método GetDisplayName é retornar o classname do Item

function TParcelamentoItem.GetDisplayName: string;
begin
Result := FormaPagto;
if Result = '' then Result := inherited GetDisplayName;
end;

procedure TParcelamentoItem.SetDiaFixo(const Value: Integer);
begin
FDiaFixo := Value;
end;

procedure TParcelamentoItem.SetDTBaseParcelas(const Value: TDateTime);
begin
FDTBaseParcelas := Value;
end;

procedure TParcelamentoItem.SetFormaPagto(const Value: String);
begin
if FFormaPagto <> Value then
FFormaPagto := Value;
end;



{ TParcelamento }

constructor TParcelamento.Create(cParcmento: TAuxVenda);
begin
inherited Create(TParcelamentoItem);
FiParcelamento := cParcmento;
end;

function TParcelamento.Add: TParcelamentoItem;
begin
Result := TParcelamentoItem(inherited Add);
end;

procedure TParcelamento.Clear;
begin

inherited Clear;

end;

function TParcelamento.GetItem(Index: Integer): TParcelamentoItem;
begin
Result := TParcelamentoItem(inherited GetItem(Index));

end;

procedure TParcelamento.SetItem(Index: Integer; Value: TParcelamentoItem);
begin
inherited SetItem(Index, Value);
end;

function TParcelamento.GetOwner: TPersistent;
begin
Result := FiParcelamento;
end;


{ TAuxVenda }

constructor TAuxVenda.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FFormaParcelamento := TParcelamento.Create(Self);
FCliente := TCliente.Create;
FDuplicata := TDuplicata.Create(Self);
FCheque := TCheque.Create(Self);
end;

destructor TAuxVenda.Destroy;
begin
FFormaParcelamento.Free;
FCliente.Free;
FDuplicata.Free;
FCheque.Free;
inherited Destroy;
end;

procedure TAuxVenda.SetCheque(const Value: TCheque);
begin
FCheque := Value;
end;

procedure TAuxVenda.SetCliente(const Value: TCliente);
begin
FCliente := Value;
end;


procedure TAuxVenda.SetDuplicata(const Value: TDuplicata);
begin
FDuplicata := Value;
end;

procedure TAuxVenda.SetItems(Value: TParcelamento);
begin
FFormaParcelamento.Assign(Value);
end;


procedure TParcelamentoItem.SetIntervaloParcelas(const Value: Integer);
begin
FIntervaloParcelas := Value;
end;

procedure TParcelamentoItem.SetMetodoParcelas(const Value: String);
begin
FMetodoParcelas := Value;
end;

procedure TParcelamentoItem.SetQtdeParcelas(const Value: String);
begin
FQtdeParcelas := Value;
end;

procedure TParcelamentoItem.SetUsarDiaFixo(const Value: Boolean);
begin
FUsarDiaFixo := Value;
end;

{ TCliente }


function TCliente.getLimpa: String;
begin
FNome:= '';
FDTNasc:= StrToDate('01/01/1900');
FCPF_CNPJ:= '';
FLogradoro:= '';
FNro:= '';
FBairro:= '';
FPontoRef:= '';
FCidade:= '';
FCodigoMunicipio:= 0;
FCEP:= '';
FUF:= '';
FLocalidade:= '';
FTipoPessoa:= '';
FNomeFantasia:= '';
FSituacao:= '';
FIDCliente:= 0;
end;

procedure TCliente.SetBairro(const Value: String);
begin
FBairro := Value;
end;

procedure TCliente.SetCEP(const Value: String);
begin
FCEP := Value;
end;

procedure TCliente.SetCidade(const Value: String);
begin
FCidade := Value;
end;

procedure TCliente.SetCodigoMunicipio(const Value: Integer);
begin
FCodigoMunicipio := Value;
end;

procedure TCliente.SetCPF_CNPJ(const Value: String);
begin
FCPF_CNPJ := Value;
end;

procedure TCliente.SetDTNasc(const Value: TDateTime);
begin
FDTNasc := Value;
end;

procedure TCliente.SetIDCliente(const Value: Integer);
begin
FIDCliente := Value;
end;

procedure TCliente.SetLocalidade(const Value: String);
begin
FLocalidade := Value;
end;

procedure TCliente.SetLogradoro(const Value: String);
begin
FLogradoro := Value;
end;

procedure TCliente.SetMae(const Value: String);
begin
FMae := Value;
end;

procedure TCliente.SetNome(const Value: String);
begin
FNome := Value;
end;

procedure TCliente.SetNomeFantasia(const Value: String);
begin
FNomeFantasia := Value;
end;

procedure TCliente.SetNro(const Value: String);
begin
FNro := Value;
end;


procedure TCliente.SetPai(const Value: String);
begin
FPai := Value;
end;

procedure TCliente.SetPontoRef(const Value: String);
begin
FPontoRef := Value;
end;

procedure TCliente.SetSituacao(const Value: String);
begin
FSituacao := Value;
end;

procedure TCliente.SetTipoPessoa(const Value: String);
begin
FTipoPessoa := Value;
end;

procedure TCliente.SetUF(const Value: String);
begin
FUF := Value;
end;



{ TDuplicataItem }

procedure TDuplicataItem.SetDTVencimento(const Value: TDateTime);
begin
FDTVencimento := Value;
end;

procedure TDuplicataItem.SetNroDoc(const Value: String);
begin
FNroDoc := Value;
end;

procedure TDuplicataItem.SetParcela(const Value: String);
begin
FParcela := Value;
end;

procedure TDuplicataItem.SetValor(const Value: Currency);
begin
FValor := Value;
end;

{ TDuplicata }

function TDuplicata.Add: TDuplicataItem;
begin
Result := TDuplicataItem(inherited Add);
end;

procedure TDuplicata.Clear;
begin
inherited Clear;
end;

constructor TDuplicata.Create(cDuplicata: TAuxVenda);
begin
inherited Create(TDuplicataItem);
FiDuplicata := cDuplicata;
end;

function TDuplicata.GetItem(Index: Integer): TDuplicataItem;
begin
Result := TDuplicataItem(inherited GetItem(Index));
end;

function TDuplicata.GetOwner: TPersistent;
begin
Result := FiDuplicata;
end;

procedure TDuplicata.SetItem(Index: Integer; Value: TDuplicataItem);
begin
inherited SetItem(Index, Value);
end;






{ TCheque }

function TCheque.Add: TChequeItem;
begin
Result := TChequeItem(inherited Add);
end;

procedure TCheque.Clear;
begin
inherited Clear;
end;



constructor TCheque.Create(cCheque: TAuxVenda);
begin
inherited Create(TChequeItem);
FiCheque := cCheque;

end;

function TCheque.GetItem(Index: Integer): TChequeItem;
begin
Result := TChequeItem(inherited GetItem(Index));
end;

function TCheque.GetOwner: TPersistent;
begin
Result := FiCheque;
end;

procedure TCheque.SetItem(Index: Integer; Value: TChequeItem);
begin
inherited SetItem(Index, Value);
end;

{ TChequeItem }

procedure TChequeItem.SetAgencia(const Value: String);
begin
FAgencia := Value;
end;

procedure TChequeItem.SetBanco(const Value: String);
begin
FBanco := Value;
end;

procedure TChequeItem.SetConta(const Value: String);
begin
FConta := Value;
end;

procedure TChequeItem.SetDescricaoBanco(const Value: String);
begin
FDescricaoBanco := Value;
end;

end.