主题：getglobalvar如何改写

清空板块的代码如下，如何改写金字塔公式？

if getglobalvar(FormulaName+'清理')<>CurrentDate and IsLastBar Then
begin
SetGlobalVar(FormulaName+'清理',CurrentDate);
for $i=1 to STKCOUNT(FormulaName) Do
Begin
DELETEFROMBLOCK (STKFROMBLK(FormulaName,1) ,FormulaName);
end;
end;

if extgbdata(FormulaName+'清理')<>CurrentDate and IsLastBar Then
begin
extgbdataset(FormulaName+'清理',CurrentDate);
for i=1 to STKCOUNT(FormulaName) Do
Begin
DELETEFROMBLOCK (STKFROMBLK(FormulaName,i) ,FormulaName);
end;
end;

DELETEFROMBLOCK (STKFROMBLK(FormulaName,i) ,FormulaName);