finaltest.pas

来自「delphi源代码分析源码」· PAS 代码 · 共 18 行

unit FinalTest;

interface

implementation

var
  p : Pointer;
  
initialization

finalization
  GetMem(p, 1000);
  FreeMem(p, 1000);


end.