function TSJ_MainFrm.CreateDataModule(FuncValue: ESJ_MainFunction)???(1): Boolean;
begin
Result := False;
case FuncValue of
mfSJ_SCJH:???(2)
begin
{ if not Assigned(dmkjk1) then???(3)
begin
dmkjk1 := Tdmkjk1.Create(self);
dmkjk1.dbConnection.Connected := False;
dmkjk1.dbConnection.Address := FOcxParams.AppServerIP;
end;
谁能告诉我以上这3处是什么意思?实在看不懂!
begin
Result := False;
case FuncValue of
mfSJ_SCJH:???(2)
begin
{ if not Assigned(dmkjk1) then???(3)
begin
dmkjk1 := Tdmkjk1.Create(self);
dmkjk1.dbConnection.Connected := False;
dmkjk1.dbConnection.Address := FOcxParams.AppServerIP;
end;
谁能告诉我以上这3处是什么意思?实在看不懂!
解决方案 »
- 我想写个类似'飞鸽传书'的软件,实现两台互联网上的机子通讯!
- 大家好,如何用VB写虚拟鼠标点击执行具体路径的EXE 谢谢!!加分 100
- 如何将程序中的内容“拖”到桌面或文件夹中(DoDragDrop高难度高分问题)
- 关闭应用程序的问题。
- serversocket怎么发送信息到clientsocket?
- 做一个反映数据关系的统计图!求图,感激万分!(视回答情况不够再加分)
- VideoCap与数据库的问题,请高手解答。急用
- 拷贝和粘贴问题
- 高分请教~~开发过超市进销存软件的~~请进~~~up有分
- 怎么给分???
- 哎,贵州的菜鸟被delphi牛人欺负了哈
- 急!100分求解,如何用程序替换应用程序图标?
这样写的话在程序退出前如果有释放dmkjk1的地方必须加:dmkjk1 := nil;
你的ESJ_MainFunction应该是枚举类型,而mfSJ_SCJH是其中的一个值
if not Assigned(dmkjk1) then保证实例只被创建一次
begin
Result := False;
case FuncValue of
mfSJ_SCJH:???(2)//这是参数传进来的值,要看Esj_mainFunction 的类型定义了肯定是作者自定义的类型,可以用Ctrl+单击Esj_MainFunction查看
begin
{ if not Assigned(dmkjk1) then???(3)//如果DmKjk1未创建则创建,类型为Tdmkjk1,从下面看应该是一个datamodule不过在程序启动时没有自动创建,根据Esj_MainFunction的值决定。在菜单projec-option-forms中应该在available forms 中,可以根据2法查看源程序
begin
dmkjk1 := Tdmkjk1.Create(self);
dmkjk1.dbConnection.Connected := False;
dmkjk1.dbConnection.Address := FOcxParams.AppServerIP;
end;