Ignore:
Timestamp:
Nov 17, 2010, 7:34:05 PM (14 years ago)
Author:
george
Message:
  • Added: Method Explode to create list items from string.
  • Modified: Definition for procedural type TGListStringConverter changed to TGListToStringConverter and TFListFromStringConverter.
  • Modified: Sepcialized unit ListObject renamed to SpecializedObjectList.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/Specialized/SpecializedList.pas

    r86 r91  
    1616{$DEFINE TGList := TListInteger}
    1717{$DEFINE TGListSortCompare := TListIntegerSortCompare}
    18 {$DEFINE TGListStringConverter := TListIntegerStringConverter}
     18{$DEFINE TGListToStringConverter := TListIntegerToStringConverter}
     19{$DEFINE TGListFromStringConverter := TListIntegerFromStringConverter}
    1920{$DEFINE INTERFACE}
    2021{$I 'GenericList.inc'}
    … …  
    2526{$DEFINE TGList := TListSmallInt}
    2627{$DEFINE TGListSortCompare := TListSmallIntSortCompare}
    27 {$DEFINE TGListStringConverter := TListSmallIntStringConverter}
     28{$DEFINE TGListToStringConverter := TListSmallIntToStringConverter}
     29{$DEFINE TGListFromStringConverter := TListSmallIntFromStringConverter}
    2830{$DEFINE INTERFACE}
    2931{$I 'GenericList.inc'}
    … …  
    3436{$DEFINE TGList := TListDouble}
    3537{$DEFINE TGListSortCompare := TListDoubleSortCompare}
    36 {$DEFINE TGListStringConverter := TListDoubleStringConverter}
     38{$DEFINE TGListToStringConverter := TListDoubleToStringConverter}
     39{$DEFINE TGListFromStringConverter := TListDoubleFromStringConverter}
    3740{$DEFINE INTERFACE}
    3841{$INCLUDE '..\Generic\GenericList.inc'}
    … …  
    4346{$DEFINE TGList := TListPointer}
    4447{$DEFINE TGListSortCompare := TListPointerSortCompare}
    45 {$DEFINE TGListStringConverter := TListPointerStringConverter}
     48{$DEFINE TGListToStringConverter := TListPointerToStringConverter}
     49{$DEFINE TGListFromStringConverter := TListPointerFromStringConverter}
    4650{$DEFINE INTERFACE}
    4751{$I 'GenericList.inc'}
    … …  
    5256{$DEFINE TGList := TListString}
    5357{$DEFINE TGListSortCompare := TListStringSortCompare}
    54 {$DEFINE TGListStringConverter := TListStringStringConverter}
     58{$DEFINE TGListToStringConverter := TListStringToStringConverter}
     59{$DEFINE TGListFromStringConverter := TListStringFromStringConverter}
    5560{$DEFINE INTERFACE}
    5661{$I 'GenericList.inc'}
    … …  
    6166{$DEFINE TGList := TListByte}
    6267{$DEFINE TGListSortCompare := TListByteSortCompare}
    63 {$DEFINE TGListStringConverter := TListByteStringConverter}
     68{$DEFINE TGListToStringConverter := TListByteToStringConverter}
     69{$DEFINE TGListFromStringConverter := TListByteFromStringConverter}
    6470{$DEFINE INTERFACE}
    6571{$I 'GenericList.inc'}
    … …  
    7076{$DEFINE TGList := TListCharBase}
    7177{$DEFINE TGListSortCompare := TListSortCompareChar}
    72 {$DEFINE TGListStringConverter := TListStringConverterChar}
     78{$DEFINE TGListToStringConverter := TListToStringConverterChar}
     79{$DEFINE TGListFromStringConverter := TListFromStringConverterChar}
    7380{$DEFINE INTERFACE}
    7481{$I 'GenericList.inc'}
    … …  
    95102{$DEFINE TGList:=TListInteger}
    96103{$DEFINE TGListSortCompare:=TListIntegerSortCompare}
    97 {$DEFINE TGListStringConverter:=TListIntegerStringConverter}
     104{$DEFINE TGListToStringConverter:=TListIntegerToStringConverter}
     105{$DEFINE TGListFromStringConverter:=TListIntegerFromStringConverter}
    98106{$DEFINE IMPLEMENTATION}
    99107{$I 'GenericList.inc'}
    … …  
    104112{$DEFINE TGList:=TListSmallInt}
    105113{$DEFINE TGListSortCompare:=TListSmallIntSortCompare}
    106 {$DEFINE TGListStringConverter:=TListSmallIntStringConverter}
     114{$DEFINE TGListToStringConverter:=TListSmallIntToStringConverter}
     115{$DEFINE TGListFromStringConverter:=TListSmallIntFromStringConverter}
    107116{$DEFINE IMPLEMENTATION}
    108117{$I 'GenericList.inc'}
    … …  
    113122{$DEFINE TGList := TListDouble}
    114123{$DEFINE TGListSortCompare := TListDoubleSortCompare}
    115 {$DEFINE TGListStringConverter := TListDoubleStringConverter}
     124{$DEFINE TGListToStringConverter := TListDoubleToStringConverter}
     125{$DEFINE TGListFromStringConverter := TListDoubleFromStringConverter}
    116126{$DEFINE IMPLEMENTATION}
    117127{$I 'GenericList.inc'}
    … …  
    122132{$DEFINE TGList := TListPointer}
    123133{$DEFINE TGListSortCompare := TListPointerSortCompare}
    124 {$DEFINE TGListStringConverter := TListPointerStringConverter}
     134{$DEFINE TGListToStringConverter := TListPointerToStringConverter}
     135{$DEFINE TGListFromStringConverter := TListPointerFromStringConverter}
    125136{$DEFINE IMPLEMENTATION}
    126137{$I 'GenericList.inc'}
    … …  
    131142{$DEFINE TGList := TListString}
    132143{$DEFINE TGListSortCompare := TListStringSortCompare}
    133 {$DEFINE TGListStringConverter := TListStringStringConverter}
     144{$DEFINE TGListToStringConverter := TListStringToStringConverter}
     145{$DEFINE TGListFromStringConverter := TListStringFromStringConverter}
    134146{$DEFINE IMPLEMENTATION}
    135147{$I 'GenericList.inc'}
    … …  
    140152{$DEFINE TGList := TListByte}
    141153{$DEFINE TGListSortCompare := TListByteSortCompare}
    142 {$DEFINE TGListStringConverter := TListByteStringConverter}
     154{$DEFINE TGListToStringConverter := TListByteToStringConverter}
     155{$DEFINE TGListFromStringConverter := TListByteFromStringConverter}
    143156{$DEFINE IMPLEMENTATION}
    144157{$I 'GenericList.inc'}
    … …  
    149162{$DEFINE TGList := TListCharBase}
    150163{$DEFINE TGListSortCompare := TListSortCompareChar}
    151 {$DEFINE TGListStringConverter := TListStringConverterChar}
     164{$DEFINE TGListToStringConverter := TListToStringConverterChar}
     165{$DEFINE TGListFromStringConverter := TListFromStringConverterChar}
    152166{$DEFINE IMPLEMENTATION}
    153167{$I 'GenericList.inc'}
Note: See TracChangeset for help on using the changeset viewer.