按F7跟踪运行,运行到了System 单元的这个过程
Procedure InitVariantManager;
Tyep
TPtrArray=Array[word] of Pointer;
Var
P:^TPtrArray;
I:Integer;
Begin
P:=@VariantManager;
For I:=0 to(Sizeof(VariantManager) Div Sizeof(Pointer))-1 do
p[I]:=@VariantSystemUndefinedManager;
VariantManager.VarClear:=@VariantSystemDefaultVarClear;
End;就运行不下去了啊 ,是什么原因,帮忙看一下!
Procedure InitVariantManager;
Tyep
TPtrArray=Array[word] of Pointer;
Var
P:^TPtrArray;
I:Integer;
Begin
P:=@VariantManager;
For I:=0 to(Sizeof(VariantManager) Div Sizeof(Pointer))-1 do
p[I]:=@VariantSystemUndefinedManager;
VariantManager.VarClear:=@VariantSystemDefaultVarClear;
End;就运行不下去了啊 ,是什么原因,帮忙看一下!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货