finaltest.pas

delphi开发语言下的源代码分析

unit FinalTest;

interface

implementation

var
  p : Pointer;
  
initialization

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


end.