nestedproc.pas

来自「脚本处理控件源码,支持的脚本格式有:Pascal,C++,JScript,Bas」· PAS 代码 · 共 22 行

{**************************}
{ FastScript v1.0          }
{ Nested procedure demo    }
{**************************}

procedure OK(i: Integer);

  procedure DoShow;
  begin
    ShowMessage(i);
  end;

begin
  DoShow;
  i := 11;
  DoShow;
end;

begin
  OK(1);
end.