finaltest.pas

来自「Sharemem replacement for Delphi. Fast, 」· PAS 代码 · 共 18 行

unit FinalTest;

interface

implementation

var
  p : Pointer;
  
initialization

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


end.