求助:在delphi中如何实现vb集合collection的功能?

                            
在vb中:   
    dim   Newcol   As   New   Collection   ,Savet   as   string  
    newcol.add     "aaa",1000  
    newcol.add     "bbb",2000  
    newcol.add     "ccc",3000  
   
    savet=newcol(2000)  
     
    debug.pring   savet   '在调试窗口输出savet的值为   bbb,在VB中系统根据集合中key的关键值2000自动    
                                          定位指针位置,找出它的对应item值   'bbb'.  
   
    也就是说在vb中可以用collection实现类似2维数组的功能  
   
  ===================================================================  
    在delphi中的tstringlist只能设置   item的值,但无法设置key的值.,如  
    Tlist1:Tstringlist  
    Tlist1.add   'aaa'  
    Tlist1.add   'bbb'  
    Tlist1.add   'ccc'  
     
   
   
   
                                         
 

查看回复