专注于互联网--专注于架构

内存卡修复:修改Classes.pas修复内存泄露问题

修改Classes.pas在initialization段前加上procedure DeleteObjectInstance;Var Block : PInstanceBlock;Begin While InstBlockList <> NIL do Begin Block := InstBlockList^.Next; VirtualFree(InstBlockList, 4096, MEM_DECOMMIT); InstBlockList := Block; end;end;在finalization段最后调用它 DeleteObje [阅读全文] [PDF]