Ignore:
Timestamp:
Sep 8, 2012, 9:28:39 PM (12 years ago)
Author:
chronos
Message:
  • Updated: Component versions.
  • Added: Missing forms.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        33backup
        44tunneler.exe
         5heaptrclog.trc

  • trunk/Components/TemplateGenerics

    • Property svn:ignore set to
      lib

  • trunk/Components/TemplateGenerics/Specialized/SpecializedDictionary.pas

    r29 r30  
    1717{$DEFINE TGPairValue := string}
    1818{$DEFINE TGDictionary := TDictionaryStringString}
    19 {$DEFINE TGDictionaryList := TDictionaryList}
    20 {$DEFINE TGDictionarySortCompare := TDictionarySortCompareInteger}
    21 {$DEFINE TGDictionaryToStringConverter := TDictionaryToStringConverterInteger}
    22 {$DEFINE TGDictionaryFromStringConverter := TDictionaryFromStringConverterInteger}
    23 {$DEFINE TGDictionaryItemArray := TDictionaryStringItemArray}
     19{$DEFINE TGDictionaryList := TDictionaryStringStringList}
     20{$DEFINE TGDictionarySortCompare := TDictionaryStringStringSortCompare}
     21{$DEFINE TGDictionaryToStringConverter := TDictionaryStringStringToStringConverter}
     22{$DEFINE TGDictionaryFromStringConverter := TDictionaryStringStringFromStringConverter}
     23{$DEFINE TGDictionaryItemArray := TDictionaryStringStringItemArray}
    2424{$DEFINE INTERFACE}
    2525{$I 'GenericDictionary.inc'}
    2626
     27// TDictionaryIntegerString<Integer, TPair<Integer, string>>
     28{$DEFINE TGDictionaryIndex := Integer}
     29{$DEFINE TGPair := TPairIntegerString}
     30{$DEFINE TGPairKey := Integer}
     31{$DEFINE TGPairValue := string}
     32{$DEFINE TGDictionary := TDictionaryIntegerString}
     33{$DEFINE TGDictionaryList := TDictionaryIntegerStringList}
     34{$DEFINE TGDictionarySortCompare := TDictionaryIntegerStringSortCompare}
     35{$DEFINE TGDictionaryToStringConverter := TDictionaryIntegerStringToStringConverter}
     36{$DEFINE TGDictionaryFromStringConverter := TDictionaryIntegerStringFromStringConverter}
     37{$DEFINE TGDictionaryItemArray := TDictionaryIntegerStringItemArray}
     38{$DEFINE INTERFACE}
     39{$I 'GenericDictionary.inc'}
     40
     41
    2742implementation
     43
     44{$DEFINE IMPLEMENTATION_USES}
     45{$I '..\Generic\GenericDictionary.inc'}
     46
    2847
    2948// TDictionaryStringString<Integer, TPair<string, string>>
    … …  
    3352{$DEFINE TGPairValue := string}
    3453{$DEFINE TGDictionary := TDictionaryStringString}
    35 {$DEFINE TGDictionaryList := TDictionaryList}
    36 {$DEFINE TGDictionarySortCompare := TDictionarySortCompareInteger}
    37 {$DEFINE TGDictionaryToStringConverter := TDictionaryToStringConverterInteger}
    38 {$DEFINE TGDictionaryFromStringConverter := TDictionaryFromStringConverterInteger}
    39 {$DEFINE TGDictionaryItemArray := TDictionaryStringItemArray}
     54{$DEFINE TGDictionaryList := TDictionaryStringStringList}
     55{$DEFINE TGDictionarySortCompare := TDictionaryStringStringSortCompare}
     56{$DEFINE TGDictionaryToStringConverter := TDictionaryStringStringToStringConverter}
     57{$DEFINE TGDictionaryFromStringConverter := TDictionaryStringStringFromStringConverter}
     58{$DEFINE TGDictionaryItemArray := TDictionaryStringStringItemArray}
    4059{$DEFINE IMPLEMENTATION}
    4160{$I 'GenericDictionary.inc'}
    4261
     62// TDictionaryIntegerString<Integer, TPair<Integer, string>>
     63{$DEFINE TGDictionaryIndex := Integer}
     64{$DEFINE TGPair := TPairIntegerString}
     65{$DEFINE TGPairKey := Integer}
     66{$DEFINE TGPairValue := string}
     67{$DEFINE TGDictionary := TDictionaryIntegerString}
     68{$DEFINE TGDictionaryList := TDictionaryIntegerStringList}
     69{$DEFINE TGDictionarySortCompare := TDictionaryIntegerStringSortCompare}
     70{$DEFINE TGDictionaryToStringConverter := TDictionaryIntegerStringToStringConverter}
     71{$DEFINE TGDictionaryFromStringConverter := TDictionaryIntegerStringFromStringConverter}
     72{$DEFINE TGDictionaryItemArray := TDictionaryIntegerStringItemArray}
     73{$DEFINE IMPLEMENTATION}
     74{$I 'GenericDictionary.inc'}
     75
     76
    4377end.
Note: See TracChangeset for help on using the changeset viewer.