Listen freigeben

[Oreaden]

Ein Schelm, wer dem Orakel nicht traut. Für die ungläubigen unter den Delphianern hier ein Testcode, möge jeder selbst seine Augen öffnen.

Delphi-Quellcode:

PROGRAM Project1;

{$APPTYPE CONSOLE}

USES
  SysUtils,
  Contnrs;

TYPE
  test = CLASS
    c: PChar;
  END;

  tTestList = CLASS(TObjectList)
    x: test;
    CONSTRUCTOR Create;
    //  Destructor Destroy; override;
  END;

  CONSTRUCTOR tTestList.Create;
  BEGIN
    x := test.Create;
  END;

  //destructor tTestList.Destroy;
  //begin
  // x.Free;
  // inherited;
  //end;

VAR
  x: tTestList;
BEGIN
  ReportMemoryLeaksOnShutdown := True;

  x := tTestlist.Create;
  x.Free;
END.