mapItem = class(TRemotable)
private
Fkey: Variant;
Fvalue: Variant;
published
property key: Variant read Fkey write Fkey;
property value: Variant read Fvalue write Fvalue;
end; Map = array of mapItem;
ArrayOf_xsd_anyType = array of Variant
////////////////////////////////////////////////
我怎么来定一个变量 他的类型定义为Map 并给他赋值呢
private
Fkey: Variant;
Fvalue: Variant;
published
property key: Variant read Fkey write Fkey;
property value: Variant read Fvalue write Fvalue;
end; Map = array of mapItem;
ArrayOf_xsd_anyType = array of Variant
////////////////////////////////////////////////
我怎么来定一个变量 他的类型定义为Map 并给他赋值呢
解决方案 »
- 問一個好基礎的問題,關於繼承的
- 闂竴涓叧浜巇elphi鐨勫皬闂
- Delphi如何取SQL Server数据库中的nvarchar字段值?
- 怎么样使控件变灰(不可用)
- 大家帮我出出主意,一个文本文件的问题,时间紧急,明天就要用啊!
- 怎么实现虚拟光驱软件“碟中碟”的的光驱热插拔,我用SPY跟踪了一下,好象用到了WM_DEVMODECHANGE消息,请问用程序该如何实现?
- 发布Pascal源代码格式化/美化工具 1.2版!!!继续免费!!!
- 如何从数据库存取图片文件
- 如何PACK DBF库中的打标记记录??????????????
- delphi 索引或关键字不能包含一个空
- 求助:将以下delphi代码用c++代码写出来
- 用 c# 还是 delphi 开发桌面应用程序?(保证结帖给分)
TMap = array of mapItem; var
map:Tmap;赋值需要循环 创建、赋值
var
oMap: Map;//增加item
SetLength(Length(oMap)+1);
oMap[High(oMap)] := mapItem.Create;//释放
for I := Low(oMap) to High(oMap) do
oMap[I].Free;
SetLength(oMap, 0);