Delphi电梯仿真、楼层判断、上升下降逻辑模拟 　　Maxload:integer;//电梯最大乘客量 　　PersonNum:integer;//参与仿真人数 　　Ontime:integer;//人员到齐时间 　　ElavotorSpeed:integer;//电梯运行速度 　　UpDownTime:integer;//上下电梯时间 　　TakeNum:integer;//乘做电梯次数 　　Elavotor:array[0..9]ofTElavotor;//电梯实例对象 　　RunThread:array[0..9]ofTRun