localvar.pas

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

{**************************}
{ FastScript v1.0          }
{ Local variables demo     }
{**************************}

var
  i: Integer;

procedure OK(i: Integer);
begin
  ShowMessage(i);
  i := 11;
end;

begin
  i := 10;

  if i = 10 then
    OK(1);

  OK(i);
end.