请选择 进入手机版 | 继续访问电脑版

大富翁Delphi开发技术网站

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 3601|回复: 2

delphi XE 新增的泛型容器单元:TDictionary 的简单使用

  [复制链接]

970

主题

1459

帖子

4501

积分

论坛元老

Rank: 8Rank: 8

积分
4501
发表于 2015-11-13 09:50:50 | 显示全部楼层 |阅读模式
精品文章
支持版本: Delphi XE10 
资源分类: 其他 
发布平台: Windows 
转载地址: -

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
delphi XE 新增的泛型容器单元:TDictionary 的简单使用


定义:
type
  TMenuInfo = record
    ID:Integer ;
    Name:string ;
    Rights:string;
  end;
  TMenuDict = TDictionary<string, TMenuInfo>;


增加
Var MInfo:TMenuInfo;


        MInfo.MenuID:=FieldByName('i_menu_id').AsInteger;
        MInfo.VC_Name:=Trim(FieldByName('VC_Name').AsString);
        MInfo.Rights:= TrimRight(FieldByName('Rights').AsString);


        MenuDict.Add(FieldByName('i_menu_id').AsString,MInfo);
                  
查找:                  
  
    if MenuDict.ContainsKey(iMenuId) then begin
                Name:=MenuDict.Items[iMenuId].Name;
                Rights:=MenuDict.Items[iMenuId].Rights;
  end;

转载请保留当前帖子的链接:http://www.dfwlt.com/forum.php?mod=viewthread&tid=2075 谢谢!

搜索简单,分享不易,且分享且珍惜,您难道不想分享下您的心得?如果觉得本文章好的话,您可以在我们网站上注册,然后发布您的好的心得,让大家共同进步,谢谢!

最新添加

回复

使用道具 举报

4

主题

20

帖子

432

积分

中级会员

Rank: 3Rank: 3

积分
432
发表于 2015-11-13 13:44:45 | 显示全部楼层
查询效率是不是快些,不然和TStringList差不多吧。
回复 支持 反对

使用道具 举报

5

主题

198

帖子

3487

积分

论坛元老

Rank: 8Rank: 8

积分
3487
发表于 2015-11-14 09:42:59 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

申请友链|Archiver|手机版|小黑屋|大富翁Delphi开发技术网站 ( 苏ICP备12065705号-4

GMT+8, 2019-12-11 05:30 , Processed in 0.107608 second(s), 29 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表