nestedproc.pas

来自「FastScript 1.94 Full Source」· 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.