有个VB写的程序,允许挂ACTIVE窗体(*.ocx)。接口函数传递的参数是集合类型(Collection),请教用Delphi怎么写。 我试过记录类型,不行。
以下是VB中这个参数的定义
Set colGlbParams = New Collection
colGlbParams.Add UserName, "EmployeeID"
colGlbParams.Add serverName, "Server"
colGlbParams.Add databaseName, "DataBase"
colGlbParams.Add mModuleName, "Role"
colGlbParams.Add mModuleNameChs, "RoleChs"
colGlbParams.Add "Sa", "UserName"
colGlbParams.Add userPass, "PassWord"
colGlbParams.Add Me.frameContainer.Height, "Height"
colGlbParams.Add Me.frameContainer.Width, "Width"
colGlbParams.Add mNodeID, "NodeID"
colGlbParams.Add mParentNodeID, "ParentNodeID"
colGlbParams.Add mNodeType, "NodeType"
colGlbParams.Add mTreeType, "TreeType"
colGlbParams.Add "", "TabType"
colGlbParams.Add "", "CtlType"
colGlbParams.Add "", "SqlQuery"
colGlbParams.Add glbMMSession.mClientHost, "Client"
以下是VB中这个参数的定义
Set colGlbParams = New Collection
colGlbParams.Add UserName, "EmployeeID"
colGlbParams.Add serverName, "Server"
colGlbParams.Add databaseName, "DataBase"
colGlbParams.Add mModuleName, "Role"
colGlbParams.Add mModuleNameChs, "RoleChs"
colGlbParams.Add "Sa", "UserName"
colGlbParams.Add userPass, "PassWord"
colGlbParams.Add Me.frameContainer.Height, "Height"
colGlbParams.Add Me.frameContainer.Width, "Width"
colGlbParams.Add mNodeID, "NodeID"
colGlbParams.Add mParentNodeID, "ParentNodeID"
colGlbParams.Add mNodeType, "NodeType"
colGlbParams.Add mTreeType, "TreeType"
colGlbParams.Add "", "TabType"
colGlbParams.Add "", "CtlType"
colGlbParams.Add "", "SqlQuery"
colGlbParams.Add glbMMSession.mClientHost, "Client"
a:string;
b:string;
c:integer
end;
不知是不这个
a:string;
b:string;
c:integer;
end;var
templ:l;
templ:=l.create;
templ.a:='aaaaaaaaa';
templ.b:='bbbbbbbbb';
templ.c:=1;
vb可以自动转换类型,所以100可以用'100'传进去