Fórum Clear Objectlist #432102

    TCONTAS_RECEBER = Class(TMovimentoTabelas)
  Private
 ...
    { private declarations }
  Protected
    { protected declarations }
  Public
    { public declarations }
    Constructor Create;
    Destructor Destroy; Override;
  Published

    FLISTA_PARCELAS:TLISTAPARCELAS;
    Property LISTA_PARCELAS:TLISTAPARCELAS Read GetLISTA_PARCELAS Write SetLISTA_PARCELAS;
  End;

  TLISTAPARCELAS = Class(TObjectList)
  Protected
    Procedure SetObject(Index:Integer; Item:TCR_ITENS);
    Function GetObject(Index:Integer):TCR_ITENS;
    Procedure Insert(Index:Integer; Obj:TCR_ITENS);
  Public
    Function Add(Obj:TCR_ITENS):Integer;
    Procedure Clear; override;
    Property Objects[Index:Integer]:TCR_ITENS
    Read GetObject Write SetObject; Default;
    Destructor Destroy; Override;
  End;

lContaReceber.LISTA_PARCELAS.Clear;

Procedure TLISTAPARCELAS.Clear;
Var
  I:Integer;
  oObject:TObject;
Begin
  For i := (Count - 1) Downto 0 Do
  Begin
    oObject := TCR_ITENS(Self.Items[i]);
    Self.Delete(I);
    FreeAndNil(oObject);
  End;
  inherited Clear;
End;