Delphi6中如何使用Dictionary？

2012-04-18 01:25:32 704 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi数据字典TDictionary 在 Delphi 中，创建一个数据字典通常意味着使用一种结构来存储键值对。Delphi 没有内建的字典类型，但你可以使用。单元作为一个简单的键值对存储，或者你可以使用更复杂的第三方容器，如。// 检查一个特定的键是否存在，并输出其值。// 再次检查已移除的键是否存在。// 遍历字典并输出键值对。// 创建一个新的字典实例。// 添加一些键值对。// 移除一个键值对。阅读详情

uses ComObj, ActiveX;



procedure TForm1.btn1Click(Sender: TObject);

var

  List: Variant;

  A: String;

begin

  List := CreateOLEObject('Scripting.Dictionary');

  List.Add(111, 'abc');

  if List.Exists(111) then

    A := List.Item(111);//报错，对象不存在

end;

因为有一组数量很大的对象需要查找，所以我想在Delphi6中使用Dictionary，但Delphi6不带，在网上找到用Scripting.Dictionary，但怎么也用不了，求教？

如查有别的方法或单元，也请告知，谢谢。

...全文

envi5.3处理高分二号影像数据详细过程记录全文根据此篇文章进行数据处理： tm影像辐射定标_高分二号影像数据预处理及裁剪过程其他参考：学习笔记---遥感影像辐射定标与大气校正利用ENVI自带全球DEM数据计算区域平均高程高分二号数据处理流程（有高分二号的数据信息） GF2有多光谱和全色两个数据，MSS是多光谱的，PAN是全色的，多光谱的分辨率低，全色的高，需要把这两个数据融合，融合之前需要做定标等处理，获取经纬度。一、多光谱影像处理 1. 辐射定标以这个为例：其他路径\2022.4.2... 阅读详情

chhrsas

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

jonathanscor 2012-04-18

打赏
举报

楼上的都说完了，stringList最常用了吧

gobiz 2012-04-18

打赏
举报

[Quote=引用 7 楼的回复:]

这些容器都不支持遍历，头疼。
[/Quote]

不支持遍历？？？

var

  i: Integer;

  SS: TStringList;

begin

  SS := TStringList.Create;

  try

    for i:=0 to SS.Count-1 do

    begin

      ShowMessage(SS.Names[i]);

      ShowMessage(SS.ValueFromIndex[i]);

    end;

  finally

    FreeAndNil(SS);

  end;

end;

chhrsas 2012-04-18

打赏
举报

这些容器都不支持遍历，头疼。

chhrsas 2012-04-18

打赏
举报

找到了个对象，TStringHash，更合适。

funxu 2012-04-18

打赏
举报

最简单的hash是TStrings,但是TStrings没有排序，所以IndexOf比较慢，而它的子类TStringList具有Stored属性，设置为True之后，IndexOf是用折半查找的，效率很高。
而且它也是可以保存object的哦

我看见佛 2012-04-18

打赏
举报

[Quote=引用 1 楼的回复:]
Delphi6？Dictionary？
不能用TStringList来实现吗？

Delphi(Pascal) code
var
SS: TStringList;
begin
SS := TStringList.Create;
try
SS.Add('111=abc');
SS.Add('112=def');
//……
Sho……
[/Quote]8错，据我所知很多人都是通过TStringList来存的

一剑飘雪 2012-04-18

打赏
举报

还有数据量多的时候哈希查找挺快的

一剑飘雪 2012-04-18

打赏
举报

大量的数据为什么不用ThashedStringlist呢

var

  SS: ThashedStringlist;

begin

  SS := ThashedStringlist.Create;

  try

    SS.Add('111=abc');

    SS.Add('112=def');

    //……

    ShowMessage(SS.Values['111']);

    ShowMessage(SS.Values['112']);

  finally

    FreeAndNil(SS);

  end;

end;

gobiz 2012-04-18

打赏
举报

Delphi6？Dictionary？
不能用TStringList来实现吗？

var

  SS: TStringList;

begin

  SS := TStringList.Create;

  try

    SS.Add('111=abc');

    SS.Add('112=def');

    //……

    ShowMessage(SS.Values['111']);

    ShowMessage(SS.Values['112']);

  finally

    FreeAndNil(SS);

  end;

end;

Delphi6中如何使用Dictionary？

相关推荐