Delphi 多线程电梯仿真系统附技术文档
某国际贸易中心共40层，设有载客电梯10部（用E0~E9标识）。利用多线程技术实现个电梯载客的仿真情况，另附上技术文档。
设计规则说明：
2.1 电梯的运行规则：
. E0、E1： 可到达每一层。
. E2、E3： 可到达1、25~~40层。
. E4、E5： 可到达1~~25层。
. E6、E7： 可到达1、2~~40层。
. E8、E9： 可到达1~~39层。
2.2 每部电梯的最大乘员量均为K人（K值可以根据仿真情况在10—20 人之间确定）。
2.3 仿真开始时，各电梯随机处于起符合运行规则的任意一层，为空梯。
2.4 仿真开始后，有N人（1000>N）在M分钟(10>M)内随机地到达该国际贸易中心的一层，
开始乘梯活动。
2.5 每个人初次所要到的楼梯层是随机的，令其在合适的电梯处等待电梯的到来。
2.6 每个人乘坐的合适电梯到达指定楼层后，随机地停留10—120秒后，在随机地去往另一
楼层，依次类推，当每个人乘坐过L次(L值可以根据仿真情况在3—10次之间确定)电梯后，第L+1次为下至底层并结束乘梯行为。到所有人结束乘梯行为时，本次仿真结束。
2.7 电梯运行速度为S秒/层（S值可以根据仿真情况在1—5之间确定），每个人上下的时间为T秒（T值可以根据仿真情况在2—10之间确定）
2.8 电梯运行的方向由先发出请求者决定，不允许后发出请求者改变电梯的当前运行方向，除非是未被请求的空梯。
2.9 当某层有人按下乘梯电钮时，首先考虑离该层最近的、满足条件2.8、能够最快到达目标层的电梯。
2.10 不允许电梯超员。
2023-05-17 18:44:05
135KB
1
DevArt.SecureBridge.6.3.4.Full.Source.D5-XE7.7z
2023-05-17 17:00:29
8.05MB
1
Delphi 7 获取窗口文本的例子，只要是当前窗口中的内容，都可以获取到，可能会比较乱，获取的过程被封装在按钮事件中，当用户点击后，执行事件中规定的命令：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
H_window:HWND;
Text:array[0..255] of char;
begin
H_window:=GetWindow(Handle,GW_HWNDFIRST);
While H_window<>0 do
begin
if GETWindowText(H_window,@text,255)>0 then
memo1.Lines.Add(StrPas(@Text));
H_window:=GetWindow(H_Window,GW_HWNDNEXT);
end;
end;
2023-05-17 11:06:19
6KB
1
这是一个报表控件包，For Borland Delphi Versions 4,5,6,7.100% 源码.
最后更新日期：2003.4.15
2023-05-16 14:37:23
7.38MB
1
Delphi OSD特效生成测试程序-附有代码文件，Delphi环境的OSD程序，使用三方控件实现，功能是完成混合、获取坐标值，面板半透明、显示图片、显示字幕、文字滚动等。
2023-05-16 13:02:13
16KB
1
基于delphi的家庭财务管理系统：
本系统面向广大普通个人家庭使用，拥有收入/支出的录入、维护、统计、查询、报表和图表等功能。
主要功能：
1、用户管理：用户维护（用户添加/删除/修改密码）、用户分类（不同用户类型权限不同）。
2、数据维护：家庭收入/支出记录（录入、修改、删除）；经手人员维护、支出分类维护、收入分类维护；数据表格式转换；数据备份与恢复。
3、查询功能：对支出和收入进行高级查询，可单一以某条件进行查询或将多个条件组合进行复杂查询；统计报表打印；数据图形表示；
4、其他功能：嵌入Windows记事本与计算器，方便用户不备之需。
运行数据库配置：
点击“控制面板”--“管理工具”--“数据源”--点击“添加”按钮， 选择“Microsoft Access Driver(*.mdb)”,
点“完成”。之后在数据源名中输入"szh"，在数据库一栏中选择“源代码”文件夹中的financial.mdb，运行程序即可。
初始登陆名：admin 密码：admin
以上功能，诚实有效！！！亲测有效！！！亲测有效！！！
2023-05-14 22:01:03
1.29MB
1
微软SAPI语音引擎开发包5.1版本的delphi控件安装包，安装后可以使用SAPI的控件，用以制作语音程序，具体的使用方法可以看官网或者下载SAPI安装后看帮助文件。
2023-05-09 17:00:06
131KB
1