Ignore:
Timestamp:
Oct 31, 2010, 11:05:07 AM (14 years ago)
Author:
george
Message:
  • Modified: Interface and implementation section of generic templates merged to single include file. Sections are separated using ifdef compiler directives.
Location:
Generics/TemplateGenerics/Specialized
Files:
26 edited

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/Specialized/DictionaryStringString.pas

    r80 r83  
    1212  TDictionaryKey = string;
    1313  TDictionaryValue = string;
    14 {$INCLUDE '..\Generic\DictionaryInterface.tpl'}
     14{$DEFINE INTERFACE}
     15{$INCLUDE '..\Generic\GenericDictionary.inc'}
    1516
    1617type
    … …  
    2223implementation
    2324
    24 {$INCLUDE '..\Generic\DictionaryImplementation.tpl'}
     25{$DEFINE IMPLEMENTATION}
     26{$INCLUDE '..\Generic\GenericDictionary.inc'}
    2527
    2628

  • Generics/TemplateGenerics/Specialized/ListByte.pas

    r77 r83  
    1111  TListIndex = Integer;
    1212  TListItem = Byte;
    13 {$INCLUDE '..\Generic\ListInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericList.inc'}
    1415
    1516type
    … …  
    2425implementation
    2526
    26 {$INCLUDE '..\Generic\ListImplementation.tpl'}
     27{$DEFINE IMPLEMENTATION}
     28{$INCLUDE '..\Generic\GenericList.inc'}
    2729
    2830

  • Generics/TemplateGenerics/Specialized/ListChar.pas

    r77 r83  
    1111  TListIndex = Integer;
    1212  TListItem = Char;
    13 {$INCLUDE '..\Generic\ListInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericList.inc'}
    1415
    1516type
    … …  
    3031implementation
    3132
    32 {$INCLUDE '..\Generic\ListImplementation.tpl'}
    33 
     33{$DEFINE IMPLEMENTATION}
     34{$INCLUDE '..\Generic\GenericList.inc'}
    3435
    3536{ TListChar }

  • Generics/TemplateGenerics/Specialized/ListDouble.pas

    r71 r83  
    1111  TListIndex = Integer;
    1212  TListItem = Double;
    13 {$INCLUDE '..\Generic\ListInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericList.inc'}
    1415
    1516type
    … …  
    1920implementation
    2021
    21 {$INCLUDE '..\Generic\ListImplementation.tpl'}
    22 
     22{$DEFINE IMPLEMENTATION}
     23{$INCLUDE '..\Generic\GenericList.inc'}
    2324
    2425end.

  • Generics/TemplateGenerics/Specialized/ListInteger.pas

    r71 r83  
    1111  TListIndex = Integer;
    1212  TListItem = Integer;
    13 {$INCLUDE '..\Generic\ListInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericList.inc'}
    1415
    1516type
    … …  
    1920implementation
    2021
    21 {$INCLUDE '..\Generic\ListImplementation.tpl'}
     22{$DEFINE IMPLEMENTATION}
     23{$INCLUDE '..\Generic\GenericList.inc'}
    2224
    2325

  • Generics/TemplateGenerics/Specialized/ListPointer.pas

    r71 r83  
    1111  TListIndex = Integer;
    1212  TListItem = Pointer;
    13 {$INCLUDE '..\Generic\ListInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericList.inc'}
    1415
    1516type
    … …  
    1920implementation
    2021
    21 {$INCLUDE '..\Generic\ListImplementation.tpl'}
     22{$DEFINE IMPLEMENTATION}
     23{$INCLUDE '..\Generic\GenericList.inc'}
    2224
    2325

  • Generics/TemplateGenerics/Specialized/ListString.pas

    r74 r83  
    1111  TListIndex = Integer;
    1212  TListItem = string;
    13 {$INCLUDE '..\Generic\ListInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericList.inc'}
    1415
    1516type
    … …  
    2223implementation
    2324
    24 {$INCLUDE '..\Generic\ListImplementation.tpl'}
    25 
     25{$DEFINE IMPLEMENTATION}
     26{$INCLUDE '..\Generic\GenericList.inc'}
    2627
    2728end.

  • Generics/TemplateGenerics/Specialized/ListVariant.pas

    r77 r83  
    1111  TListIndex = Integer;
    1212  TListItem = Variant;
    13 {$INCLUDE '..\Generic\ListInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericList.inc'}
    1415
    1516type
    … …  
    2223implementation
    2324
    24 {$INCLUDE '..\Generic\ListImplementation.tpl'}
    25 
     25{$DEFINE IMPLEMENTATION}
     26{$INCLUDE '..\Generic\GenericList.inc'}
    2627
    2728end.

  • Generics/TemplateGenerics/Specialized/QueueDouble.pas

    r73 r83  
    1111  TQueueIndex = Integer;
    1212  TQueueItem = Double;
    13 {$INCLUDE '..\Generic\QueueInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericQueue.inc'}
    1415
    1516type
    … …  
    1920implementation
    2021
    21 {$INCLUDE '..\Generic\QueueImplementation.tpl'}
    22 
     22{$DEFINE IMPLEMENTATION}
     23{$INCLUDE '..\Generic\GenericQueue.inc'}
    2324
    2425end.

  • Generics/TemplateGenerics/Specialized/QueueInteger.pas

    r73 r83  
    1111  TQueueIndex = Integer;
    1212  TQueueItem = Integer;
    13 {$INCLUDE '..\Generic\QueueInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericQueue.inc'}
    1415
    1516type
    … …  
    1920implementation
    2021
    21 {$INCLUDE '..\Generic\QueueImplementation.tpl'}
    22 
     22{$DEFINE IMPLEMENTATION}
     23{$INCLUDE '..\Generic\GenericQueue.inc'}
    2324
    2425end.

  • Generics/TemplateGenerics/Specialized/QueueObject.pas

    r73 r83  
    1111  TQueueIndex = Integer;
    1212  TQueueItem = TObject;
    13 {$INCLUDE '..\Generic\QueueInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericQueue.inc'}
    1415
    1516type
    … …  
    2425implementation
    2526
    26 {$INCLUDE '..\Generic\QueueImplementation.tpl'}
    27 
     27{$DEFINE IMPLEMENTATION}
     28{$INCLUDE '..\Generic\GenericQueue.inc'}
    2829
    2930{ TObjectQueue }

  • Generics/TemplateGenerics/Specialized/QueuePointer.pas

    r73 r83  
    1111  TQueueIndex = Integer;
    1212  TQueueItem = Pointer;
    13 {$INCLUDE '..\Generic\QueueInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericQueue.inc'}
    1415
    1516type
    … …  
    1920implementation
    2021
    21 {$INCLUDE '..\Generic\QueueImplementation.tpl'}
    22 
     22{$DEFINE IMPLEMENTATION}
     23{$INCLUDE '..\Generic\GenericQueue.inc'}
    2324
    2425end.

  • Generics/TemplateGenerics/Specialized/QueueString.pas

    r73 r83  
    1111  TQueueIndex = Integer;
    1212  TQueueItem = string;
    13 {$INCLUDE '..\Generic\QueueInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericQueue.inc'}
    1415
    1516type
    … …  
    1920implementation
    2021
    21 {$INCLUDE '..\Generic\QueueImplementation.tpl'}
     22{$DEFINE IMPLEMENTATION}
     23{$INCLUDE '..\Generic\GenericQueue.inc'}
    2224
    2325end.

  • Generics/TemplateGenerics/Specialized/RangeDateTime.pas

    r77 r83  
    1010type
    1111  TRangeItem = TDateTime;
    12 {$INCLUDE '..\Generic\RangeInterface.tpl'}
     12{$DEFINE INTERFACE}
     13{$INCLUDE '..\Generic\GenericRange.inc'}
    1314
    1415type
    … …  
    1819implementation
    1920
    20 {$INCLUDE '..\Generic\RangeImplementation.tpl'}
     21{$DEFINE IMPLEMENTATION}
     22{$INCLUDE '..\Generic\GenericRange.inc'}
    2123
    2224

  • Generics/TemplateGenerics/Specialized/SetChar.pas

    r77 r83  
    1111  TSetIndex = Integer;
    1212  TSetItem = Char;
    13 {$INCLUDE '..\Generic\SetInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericSet.inc'}
    1415
    1516type
    … …  
    2223implementation
    2324
    24 {$INCLUDE '..\Generic\SetImplementation.tpl'}
     25{$DEFINE IMPLEMENTATION}
     26{$INCLUDE '..\Generic\GenericSet.inc'}
    2527
    2628end.

  • Generics/TemplateGenerics/Specialized/SetInteger.pas

    r76 r83  
    1111  TSetIndex = Integer;
    1212  TSetItem = Integer;
    13 {$INCLUDE '..\Generic\SetInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericSet.inc'}
    1415
    1516type
    … …  
    1920implementation
    2021
    21 {$INCLUDE '..\Generic\SetImplementation.tpl'}
     22{$DEFINE IMPLEMENTATION}
     23{$INCLUDE '..\Generic\GenericSet.inc'}
    2224
    2325

  • Generics/TemplateGenerics/Specialized/SetString.pas

    r76 r83  
    1111  TSetIndex = Integer;
    1212  TSetItem = string;
    13 {$INCLUDE '..\Generic\SetInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericSet.inc'}
    1415
    1516type
    … …  
    2223implementation
    2324
    24 {$INCLUDE '..\Generic\SetImplementation.tpl'}
    25 
     25{$DEFINE IMPLEMENTATION}
     26{$INCLUDE '..\Generic\GenericSet.inc'}
    2627
    2728end.

  • Generics/TemplateGenerics/Specialized/StackDouble.pas

    r73 r83  
    1111  TStackIndex = Integer;
    1212  TStackItem = Double;
    13 {$INCLUDE '..\Generic\StackInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericStack.inc'}
    1415
    1516type
    … …  
    1920implementation
    2021
    21 {$INCLUDE '..\Generic\StackImplementation.tpl'}
     22{$DEFINE IMPLEMENTATION}
     23{$INCLUDE '..\Generic\GenericStack.inc'}
    2224
    2325

  • Generics/TemplateGenerics/Specialized/StackInteger.pas

    r73 r83  
    1111  TStackIndex = Integer;
    1212  TStackItem = Integer;
    13 {$INCLUDE '..\Generic\StackInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericStack.inc'}
    1415
    1516type
    … …  
    1920implementation
    2021
    21 {$INCLUDE '..\Generic\StackImplementation.tpl'}
     22{$DEFINE IMPLEMENTATION}
     23{$INCLUDE '..\Generic\GenericStack.inc'}
    2224
    2325

  • Generics/TemplateGenerics/Specialized/StackObject.pas

    r73 r83  
    1111  TStackIndex = Integer;
    1212  TStackItem = TObject;
    13 {$INCLUDE '..\Generic\StackInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericStack.inc'}
    1415
    1516type
    … …  
    2425implementation
    2526
    26 {$INCLUDE '..\Generic\StackImplementation.tpl'}
    27 
     27{$DEFINE IMPLEMENTATION}
     28{$INCLUDE '..\Generic\GenericStack.inc'}
    2829
    2930{ TObjectStack }

  • Generics/TemplateGenerics/Specialized/StackPointer.pas

    r73 r83  
    1111  TStackIndex = Integer;
    1212  TStackItem = Pointer;
    13 {$INCLUDE '..\Generic\StackInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericStack.inc'}
    1415
    1516type
    … …  
    1920implementation
    2021
    21 {$INCLUDE '..\Generic\StackImplementation.tpl'}
     22{$DEFINE IMPLEMENTATION}
     23{$INCLUDE '..\Generic\GenericStack.inc'}
    2224
    2325

  • Generics/TemplateGenerics/Specialized/StackString.pas

    r73 r83  
    1111  TStackIndex = Integer;
    1212  TStackItem = string;
    13 {$INCLUDE '..\Generic\StackInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericStack.inc'}
    1415
    1516type
    … …  
    1920implementation
    2021
    21 {$INCLUDE '..\Generic\StackImplementation.tpl'}
     22{$DEFINE IMPLEMENTATION}
     23{$INCLUDE '..\Generic\GenericStack.inc'}
    2224
    2325end.

  • Generics/TemplateGenerics/Specialized/TreeInteger.pas

    r71 r83  
    1111  TTreeIndex = Integer;
    1212  TTreeItem = Integer;
    13 {$INCLUDE '..\Generic\TreeInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericTree.inc'}
    1415
    1516type
    … …  
    2223implementation
    2324
    24 {$INCLUDE '..\Generic\TreeImplementation.tpl'}
     25{$DEFINE IMPLEMENTATION}
     26{$INCLUDE '..\Generic\GenericTree.inc'}
    2527
    2628

  • Generics/TemplateGenerics/Specialized/TreeObject.pas

    r71 r83  
    1111  TTreeIndex = Integer;
    1212  TTreeItem = TObject;
    13 {$INCLUDE '..\Generic\TreeInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericTree.inc'}
    1415
    1516type
    … …  
    2223implementation
    2324
    24 {$INCLUDE '..\Generic\TreeImplementation.tpl'}
     25{$DEFINE IMPLEMENTATION}
     26{$INCLUDE '..\Generic\GenericTree.inc'}
    2527
    2628

  • Generics/TemplateGenerics/Specialized/TreePointer.pas

    r71 r83  
    1111  TTreeIndex = Integer;
    1212  TTreeItem = Pointer;
    13 {$INCLUDE '..\Generic\TreeInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericTree.inc'}
    1415
    1516type
    … …  
    2223implementation
    2324
    24 {$INCLUDE '..\Generic\TreeImplementation.tpl'}
     25{$DEFINE IMPLEMENTATION}
     26{$INCLUDE '..\Generic\GenericTree.inc'}
    2527
    2628

  • Generics/TemplateGenerics/Specialized/TreeString.pas

    r71 r83  
    1111  TTreeIndex = Integer;
    1212  TTreeItem = string;
    13 {$INCLUDE '..\Generic\TreeInterface.tpl'}
     13{$DEFINE INTERFACE}
     14{$INCLUDE '..\Generic\GenericTree.inc'}
    1415
    1516type
    … …  
    2223implementation
    2324
    24 {$INCLUDE '..\Generic\TreeImplementation.tpl'}
     25{$DEFINE IMPLEMENTATION}
     26{$INCLUDE '..\Generic\GenericTree.inc'}
    2527
    2628
Note: See TracChangeset for help on using the changeset viewer.