Ignore:
Timestamp:
Jan 3, 2011, 3:25:24 PM (14 years ago)
Author:
george
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/Specialized/SpecializedList.pas

    r102 r112  
    1818{$DEFINE TGListToStringConverter := TListIntegerToStringConverter}
    1919{$DEFINE TGListFromStringConverter := TListIntegerFromStringConverter}
     20{$DEFINE TGListItemArray := TListIntegerItemArray}
    2021{$DEFINE INTERFACE}
    2122{$I 'GenericList.inc'}
    … …  
    2829{$DEFINE TGListToStringConverter := TListSmallIntToStringConverter}
    2930{$DEFINE TGListFromStringConverter := TListSmallIntFromStringConverter}
     31{$DEFINE TGListItemArray := TListSmallIntItemArray}
    3032{$DEFINE INTERFACE}
    3133{$I 'GenericList.inc'}
    … …  
    3840{$DEFINE TGListToStringConverter := TListDoubleToStringConverter}
    3941{$DEFINE TGListFromStringConverter := TListDoubleFromStringConverter}
     42{$DEFINE TGListItemArray := TListDoubleItemArray}
    4043{$DEFINE INTERFACE}
    4144{$INCLUDE '..\Generic\GenericList.inc'}
    … …  
    4851{$DEFINE TGListToStringConverter := TListPointerToStringConverter}
    4952{$DEFINE TGListFromStringConverter := TListPointerFromStringConverter}
     53{$DEFINE TGListItemArray := TListPointerItemArray}
    5054{$DEFINE INTERFACE}
    5155{$I 'GenericList.inc'}
    … …  
    5862{$DEFINE TGListStringToStringConverter := TListStringToStringConverter}
    5963{$DEFINE TGListStringFromStringConverter := TListStringFromStringConverter}
     64{$DEFINE TGListItemArray := TListStringItemArray}
    6065{$DEFINE INTERFACE}
    6166{$I 'GenericListString.inc'}
    … …  
    6873{$DEFINE TGListToStringConverter := TListByteToStringConverter}
    6974{$DEFINE TGListFromStringConverter := TListByteFromStringConverter}
     75{$DEFINE TGListItemArray := TListByteItemArray}
    7076{$DEFINE INTERFACE}
    7177{$I 'GenericList.inc'}
    … …  
    7884{$DEFINE TGListToStringConverter := TListToStringConverterChar}
    7985{$DEFINE TGListFromStringConverter := TListFromStringConverterChar}
     86{$DEFINE TGListItemArray := TListStringItemArray}
    8087{$DEFINE INTERFACE}
    8188{$I 'GenericList.inc'}
    … …  
    8996{$DEFINE TGListObjectToStringConverter := TListObjectToStringConverter}
    9097{$DEFINE TGListObjectFromStringConverter := TListObjectFromStringConverter}
     98{$DEFINE TGListItemArray := TListObjectItemArray}
    9199{$DEFINE INTERFACE}
    92100{$I 'GenericListObject.inc'}
    … …  
    111119{$DEFINE TGListToStringConverter := TListMethodToStringConverter}
    112120{$DEFINE TGListFromStringConverter := TListMethodFromStringConverter}
     121{$DEFINE TGListItemArray := TListMethodItemArray}
    113122{$DEFINE INTERFACE}
    114123{$I 'GenericList.inc'}
    … …  
    128137
    129138// TListInteger<Integer, Integer>
    130 {$DEFINE TGListIndex:=Integer}
    131 {$DEFINE TGListItem:=Integer}
    132 {$DEFINE TGList:=TListInteger}
    133 {$DEFINE TGListSortCompare:=TListIntegerSortCompare}
    134 {$DEFINE TGListToStringConverter:=TListIntegerToStringConverter}
    135 {$DEFINE TGListFromStringConverter:=TListIntegerFromStringConverter}
     139{$DEFINE TGListIndex := Integer}
     140{$DEFINE TGListItem := Integer}
     141{$DEFINE TGList := TListInteger}
     142{$DEFINE TGListSortCompare := TListIntegerSortCompare}
     143{$DEFINE TGListToStringConverter := TListIntegerToStringConverter}
     144{$DEFINE TGListFromStringConverter := TListIntegerFromStringConverter}
     145{$DEFINE TGListItemArray := TListIntegerItemArray}
    136146{$DEFINE IMPLEMENTATION}
    137147{$I 'GenericList.inc'}
    … …  
    144154{$DEFINE TGListToStringConverter:=TListSmallIntToStringConverter}
    145155{$DEFINE TGListFromStringConverter:=TListSmallIntFromStringConverter}
     156{$DEFINE TGListItemArray := TListSmallIntItemArray}
    146157{$DEFINE IMPLEMENTATION}
    147158{$I 'GenericList.inc'}
    … …  
    154165{$DEFINE TGListToStringConverter := TListDoubleToStringConverter}
    155166{$DEFINE TGListFromStringConverter := TListDoubleFromStringConverter}
     167{$DEFINE TGListItemArray := TListDoubleItemArray}
    156168{$DEFINE IMPLEMENTATION}
    157169{$I 'GenericList.inc'}
    … …  
    164176{$DEFINE TGListToStringConverter := TListPointerToStringConverter}
    165177{$DEFINE TGListFromStringConverter := TListPointerFromStringConverter}
     178{$DEFINE TGListItemArray := TListPointerItemArray}
    166179{$DEFINE IMPLEMENTATION}
    167180{$I 'GenericList.inc'}
    … …  
    174187{$DEFINE TGListStringToStringConverter := TListStringToStringConverter}
    175188{$DEFINE TGListStringFromStringConverter := TListStringFromStringConverter}
     189{$DEFINE TGListItemArray := TListStringItemArray}
    176190{$DEFINE IMPLEMENTATION}
    177191{$I 'GenericListString.inc'}
    … …  
    184198{$DEFINE TGListToStringConverter := TListByteToStringConverter}
    185199{$DEFINE TGListFromStringConverter := TListByteFromStringConverter}
     200{$DEFINE TGListItemArray := TListByteItemArray}
    186201{$DEFINE IMPLEMENTATION}
    187202{$I 'GenericList.inc'}
    … …  
    194209{$DEFINE TGListToStringConverter := TListToStringConverterChar}
    195210{$DEFINE TGListFromStringConverter := TListFromStringConverterChar}
     211{$DEFINE TGListItemArray := TListStringItemArray}
    196212{$DEFINE IMPLEMENTATION}
    197213{$I 'GenericList.inc'}
    … …  
    205221{$DEFINE TGListObjectToStringConverter := TListObjectToStringConverter}
    206222{$DEFINE TGListObjectFromStringConverter := TListObjectFromStringConverter}
     223{$DEFINE TGListItemArray := TListObjectItemArray}
    207224{$DEFINE IMPLEMENTATION}
    208225{$I 'GenericListObject.inc'}
    … …  
    215232{$DEFINE TGListToStringConverter := TListMethodToStringConverter}
    216233{$DEFINE TGListFromStringConverter := TListMethodFromStringConverter}
     234{$DEFINE TGListItemArray := TListMethodItemArray}
    217235{$DEFINE IMPLEMENTATION}
    218236{$I 'GenericList.inc'}
Note: See TracChangeset for help on using the changeset viewer.