Ignore:
Timestamp:
Nov 8, 2010, 12:29:19 PM (14 years ago)
Author:
george
Message:
  • Modified: Last and First functions of TGList changed to properties.
Location:
Generics/TemplateGenerics/Demo
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/Demo/Demo.lpi

    r88 r90  
    3838      </Item2>
    3939    </RequiredPackages>
    40     <Units Count="91">
     40    <Units Count="94">
    4141      <Unit0>
    4242        <Filename Value="Demo.lpr"/>
    … …  
    4646        <TopLine Value="1"/>
    4747        <CursorPos X="26" Y="8"/>
    48         <UsageCount Value="63"/>
     48        <UsageCount Value="64"/>
    4949        <DefaultSyntaxHighlighter Value="Delphi"/>
    5050      </Unit0>
    … …  
    5959        <WindowIndex Value="0"/>
    6060        <TopLine Value="1"/>
    61         <CursorPos X="35" Y="10"/>
    62         <UsageCount Value="63"/>
     61        <CursorPos X="15" Y="33"/>
     62        <UsageCount Value="64"/>
    6363        <Loaded Value="True"/>
    6464        <LoadedDesigner Value="True"/>
    … …  
    679679      <Unit78>
    680680        <Filename Value="../Generic/GenericList.inc"/>
    681         <EditorIndex Value="13"/>
     681        <EditorIndex Value="16"/>
    682682        <WindowIndex Value="0"/>
    683683        <TopLine Value="58"/>
    684684        <CursorPos X="86" Y="71"/>
    685         <UsageCount Value="13"/>
     685        <UsageCount Value="14"/>
    686686        <Loaded Value="True"/>
    687687      </Unit78>
    688688      <Unit79>
    689689        <Filename Value="../Generic/GenericDictionary.inc"/>
    690         <EditorIndex Value="1"/>
     690        <EditorIndex Value="3"/>
    691691        <WindowIndex Value="0"/>
    692692        <TopLine Value="1"/>
    693693        <CursorPos X="1" Y="10"/>
    694         <UsageCount Value="13"/>
     694        <UsageCount Value="14"/>
    695695        <Loaded Value="True"/>
    696696      </Unit79>
    697697      <Unit80>
    698698        <Filename Value="../Generic/GenericObjectList.inc"/>
    699         <EditorIndex Value="3"/>
     699        <EditorIndex Value="5"/>
    700700        <WindowIndex Value="0"/>
    701701        <TopLine Value="34"/>
    702702        <CursorPos X="8" Y="56"/>
    703         <UsageCount Value="13"/>
     703        <UsageCount Value="14"/>
    704704        <Loaded Value="True"/>
    705705      </Unit80>
    706706      <Unit81>
    707707        <Filename Value="../Generic/GenericQueue.inc"/>
    708         <EditorIndex Value="6"/>
     708        <EditorIndex Value="9"/>
    709709        <WindowIndex Value="0"/>
    710710        <TopLine Value="1"/>
    711711        <CursorPos X="1" Y="3"/>
    712         <UsageCount Value="13"/>
     712        <UsageCount Value="14"/>
    713713        <Loaded Value="True"/>
    714714      </Unit81>
    715715      <Unit82>
    716716        <Filename Value="../Generic/GenericSet.inc"/>
    717         <EditorIndex Value="11"/>
     717        <EditorIndex Value="14"/>
    718718        <WindowIndex Value="0"/>
    719719        <TopLine Value="1"/>
    720720        <CursorPos X="42" Y="11"/>
    721         <UsageCount Value="13"/>
     721        <UsageCount Value="14"/>
    722722        <Loaded Value="True"/>
    723723      </Unit82>
    724724      <Unit83>
    725725        <Filename Value="../Generic/GenericStack.inc"/>
    726         <EditorIndex Value="10"/>
     726        <EditorIndex Value="13"/>
    727727        <WindowIndex Value="0"/>
    728728        <TopLine Value="1"/>
    729729        <CursorPos X="1" Y="3"/>
    730         <UsageCount Value="13"/>
     730        <UsageCount Value="14"/>
    731731        <Loaded Value="True"/>
    732732      </Unit83>
    733733      <Unit84>
    734734        <Filename Value="../Generic/GenericTree.inc"/>
    735         <EditorIndex Value="12"/>
     735        <EditorIndex Value="15"/>
    736736        <WindowIndex Value="0"/>
    737737        <TopLine Value="1"/>
    738738        <CursorPos X="22" Y="30"/>
    739         <UsageCount Value="13"/>
     739        <UsageCount Value="14"/>
    740740        <Loaded Value="True"/>
    741741      </Unit84>
    … …  
    743743        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    744744        <UnitName Value="SpecializedDictionary"/>
    745         <EditorIndex Value="8"/>
     745        <EditorIndex Value="11"/>
    746746        <WindowIndex Value="0"/>
    747747        <TopLine Value="1"/>
    748748        <CursorPos X="1" Y="13"/>
    749         <UsageCount Value="12"/>
     749        <UsageCount Value="13"/>
    750750        <Loaded Value="True"/>
    751751      </Unit85>
    … …  
    753753        <Filename Value="../Specialized/SpecializedStack.pas"/>
    754754        <UnitName Value="SpecializedStack"/>
    755         <EditorIndex Value="9"/>
     755        <EditorIndex Value="12"/>
    756756        <WindowIndex Value="0"/>
    757757        <TopLine Value="1"/>
    758758        <CursorPos X="1" Y="13"/>
    759         <UsageCount Value="11"/>
     759        <UsageCount Value="12"/>
    760760        <Loaded Value="True"/>
    761761      </Unit86>
    … …  
    763763        <Filename Value="../Specialized/SpecializedTree.pas"/>
    764764        <UnitName Value="SpecializedTree"/>
    765         <EditorIndex Value="2"/>
     765        <EditorIndex Value="4"/>
    766766        <WindowIndex Value="0"/>
    767767        <TopLine Value="1"/>
    768768        <CursorPos X="1" Y="11"/>
    769         <UsageCount Value="11"/>
     769        <UsageCount Value="12"/>
    770770        <Loaded Value="True"/>
    771771      </Unit87>
    772772      <Unit88>
    773773        <Filename Value="../Generic/GenericRange.inc"/>
    774         <EditorIndex Value="7"/>
     774        <EditorIndex Value="10"/>
    775775        <WindowIndex Value="0"/>
    776776        <TopLine Value="1"/>
    777777        <CursorPos X="1" Y="44"/>
    778         <UsageCount Value="11"/>
     778        <UsageCount Value="12"/>
    779779        <Loaded Value="True"/>
    780780      </Unit88>
    … …  
    782782        <Filename Value="../Specialized/SpecializedQueue.pas"/>
    783783        <UnitName Value="SpecializedQueue"/>
    784         <EditorIndex Value="4"/>
     784        <EditorIndex Value="6"/>
    785785        <WindowIndex Value="0"/>
    786786        <TopLine Value="1"/>
    787787        <CursorPos X="1" Y="13"/>
    788         <UsageCount Value="11"/>
     788        <UsageCount Value="12"/>
    789789        <Loaded Value="True"/>
    790790      </Unit89>
    … …  
    792792        <Filename Value="../Specialized/SpecializedSet.pas"/>
    793793        <UnitName Value="SpecializedSet"/>
    794         <EditorIndex Value="5"/>
     794        <EditorIndex Value="8"/>
    795795        <WindowIndex Value="0"/>
    796796        <TopLine Value="1"/>
    797797        <CursorPos X="1" Y="13"/>
     798        <UsageCount Value="12"/>
     799        <Loaded Value="True"/>
     800      </Unit90>
     801      <Unit91>
     802        <Filename Value="../Generic/GenericPoint.inc"/>
     803        <EditorIndex Value="1"/>
     804        <WindowIndex Value="0"/>
     805        <TopLine Value="1"/>
     806        <CursorPos X="33" Y="5"/>
    798807        <UsageCount Value="11"/>
    799808        <Loaded Value="True"/>
    800       </Unit90>
     809      </Unit91>
     810      <Unit92>
     811        <Filename Value="../Specialized/SpecializedPoint.pas"/>
     812        <UnitName Value="SpecializedPoint"/>
     813        <EditorIndex Value="2"/>
     814        <WindowIndex Value="0"/>
     815        <TopLine Value="1"/>
     816        <CursorPos X="1" Y="1"/>
     817        <UsageCount Value="11"/>
     818        <Loaded Value="True"/>
     819      </Unit92>
     820      <Unit93>
     821        <Filename Value="../Specialized/SpecializedObjectList.pas"/>
     822        <UnitName Value="SpecializedObjectList"/>
     823        <EditorIndex Value="7"/>
     824        <WindowIndex Value="0"/>
     825        <TopLine Value="1"/>
     826        <CursorPos X="1" Y="1"/>
     827        <UsageCount Value="11"/>
     828        <Loaded Value="True"/>
     829      </Unit93>
    801830    </Units>
    802     <JumpHistory Count="29" HistoryIndex="28">
     831    <JumpHistory Count="30" HistoryIndex="29">
    803832      <Position1>
    804833        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    805         <Caret Line="22" Column="23" TopLine="1"/>
     834        <Caret Line="19" Column="42" TopLine="1"/>
    806835      </Position1>
    807836      <Position2>
    808837        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    809         <Caret Line="19" Column="42" TopLine="1"/>
     838        <Caret Line="18" Column="24" TopLine="1"/>
    810839      </Position2>
    811840      <Position3>
    812841        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    813         <Caret Line="18" Column="24" TopLine="1"/>
     842        <Caret Line="19" Column="43" TopLine="1"/>
    814843      </Position3>
    815844      <Position4>
    816845        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    817         <Caret Line="19" Column="43" TopLine="1"/>
     846        <Caret Line="39" Column="5" TopLine="3"/>
    818847      </Position4>
    819848      <Position5>
    820         <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    821         <Caret Line="39" Column="5" TopLine="3"/>
     849        <Filename Value="../Specialized/SpecializedStack.pas"/>
     850        <Caret Line="19" Column="36" TopLine="1"/>
    822851      </Position5>
    823852      <Position6>
    824853        <Filename Value="../Specialized/SpecializedStack.pas"/>
    825         <Caret Line="19" Column="36" TopLine="1"/>
     854        <Caret Line="5" Column="1" TopLine="1"/>
    826855      </Position6>
    827856      <Position7>
    828         <Filename Value="../Specialized/SpecializedStack.pas"/>
    829         <Caret Line="5" Column="1" TopLine="1"/>
     857        <Filename Value="../Generic/GenericStack.inc"/>
     858        <Caret Line="28" Column="34" TopLine="13"/>
    830859      </Position7>
    831860      <Position8>
    832         <Filename Value="../Generic/GenericStack.inc"/>
    833         <Caret Line="28" Column="34" TopLine="13"/>
     861        <Filename Value="UMainForm.pas"/>
     862        <Caret Line="9" Column="7" TopLine="1"/>
    834863      </Position8>
    835864      <Position9>
    836865        <Filename Value="UMainForm.pas"/>
    837         <Caret Line="9" Column="7" TopLine="1"/>
     866        <Caret Line="10" Column="20" TopLine="1"/>
    838867      </Position9>
    839868      <Position10>
    840869        <Filename Value="UMainForm.pas"/>
    841         <Caret Line="10" Column="20" TopLine="1"/>
     870        <Caret Line="20" Column="49" TopLine="1"/>
    842871      </Position10>
    843872      <Position11>
    844873        <Filename Value="UMainForm.pas"/>
    845         <Caret Line="20" Column="49" TopLine="1"/>
     874        <Caret Line="22" Column="35" TopLine="1"/>
    846875      </Position11>
    847876      <Position12>
    848877        <Filename Value="UMainForm.pas"/>
    849         <Caret Line="22" Column="35" TopLine="1"/>
     878        <Caret Line="110" Column="12" TopLine="81"/>
    850879      </Position12>
    851880      <Position13>
    852881        <Filename Value="UMainForm.pas"/>
    853         <Caret Line="110" Column="12" TopLine="81"/>
     882        <Caret Line="133" Column="9" TopLine="103"/>
    854883      </Position13>
    855884      <Position14>
    856885        <Filename Value="UMainForm.pas"/>
    857         <Caret Line="133" Column="9" TopLine="103"/>
     886        <Caret Line="162" Column="7" TopLine="136"/>
    858887      </Position14>
    859888      <Position15>
    860889        <Filename Value="UMainForm.pas"/>
    861         <Caret Line="162" Column="7" TopLine="136"/>
     890        <Caret Line="171" Column="1" TopLine="152"/>
    862891      </Position15>
    863892      <Position16>
    864893        <Filename Value="UMainForm.pas"/>
    865         <Caret Line="171" Column="1" TopLine="152"/>
     894        <Caret Line="190" Column="7" TopLine="165"/>
    866895      </Position16>
    867896      <Position17>
    868897        <Filename Value="UMainForm.pas"/>
    869         <Caret Line="190" Column="7" TopLine="165"/>
     898        <Caret Line="188" Column="5" TopLine="168"/>
    870899      </Position17>
    871900      <Position18>
    872901        <Filename Value="UMainForm.pas"/>
    873         <Caret Line="188" Column="5" TopLine="168"/>
     902        <Caret Line="393" Column="5" TopLine="364"/>
    874903      </Position18>
    875904      <Position19>
    876         <Filename Value="UMainForm.pas"/>
    877         <Caret Line="393" Column="5" TopLine="364"/>
     905        <Filename Value="../Specialized/SpecializedQueue.pas"/>
     906        <Caret Line="33" Column="32" TopLine="1"/>
    878907      </Position19>
    879908      <Position20>
    880909        <Filename Value="../Specialized/SpecializedQueue.pas"/>
    881         <Caret Line="33" Column="32" TopLine="1"/>
     910        <Caret Line="20" Column="34" TopLine="1"/>
    882911      </Position20>
    883912      <Position21>
    884         <Filename Value="../Specialized/SpecializedQueue.pas"/>
    885         <Caret Line="20" Column="34" TopLine="1"/>
     913        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
     914        <Caret Line="22" Column="36" TopLine="1"/>
    886915      </Position21>
    887916      <Position22>
     917        <Filename Value="UMainForm.pas"/>
     918        <Caret Line="469" Column="3" TopLine="439"/>
     919      </Position22>
     920      <Position23>
     921        <Filename Value="../Generic/GenericObjectList.inc"/>
     922        <Caret Line="14" Column="55" TopLine="1"/>
     923      </Position23>
     924      <Position24>
     925        <Filename Value="UMainForm.pas"/>
     926        <Caret Line="89" Column="20" TopLine="70"/>
     927      </Position24>
     928      <Position25>
    888929        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    889930        <Caret Line="22" Column="36" TopLine="1"/>
    890       </Position22>
    891       <Position23>
    892         <Filename Value="UMainForm.pas"/>
    893         <Caret Line="469" Column="3" TopLine="439"/>
    894       </Position23>
    895       <Position24>
    896         <Filename Value="../Generic/GenericObjectList.inc"/>
    897         <Caret Line="14" Column="55" TopLine="1"/>
    898       </Position24>
    899       <Position25>
    900         <Filename Value="UMainForm.pas"/>
    901         <Caret Line="89" Column="20" TopLine="70"/>
    902931      </Position25>
    903932      <Position26>
    904         <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    905         <Caret Line="22" Column="36" TopLine="1"/>
     933        <Filename Value="../Generic/GenericTree.inc"/>
     934        <Caret Line="33" Column="25" TopLine="12"/>
    906935      </Position26>
    907936      <Position27>
    908         <Filename Value="../Generic/GenericTree.inc"/>
    909         <Caret Line="33" Column="25" TopLine="12"/>
     937        <Filename Value="../Specialized/SpecializedTree.pas"/>
     938        <Caret Line="82" Column="5" TopLine="47"/>
    910939      </Position27>
    911940      <Position28>
    912         <Filename Value="../Specialized/SpecializedTree.pas"/>
    913         <Caret Line="82" Column="5" TopLine="47"/>
     941        <Filename Value="UMainForm.pas"/>
     942        <Caret Line="360" Column="51" TopLine="342"/>
    914943      </Position28>
    915944      <Position29>
    916         <Filename Value="UMainForm.pas"/>
    917         <Caret Line="360" Column="51" TopLine="342"/>
     945        <Filename Value="../Generic/GenericPoint.inc"/>
     946        <Caret Line="6" Column="1" TopLine="1"/>
    918947      </Position29>
     948      <Position30>
     949        <Filename Value="../Generic/GenericPoint.inc"/>
     950        <Caret Line="12" Column="62" TopLine="1"/>
     951      </Position30>
    919952    </JumpHistory>
    920953  </ProjectOptions>

  • Generics/TemplateGenerics/Demo/UMainForm.lfm

    r88 r90  
    11object MainForm: TMainForm
    2   Left = 379
     2  Left = 388
    33  Height = 397
    4   Top = 129
     4  Top = 121
    55  Width = 478
    66  Caption = 'Template generics demo'
    … …  
    6868    Left = 8
    6969    Height = 25
    70     Top = 352
     70    Top = 367
    7171    Width = 128
    7272    Caption = 'Benchmark list'
    … …  
    8686    Left = 10
    8787    Height = 25
    88     Top = 320
     88    Top = 336
    8989    Width = 126
    9090    Caption = 'Benchmark dictionary'
Note: See TracChangeset for help on using the changeset viewer.