- sunny - 51CTO技术博客-领先的IT技术博客

网络技术博客

注册 | 登录忘记密码？

51cto首页 | 博客 | 论坛 | 招聘

热点文章

对江西某电信服务器的一次..

sunlilei 的BLOG

博客统计信息

用户名：sunlilei
文章数：24
评论数：14
访问量：18591
无忧币：296
博客积分：288
博客等级：2
注册日期：2006-04-03

友情链接

51CTO博客开发

背景音乐

我的音乐	00:00 \| 00:00

51CTO推荐博客

kingkui	hz68
Deidara	zhouhaipeng
redwolf_79	colderboy
剑了	greater
孙永杰	tiger506
huiwh	zhangyxc

我所关联

石家庄海智数据科技有限公司
石家庄市中讯科技有限公司

文章

DELPHI实现动态信息显示功能

DELPHI实现动态信息显示功能

2006-08-02 17:52:07

thashmap_unit

unit thashmap_unit;

{
unit : thashmap_unit
class : thashmap
描述 : 哈希表实现工具
设计者 : sunny
生成日期 : 20060802
}

interface
uses classes, sysutils;

type
thashmap = class
private
m_list_primary : tstringlist;
m_list_keyvalue : tstringlist;
m_list_type : tstringlist;
public
c create();
destructor destroy; override;

{
加入值
可以加入空值,但主键不能为空
}
procedure add(p_str_key : string; p_str_value : string; p_object : tobject = nil);
//删除
procedure remove(p_str_key : string); overload;
procedure remove(p_int_pos : integer); overload;

//全部删除
procedure removeall();

{
获取项目总数,利用此方法可以遍历所有项目,例如:
for i := 1 to obj.getcount() do
begin
m_str := obj.getvalue(i - 1);
...m_str...
end;
}
function getcount() : integer;

{
根据位置信息获取主键名称
}
function getkeyname(p_int_pos : integer) : string;

{
根据主键名导出键值
}
function getvalue(p_str_key : strin..

类别：delphi | 阅读全文(620) | 回复(1)

<< 1 2 >> 页数 ( 2/2 )

热门文章

Applet与Servlet通信的具..

直接用SQL语句把DBF导入S..

Delphi 打印---打印机选择

图片移动、鼠标画线----..

全面了解系统进程

鼠标拖动图片

BLOB写入读出

最新评论

小王：文章很不错，也欢迎博主访问我的技..

小王：文章很不错，也欢迎博主访问我的技..

小王：文章很不错，也欢迎博主访问我的技..

小王：文章很不错，也欢迎博主访问我的技..

小王：文章很不错，也欢迎博主访问我的技..

51CTO推荐博文

亲手架设Master/Slave智能DNS

iptables防火墙打造安全网络

医疗行业结构化布线方案

窥冰山一角解密流氓软件

逛商场与SHUTDOWN

正则表达式语法讲解（一）

编程，你掌控全局了么？

Java版SLG游戏开发入门

混乱往往意味着机会，你把..

FPA笔记四处理功能EI、EO、EQ

一个中国IT人的思考

Groove 2007, 你的工作新伙..

亲爱的51cto，西西回来了!

如果可以重上一遍大学的话

逛地坛书市感悟

职场感悟……面试篇