pastate.pas

来自「c#设计模式WithCla」· PAS 代码 · 共 21 行

{This program file may be used with Object
Pascal code generated from the state diagram del1sta.omt.
Run the script delsta1.sct to create the file
Controll.pas. Then compile
the following generated unit files:
Controll.pas and pastate.pas.
}

Program Pastater;

uses Controll;

Var
  Controller : controller1;
begin
  controller1.process (turnOn);
  WriteLn ('The controller is turned on');
  controller1.process (turnOff);
  WriteLn ('The controller is turned off');
end.