delphi tlist

老版本中的TList指针调用,我就不写了,建议楼主看看2007以后引入的泛型TList<T>的用法.
uses Generics.Collections;
var ss:TList<Integer>;
begin
ss:=TList<Integer>.Create;
with ss do
begin
Add(1);
Add(2);
end;
ShowMessage(IntToStr(ss[0]));
ss.Free;
end;
注意: TList<T>中的T可以是任意类型的变量/类实例/记录,需要释放资源的要手工释放,方法就是ss[i].Free.
如果想一个Free释放所有元素,使用TObjectList<T>就可以.
另外,要达到哈希表的效果,可以使用TDictionary<T,T>.具体应用百度一下.这个不难,非常简单。你使用下面的例子,点击Button1后,就会调用方法Method1。
type
//声明不带参数的类方法。如果你的有参数,不同参数的方法要声明不同类型的类方法
TMyMethod = procedure of object;
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
FList: TList; //你的List
public
procedure Method1; //方法1
procedure Method2; //方法2
procedure Method3; //方法3
end;
...
implementation
...
procedure TForm1.Method1;
begin
ShowMessage(Method1);
end;

procedure TForm1.Method2;
begin
ShowMessage(Method2);
end;

procedure TForm1.Method3;
begin
ShowMessage(Method3);
end;
//将方法指针加入List
procedure TForm1.FormCreate(Sender: TObject);
begin
FList := TList.Create;
FList.Add(@TForm1.Method1);
FList.Add(@TForm1.Method2);
FList.Add(@TForm1.Method3);
end;
//销毁
procedure TForm1.FormDestroy(Sender: TObject);
begin
FList.Clear;
FList.Free;
end;
//根据List里的指针调用类方法
procedure TForm1.Button1Click(Sender: TObject);
var
method: TMyMethod;
begin
@method := FList.Items[0];
method;
end;
喜欢阅读
  • 皇帝的下堂妻:不做皇后好多年

    皇帝的下堂妻:不做皇后好多年

    她还在娘胎的时候就受到诅咒,生下来,半张脸倾国倾城,半张脸却丑如鬼魅。本以为此生会终老娘家,不曾想一道圣旨,她竟然成了母仪天下的皇后。新婚夜,她的皇帝老公掀开凤帕,那一瞬间,雪莲看到了人生最精彩的一张脸,惊喜,错愕,愤怒……在她还没有欣赏完那些表情时,她的皇上老公竟拂袖而去。第二天,皇上一道圣旨将她这个皇后送到了冷宫。她不知道这是为什么?既然不喜欢她为何下旨立她为后?

  • 都市战神奶爸

    都市战神奶爸

    八年前,他因失心疯侮辱梦家大小姐,八年后,他成为第一战神回归都市,不曾想当年那女子竟为他生了个女儿,这八年来妻子受人欺辱,女儿受尽委屈,如此滔天大仇,唯有用血来洗刷!

  • 危险秘恋:名媛不好惹

    危险秘恋:名媛不好惹

    她是别人眼中的豪门千金,却被作为商品计价交易。他是商场巨鳄的金融之子,却被父母憎恶陷害。初初相见,他就明白这个女人,注定是他欧家的少奶奶。某不知情的女人还在奋斗,誓要成为实至名归的欧夫人!

  • 庶女惊华:废材傻妃权天下

    庶女惊华:废材傻妃权天下

    农业研究院的天才科学家一朝穿越到了疯癫痴傻的希泽国尚书府大小姐身上。还被人包装成了礼物送到了身有腿疾的王爷床上。一旦嫁入王府,那就是终生牢笼,她再聪明也不会再有自由。但是这个据说身有腿疾的王爷居然……站在她的面前?她才发现这竟然又是一场骗局!“我的王妃,惊喜吗?”

  • 寂寞婚途

    寂寞婚途

    姐姐死了,她成了新娘。婚礼当天,她被准姐夫压在化妆间的地板上肆意羞辱。他是她挚爱的男人,却在婚礼当天,亲手将她送进了监狱。三年的牢狱生活,磨平了她所有的棱角。“恨,就去报仇。”三年后,她浴血归来。她说:郁时年,孩子不是你的。她说:郁时年,我不爱你了,再也不。后来,郁时年看着空空的墓碑,才知道,从一开始,他就爱错了人,也恨错了人。

  • 妻逢对手:总裁大人又求饶

    妻逢对手:总裁大人又求饶

    三年前,她是他人前的女友,人后的玩物。面对他的淡漠,她毫无怨言,只因他的一句话:我是不婚主义者。三年后,她意外撞见他搂着另一个女人,她心碎欲绝,偏偏恰逢此时怀孕。对于孩子的去留,她犹豫不决,他要求她留下,最终达成协议……

  • 失守的绯色

    失守的绯色

    一次意外撞破最好的闺蜜跟丈夫的好事,而自己只能躲在衣柜里偷窃着不敢发出一言。痛苦买醉,还不清不楚的把自己推到一个陌生男人的床上。不能揭破,因为她要的不是撕破脸,这太便宜那些贱人。却没想到,那个把她吃干抹净的陌生男人竟是贱人的顶头老板。本想装着不认识,故意忘了那晚糊涂,却没想到自己还是被缠上了。

  • 荒唐梦里觅爱人

    荒唐梦里觅爱人

    乐心一觉醒来,睡在了自己未来大哥的床上。三年的感情,一朝破灭,她为了挽回这场婚姻。不信自辱以证清白,却一步步将自己逼入了绝境。她为他伤痕累累,满心疮痍,却还是赔上了自己的亲生骨血。“乐心,你的爱真让人恶心!”“慕瑞麟,若有来生,我必不再爱你!”

  • 猜你喜欢
    热门推荐
  • 二氯丁烯
  • 2018年二级建造师管理答案
  • log34log827
  • 诺基亚n1root
  • 叶天后的征途重生小说
  • MOND-148ed2k
  • pz90h1c压缩机参数
  • 重庆南岸新楼盘房价
  • 苏州七都镇红灯区
  • 2018属羊人女幸运色
  • 看门狗汉化补丁
  • 吉林通化网络诈骗判刑
  • 隐龙变 风华爵士 小说
  • class slave wait等待
  • 冬兵和黑寡妇
  • w0rksh0p
  • 安阳市政法委副书记张汉房
  • 2017毕业生工资排行榜
  • ipad优酷退出
  • 猫不让剪指甲
  • All Right Reserved 飞奔空间