Changeset 68 for Generics


Ignore:
Timestamp:
Oct 27, 2010, 3:35:31 PM (14 years ago)
Author:
george
Message:
  • Moved: Generic List moved to subfolder.
  • Added: Generic tree.
Location:
Generics/TemplateGenerics
Files:
15 added
4 deleted
4 edited

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/GenericListImplementation.tpl

    r66 r68  
    230230  I := 0;
    231231  while I < Count do begin
    232 //    Result := Result + string(Items[I]);
     232    Result := Result + string(Items[I]);
    233233    if I < (Count - 1) then
    234234      Result := Result + Separator;

  • Generics/TemplateGenerics/GenericListInterface.tpl

    r66 r68  
    1 // TGList<TIndexType, TItemType>
    21
    32resourcestring
    … …  
    87  //TGListNotification = (lnAdded, lnExtracted, lnDeleted);
    98
     9  // TGList<TIndexType, TItemType> = class
    1010  TGList = class
    1111  private

  • Generics/TemplateGenerics/TemplateGenerics.lpk

    r66 r68  
    88      <PathDelim Value="\"/>
    99      <SearchPaths>
    10         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\"/>
     10        <OtherUnitFiles Value="List;Tree"/>
     11        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    1112      </SearchPaths>
    1213      <Other>
    … …  
    1415      </Other>
    1516    </CompilerOptions>
    16     <Files Count="6">
     17    <Files Count="12">
    1718      <Item1>
    18         <Filename Value="GenericListImplementation.tpl"/>
    19         <Type Value="Text"/>
     19        <Filename Value="List\StringList.pas"/>
     20        <UnitName Value="StringList"/>
    2021      </Item1>
    2122      <Item2>
    22         <Filename Value="GenericListInterface.tpl"/>
     23        <Filename Value="List\GenericListImplementation.tpl"/>
    2324        <Type Value="Text"/>
    2425      </Item2>
    2526      <Item3>
    26         <Filename Value="IntegerList.pas"/>
    27         <UnitName Value="IntegerList"/>
     27        <Filename Value="List\GenericListInterface.tpl"/>
     28        <Type Value="Text"/>
    2829      </Item3>
    2930      <Item4>
    30         <Filename Value="ObjectList.pas"/>
    31         <UnitName Value="ObjectList"/>
     31        <Filename Value="List\IntegerList.pas"/>
     32        <UnitName Value="IntegerList"/>
    3233      </Item4>
    3334      <Item5>
    34         <Filename Value="PointerList.pas"/>
    35         <UnitName Value="PointerList"/>
     35        <Filename Value="List\ObjectList.pas"/>
     36        <UnitName Value="ObjectList"/>
    3637      </Item5>
    3738      <Item6>
    38         <Filename Value="StringList.pas"/>
    39         <UnitName Value="StringList"/>
     39        <Filename Value="List\PointerList.pas"/>
     40        <UnitName Value="PointerList"/>
    4041      </Item6>
     42      <Item7>
     43        <Filename Value="Tree\StringTree.pas"/>
     44        <UnitName Value="StringTree"/>
     45      </Item7>
     46      <Item8>
     47        <Filename Value="Tree\GenericTreeImplementation.tpl"/>
     48        <Type Value="Text"/>
     49      </Item8>
     50      <Item9>
     51        <Filename Value="Tree\GenericTreeInterface.tpl"/>
     52        <Type Value="Text"/>
     53      </Item9>
     54      <Item10>
     55        <Filename Value="Tree\IntegerTree.pas"/>
     56        <UnitName Value="IntegerTree"/>
     57      </Item10>
     58      <Item11>
     59        <Filename Value="Tree\ObjectTree.pas"/>
     60        <UnitName Value="ObjectTree"/>
     61      </Item11>
     62      <Item12>
     63        <Filename Value="Tree\PointerTree.pas"/>
     64        <UnitName Value="PointerTree"/>
     65      </Item12>
    4166    </Files>
    4267    <Type Value="RunAndDesignTime"/>

  • Generics/TemplateGenerics/TemplateGenerics.pas

    r66 r68  
    88
    99uses
    10   IntegerList, ObjectList, PointerList, StringList, LazarusPackageIntf;
     10    StringList, IntegerList, ObjectList, PointerList, StringTree, IntegerTree,
     11  ObjectTree, PointerTree, LazarusPackageIntf;
    1112
    1213implementation
Note: See TracChangeset for help on using the changeset viewer.