Ignore:
Timestamp:
Sep 8, 2012, 9:28:39 PM (12 years ago)
Author:
chronos
Message:
  • Updated: Component versions.
  • Added: Missing forms.
Location:
trunk
Files:
5 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/Demo/Demo.lpi

    r29 r30  
    3333      <Item1>
    3434        <PackageName Value="TemplateGenerics"/>
     35        <DefaultFilename Value="../TemplateGenerics.lpk" Prefer="True"/>
    3536      </Item1>
    3637      <Item2>
    … …  
    3839      </Item2>
    3940    </RequiredPackages>
    40     <Units Count="62">
     41    <Units Count="75">
    4142      <Unit0>
    4243        <Filename Value="Demo.lpr"/>
    … …  
    5758        <EditorIndex Value="0"/>
    5859        <WindowIndex Value="0"/>
    59         <TopLine Value="232"/>
    60         <CursorPos X="19" Y="237"/>
     60        <TopLine Value="640"/>
     61        <CursorPos X="20" Y="653"/>
    6162        <UsageCount Value="233"/>
    6263        <Bookmarks Count="1">
    63           <Item0 X="65" Y="224" ID="2"/>
     64          <Item0 X="65" Y="275" ID="2"/>
    6465        </Bookmarks>
    6566        <Loaded Value="True"/>
    … …  
    7374        <TopLine Value="1"/>
    7475        <CursorPos X="1" Y="11"/>
    75         <UsageCount Value="4"/>
     76        <UsageCount Value="3"/>
    7677      </Unit2>
    7778      <Unit3>
    7879        <Filename Value="../Specialized/SpecializedList.pas"/>
    7980        <UnitName Value="SpecializedList"/>
    80         <EditorIndex Value="2"/>
    81         <WindowIndex Value="0"/>
    82         <TopLine Value="3"/>
    83         <CursorPos X="43" Y="13"/>
    84         <UsageCount Value="10"/>
     81        <EditorIndex Value="3"/>
     82        <WindowIndex Value="0"/>
     83        <TopLine Value="47"/>
     84        <CursorPos X="20" Y="60"/>
     85        <UsageCount Value="15"/>
    8586        <Loaded Value="True"/>
    8687      </Unit3>
    … …  
    9192        <TopLine Value="33"/>
    9293        <CursorPos X="12" Y="56"/>
    93         <UsageCount Value="4"/>
     94        <UsageCount Value="3"/>
    9495      </Unit4>
    9596      <Unit5>
    … …  
    99100        <TopLine Value="1"/>
    100101        <CursorPos X="23" Y="21"/>
    101         <UsageCount Value="4"/>
     102        <UsageCount Value="3"/>
    102103      </Unit5>
    103104      <Unit6>
    … …  
    107108        <TopLine Value="1"/>
    108109        <CursorPos X="23" Y="24"/>
    109         <UsageCount Value="4"/>
     110        <UsageCount Value="3"/>
    110111      </Unit6>
    111112      <Unit7>
    … …  
    115116        <TopLine Value="1"/>
    116117        <CursorPos X="23" Y="13"/>
    117         <UsageCount Value="4"/>
     118        <UsageCount Value="3"/>
    118119      </Unit7>
    119120      <Unit8>
    … …  
    123124        <TopLine Value="1"/>
    124125        <CursorPos X="23" Y="24"/>
    125         <UsageCount Value="4"/>
     126        <UsageCount Value="3"/>
    126127      </Unit8>
    127128      <Unit9>
    … …  
    131132        <TopLine Value="1"/>
    132133        <CursorPos X="31" Y="13"/>
    133         <UsageCount Value="4"/>
     134        <UsageCount Value="3"/>
    134135      </Unit9>
    135136      <Unit10>
    … …  
    139140        <TopLine Value="1"/>
    140141        <CursorPos X="29" Y="17"/>
    141         <UsageCount Value="4"/>
     142        <UsageCount Value="3"/>
    142143      </Unit10>
    143144      <Unit11>
    … …  
    146147        <TopLine Value="1"/>
    147148        <CursorPos X="1" Y="4"/>
    148         <UsageCount Value="4"/>
     149        <UsageCount Value="3"/>
    149150        <DefaultSyntaxHighlighter Value="None"/>
    150151      </Unit11>
    … …  
    154155        <TopLine Value="1"/>
    155156        <CursorPos X="21" Y="6"/>
    156         <UsageCount Value="4"/>
     157        <UsageCount Value="3"/>
    157158        <DefaultSyntaxHighlighter Value="None"/>
    158159      </Unit12>
    … …  
    162163        <TopLine Value="1"/>
    163164        <CursorPos X="1" Y="1"/>
    164         <UsageCount Value="4"/>
     165        <UsageCount Value="3"/>
    165166        <DefaultSyntaxHighlighter Value="None"/>
    166167      </Unit13>
    … …  
    170171        <TopLine Value="1"/>
    171172        <CursorPos X="25" Y="13"/>
    172         <UsageCount Value="5"/>
     173        <UsageCount Value="4"/>
    173174        <DefaultSyntaxHighlighter Value="None"/>
    174175      </Unit14>
    … …  
    178179        <TopLine Value="4"/>
    179180        <CursorPos X="3" Y="6"/>
    180         <UsageCount Value="4"/>
     181        <UsageCount Value="3"/>
    181182        <DefaultSyntaxHighlighter Value="None"/>
    182183      </Unit15>
    … …  
    186187        <TopLine Value="1"/>
    187188        <CursorPos X="14" Y="16"/>
    188         <UsageCount Value="4"/>
     189        <UsageCount Value="3"/>
    189190        <DefaultSyntaxHighlighter Value="None"/>
    190191      </Unit16>
    … …  
    195196        <TopLine Value="1"/>
    196197        <CursorPos X="32" Y="18"/>
    197         <UsageCount Value="4"/>
     198        <UsageCount Value="3"/>
    198199      </Unit17>
    199200      <Unit18>
    … …  
    202203        <TopLine Value="1"/>
    203204        <CursorPos X="20" Y="12"/>
    204         <UsageCount Value="2"/>
     205        <UsageCount Value="1"/>
    205206        <DefaultSyntaxHighlighter Value="None"/>
    206207      </Unit18>
    … …  
    211212        <TopLine Value="1"/>
    212213        <CursorPos X="1" Y="22"/>
    213         <UsageCount Value="2"/>
     214        <UsageCount Value="1"/>
    214215      </Unit19>
    215216      <Unit20>
    … …  
    218219        <TopLine Value="1"/>
    219220        <CursorPos X="1" Y="1"/>
    220         <UsageCount Value="2"/>
     221        <UsageCount Value="1"/>
    221222        <DefaultSyntaxHighlighter Value="None"/>
    222223      </Unit20>
    … …  
    226227        <TopLine Value="1"/>
    227228        <CursorPos X="1" Y="3"/>
    228         <UsageCount Value="2"/>
     229        <UsageCount Value="1"/>
    229230        <DefaultSyntaxHighlighter Value="None"/>
    230231      </Unit21>
    … …  
    234235        <TopLine Value="1"/>
    235236        <CursorPos X="1" Y="3"/>
    236         <UsageCount Value="2"/>
     237        <UsageCount Value="1"/>
    237238        <DefaultSyntaxHighlighter Value="None"/>
    238239      </Unit22>
    … …  
    243244        <TopLine Value="45"/>
    244245        <CursorPos X="9" Y="79"/>
    245         <UsageCount Value="1"/>
     246        <UsageCount Value="10"/>
    246247      </Unit23>
    247248      <Unit24>
    … …  
    250251        <TopLine Value="1"/>
    251252        <CursorPos X="21" Y="4"/>
    252         <UsageCount Value="6"/>
     253        <UsageCount Value="5"/>
    253254        <DefaultSyntaxHighlighter Value="None"/>
    254255      </Unit24>
    … …  
    259260        <TopLine Value="1"/>
    260261        <CursorPos X="1" Y="25"/>
    261         <UsageCount Value="6"/>
     262        <UsageCount Value="5"/>
    262263      </Unit25>
    263264      <Unit26>
    … …  
    266267        <TopLine Value="1"/>
    267268        <CursorPos X="1" Y="3"/>
    268         <UsageCount Value="6"/>
     269        <UsageCount Value="5"/>
    269270        <DefaultSyntaxHighlighter Value="None"/>
    270271      </Unit26>
    … …  
    274275        <TopLine Value="1"/>
    275276        <CursorPos X="7" Y="4"/>
    276         <UsageCount Value="6"/>
     277        <UsageCount Value="5"/>
    277278        <DefaultSyntaxHighlighter Value="None"/>
    278279      </Unit27>
    … …  
    283284        <TopLine Value="1"/>
    284285        <CursorPos X="14" Y="15"/>
    285         <UsageCount Value="6"/>
     286        <UsageCount Value="5"/>
    286287      </Unit28>
    287288      <Unit29>
    … …  
    290291        <TopLine Value="1"/>
    291292        <CursorPos X="14" Y="18"/>
    292         <UsageCount Value="6"/>
     293        <UsageCount Value="5"/>
    293294        <DefaultSyntaxHighlighter Value="None"/>
    294295      </Unit29>
    … …  
    299300        <TopLine Value="2"/>
    300301        <CursorPos X="30" Y="8"/>
    301         <UsageCount Value="6"/>
     302        <UsageCount Value="5"/>
    302303      </Unit30>
    303304      <Unit31>
    … …  
    307308        <TopLine Value="13"/>
    308309        <CursorPos X="15" Y="12"/>
    309         <UsageCount Value="8"/>
     310        <UsageCount Value="7"/>
    310311        <DefaultSyntaxHighlighter Value="Delphi"/>
    311312      </Unit31>
    312313      <Unit32>
    313314        <Filename Value="../Generic/GenericList.inc"/>
    314         <IsVisibleTab Value="True"/>
    315         <EditorIndex Value="6"/>
    316         <WindowIndex Value="0"/>
    317         <TopLine Value="462"/>
    318         <CursorPos X="40" Y="470"/>
     315        <EditorIndex Value="4"/>
     316        <WindowIndex Value="0"/>
     317        <TopLine Value="42"/>
     318        <CursorPos X="15" Y="55"/>
    319319        <UsageCount Value="107"/>
    320320        <Loaded Value="True"/>
    … …  
    325325        <TopLine Value="31"/>
    326326        <CursorPos X="44" Y="47"/>
    327         <UsageCount Value="94"/>
     327        <UsageCount Value="93"/>
    328328      </Unit33>
    329329      <Unit34>
    … …  
    332332        <TopLine Value="1"/>
    333333        <CursorPos X="36" Y="48"/>
    334         <UsageCount Value="94"/>
     334        <UsageCount Value="93"/>
    335335      </Unit34>
    336336      <Unit35>
    … …  
    339339        <TopLine Value="3"/>
    340340        <CursorPos X="1" Y="3"/>
    341         <UsageCount Value="94"/>
     341        <UsageCount Value="93"/>
    342342      </Unit35>
    343343      <Unit36>
    … …  
    346346        <TopLine Value="11"/>
    347347        <CursorPos X="42" Y="11"/>
    348         <UsageCount Value="94"/>
     348        <UsageCount Value="93"/>
    349349      </Unit36>
    350350      <Unit37>
    … …  
    353353        <TopLine Value="3"/>
    354354        <CursorPos X="1" Y="3"/>
    355         <UsageCount Value="94"/>
     355        <UsageCount Value="93"/>
    356356      </Unit37>
    357357      <Unit38>
    … …  
    360360        <TopLine Value="1"/>
    361361        <CursorPos X="22" Y="30"/>
    362         <UsageCount Value="94"/>
     362        <UsageCount Value="93"/>
    363363      </Unit38>
    364364      <Unit39>
    … …  
    368368        <TopLine Value="6"/>
    369369        <CursorPos X="56" Y="36"/>
    370         <UsageCount Value="93"/>
     370        <UsageCount Value="92"/>
    371371      </Unit39>
    372372      <Unit40>
    … …  
    376376        <TopLine Value="27"/>
    377377        <CursorPos X="50" Y="59"/>
    378         <UsageCount Value="92"/>
     378        <UsageCount Value="91"/>
    379379      </Unit40>
    380380      <Unit41>
    … …  
    384384        <TopLine Value="57"/>
    385385        <CursorPos X="48" Y="85"/>
    386         <UsageCount Value="92"/>
     386        <UsageCount Value="91"/>
    387387      </Unit41>
    388388      <Unit42>
    … …  
    391391        <TopLine Value="1"/>
    392392        <CursorPos X="33" Y="14"/>
    393         <UsageCount Value="92"/>
     393        <UsageCount Value="91"/>
    394394      </Unit42>
    395395      <Unit43>
    … …  
    399399        <TopLine Value="52"/>
    400400        <CursorPos X="1" Y="81"/>
    401         <UsageCount Value="92"/>
     401        <UsageCount Value="91"/>
    402402      </Unit43>
    403403      <Unit44>
    … …  
    407407        <TopLine Value="29"/>
    408408        <CursorPos X="1" Y="62"/>
    409         <UsageCount Value="92"/>
     409        <UsageCount Value="91"/>
    410410      </Unit44>
    411411      <Unit45>
    … …  
    415415        <TopLine Value="9"/>
    416416        <CursorPos X="60" Y="36"/>
    417         <UsageCount Value="91"/>
     417        <UsageCount Value="90"/>
    418418      </Unit45>
    419419      <Unit46>
    420420        <Filename Value="../Generic/GenericMatrix.inc"/>
    421         <EditorIndex Value="7"/>
    422         <WindowIndex Value="0"/>
    423         <TopLine Value="311"/>
    424         <CursorPos X="48" Y="331"/>
    425         <UsageCount Value="103"/>
    426         <Loaded Value="True"/>
     421        <WindowIndex Value="0"/>
     422        <TopLine Value="9"/>
     423        <CursorPos X="28" Y="23"/>
     424        <UsageCount Value="102"/>
    427425      </Unit46>
    428426      <Unit47>
    429         <Filename Value="../../../../../lazarus/trunk/lcl/graphics.pp"/>
     427        <Filename Value="../../../../lazarus/trunk/lcl/graphics.pp"/>
    430428        <UnitName Value="Graphics"/>
    431429        <WindowIndex Value="0"/>
    432430        <TopLine Value="2624"/>
    433431        <CursorPos X="37" Y="2636"/>
    434         <UsageCount Value="90"/>
     432        <UsageCount Value="89"/>
     433        <DefaultSyntaxHighlighter Value="Delphi"/>
    435434      </Unit47>
    436435      <Unit48>
    437         <Filename Value="../../../../../lazarus/trunk/lcl/interfaces/carbon/issues.xml"/>
     436        <Filename Value="../../../../lazarus/trunk/lcl/interfaces/carbon/issues.xml"/>
    438437        <WindowIndex Value="0"/>
    439438        <TopLine Value="94"/>
    440439        <CursorPos X="1" Y="1"/>
    441         <UsageCount Value="6"/>
     440        <UsageCount Value="5"/>
    442441        <DefaultSyntaxHighlighter Value="XML"/>
    443442      </Unit48>
    … …  
    447446        <TopLine Value="199"/>
    448447        <CursorPos X="14" Y="213"/>
    449         <UsageCount Value="28"/>
     448        <UsageCount Value="27"/>
     449        <DefaultSyntaxHighlighter Value="Delphi"/>
    450450      </Unit49>
    451451      <Unit50>
    … …  
    454454        <TopLine Value="199"/>
    455455        <CursorPos X="3" Y="201"/>
    456         <UsageCount Value="28"/>
     456        <UsageCount Value="27"/>
     457        <DefaultSyntaxHighlighter Value="Delphi"/>
    457458      </Unit50>
    458459      <Unit51>
    459460        <Filename Value="../Generic/GenericListObject.inc"/>
    460         <WindowIndex Value="0"/>
    461         <TopLine Value="1"/>
    462         <CursorPos X="21" Y="20"/>
    463         <UsageCount Value="19"/>
     461        <EditorIndex Value="5"/>
     462        <WindowIndex Value="0"/>
     463        <TopLine Value="11"/>
     464        <CursorPos X="34" Y="24"/>
     465        <UsageCount Value="21"/>
     466        <Loaded Value="True"/>
    464467      </Unit51>
    465468      <Unit52>
    … …  
    469472        <TopLine Value="1"/>
    470473        <CursorPos X="27" Y="26"/>
    471         <UsageCount Value="28"/>
     474        <UsageCount Value="27"/>
     475        <DefaultSyntaxHighlighter Value="Delphi"/>
    472476      </Unit52>
    473477      <Unit53>
    … …  
    476480        <TopLine Value="381"/>
    477481        <CursorPos X="3" Y="398"/>
    478         <UsageCount Value="28"/>
     482        <UsageCount Value="27"/>
     483        <DefaultSyntaxHighlighter Value="Delphi"/>
    479484      </Unit53>
    480485      <Unit54>
    … …  
    483488        <TopLine Value="475"/>
    484489        <CursorPos X="10" Y="503"/>
    485         <UsageCount Value="7"/>
     490        <UsageCount Value="6"/>
     491        <DefaultSyntaxHighlighter Value="Delphi"/>
    486492      </Unit54>
    487493      <Unit55>
    488         <Filename Value="../../../../../lazarus/trunk/lcl/include/control.inc"/>
     494        <Filename Value="../../../../lazarus/trunk/lcl/include/control.inc"/>
    489495        <WindowIndex Value="0"/>
    490496        <TopLine Value="2270"/>
    491497        <CursorPos X="22" Y="2273"/>
    492         <UsageCount Value="19"/>
     498        <UsageCount Value="18"/>
     499        <DefaultSyntaxHighlighter Value="Delphi"/>
    493500      </Unit55>
    494501      <Unit56>
    495502        <Filename Value="../Specialized/SpecializedMatrix.pas"/>
    496503        <UnitName Value="SpecializedMatrix"/>
    497         <EditorIndex Value="8"/>
    498         <WindowIndex Value="0"/>
    499         <TopLine Value="31"/>
    500         <CursorPos X="38" Y="62"/>
     504        <WindowIndex Value="0"/>
     505        <TopLine Value="1"/>
     506        <CursorPos X="25" Y="41"/>
    501507        <UsageCount Value="19"/>
    502         <Loaded Value="True"/>
    503508      </Unit56>
    504509      <Unit57>
    … …  
    507512        <TopLine Value="1"/>
    508513        <CursorPos X="28" Y="10"/>
    509         <UsageCount Value="9"/>
     514        <UsageCount Value="8"/>
    510515        <DefaultSyntaxHighlighter Value="None"/>
    511516      </Unit57>
    512517      <Unit58>
    513         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/dateutil.inc"/>
    514         <EditorIndex Value="5"/>
     518        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/dateutil.inc"/>
    515519        <WindowIndex Value="0"/>
    516520        <TopLine Value="38"/>
    517521        <CursorPos X="3" Y="50"/>
    518         <UsageCount Value="11"/>
    519         <Loaded Value="True"/>
     522        <UsageCount Value="10"/>
     523        <DefaultSyntaxHighlighter Value="Delphi"/>
    520524      </Unit58>
    521525      <Unit59>
    522         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
    523         <EditorIndex Value="1"/>
     526        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
    524527        <WindowIndex Value="0"/>
    525528        <TopLine Value="649"/>
    526529        <CursorPos X="38" Y="671"/>
    527         <UsageCount Value="10"/>
    528         <Loaded Value="True"/>
     530        <UsageCount Value="9"/>
     531        <DefaultSyntaxHighlighter Value="Delphi"/>
    529532      </Unit59>
    530533      <Unit60>
    531         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/stringl.inc"/>
    532         <EditorIndex Value="4"/>
     534        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/stringl.inc"/>
    533535        <WindowIndex Value="0"/>
    534536        <TopLine Value="1185"/>
    535537        <CursorPos X="22" Y="1196"/>
    536         <UsageCount Value="10"/>
    537         <Loaded Value="True"/>
     538        <UsageCount Value="9"/>
     539        <DefaultSyntaxHighlighter Value="Delphi"/>
    538540      </Unit60>
    539541      <Unit61>
    540         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/types.pp"/>
     542        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/types.pp"/>
    541543        <UnitName Value="types"/>
    542         <EditorIndex Value="3"/>
    543544        <WindowIndex Value="0"/>
    544545        <TopLine Value="112"/>
    545546        <CursorPos X="3" Y="124"/>
     547        <UsageCount Value="9"/>
     548        <DefaultSyntaxHighlighter Value="Delphi"/>
     549      </Unit61>
     550      <Unit62>
     551        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/sysutils/sysstrh.inc"/>
     552        <WindowIndex Value="0"/>
     553        <TopLine Value="71"/>
     554        <CursorPos X="10" Y="84"/>
     555        <UsageCount Value="9"/>
     556        <DefaultSyntaxHighlighter Value="Delphi"/>
     557      </Unit62>
     558      <Unit63>
     559        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/sysutils/sysstr.inc"/>
     560        <WindowIndex Value="0"/>
     561        <TopLine Value="148"/>
     562        <CursorPos X="11" Y="169"/>
     563        <UsageCount Value="9"/>
     564        <DefaultSyntaxHighlighter Value="Delphi"/>
     565      </Unit63>
     566      <Unit64>
     567        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/inc/systemh.inc"/>
     568        <WindowIndex Value="0"/>
     569        <TopLine Value="511"/>
     570        <CursorPos X="11" Y="524"/>
     571        <UsageCount Value="9"/>
     572        <DefaultSyntaxHighlighter Value="Delphi"/>
     573      </Unit64>
     574      <Unit65>
     575        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/i386/i386.inc"/>
     576        <WindowIndex Value="0"/>
     577        <TopLine Value="411"/>
     578        <CursorPos X="10" Y="424"/>
     579        <UsageCount Value="9"/>
     580        <DefaultSyntaxHighlighter Value="Delphi"/>
     581      </Unit65>
     582      <Unit66>
     583        <Filename Value="../Specialized/SpecializedStream.pas"/>
     584        <UnitName Value="SpecializedStream"/>
     585        <EditorIndex Value="8"/>
     586        <WindowIndex Value="0"/>
     587        <TopLine Value="106"/>
     588        <CursorPos X="48" Y="107"/>
     589        <UsageCount Value="15"/>
     590        <Loaded Value="True"/>
     591      </Unit66>
     592      <Unit67>
     593        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/lcl/lclclasses.pp"/>
     594        <UnitName Value="LCLClasses"/>
     595        <WindowIndex Value="0"/>
     596        <TopLine Value="25"/>
     597        <CursorPos X="32" Y="40"/>
     598        <UsageCount Value="9"/>
     599      </Unit67>
     600      <Unit68>
     601        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/lcl/controls.pp"/>
     602        <UnitName Value="Controls"/>
     603        <WindowIndex Value="0"/>
     604        <TopLine Value="1"/>
     605        <CursorPos X="39" Y="11"/>
     606        <UsageCount Value="9"/>
     607      </Unit68>
     608      <Unit69>
     609        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/inc/objpash.inc"/>
     610        <WindowIndex Value="0"/>
     611        <TopLine Value="179"/>
     612        <CursorPos X="23" Y="192"/>
    546613        <UsageCount Value="10"/>
     614      </Unit69>
     615      <Unit70>
     616        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/inc/objpas.inc"/>
     617        <WindowIndex Value="0"/>
     618        <TopLine Value="265"/>
     619        <CursorPos X="9" Y="267"/>
     620        <UsageCount Value="10"/>
     621      </Unit70>
     622      <Unit71>
     623        <Filename Value="../Generic/GenericStream.inc"/>
     624        <IsVisibleTab Value="True"/>
     625        <EditorIndex Value="7"/>
     626        <WindowIndex Value="0"/>
     627        <TopLine Value="40"/>
     628        <CursorPos X="18" Y="20"/>
     629        <UsageCount Value="15"/>
    547630        <Loaded Value="True"/>
    548       </Unit61>
     631      </Unit71>
     632      <Unit72>
     633        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/objpas/classes/classesh.inc"/>
     634        <EditorIndex Value="1"/>
     635        <WindowIndex Value="0"/>
     636        <TopLine Value="891"/>
     637        <CursorPos X="18" Y="908"/>
     638        <UsageCount Value="13"/>
     639        <Loaded Value="True"/>
     640      </Unit72>
     641      <Unit73>
     642        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/objpas/classes/streams.inc"/>
     643        <EditorIndex Value="2"/>
     644        <WindowIndex Value="0"/>
     645        <TopLine Value="739"/>
     646        <CursorPos X="18" Y="750"/>
     647        <UsageCount Value="13"/>
     648        <Loaded Value="True"/>
     649      </Unit73>
     650      <Unit74>
     651        <Filename Value="../Generic/GenericListString.inc"/>
     652        <EditorIndex Value="6"/>
     653        <WindowIndex Value="0"/>
     654        <TopLine Value="8"/>
     655        <CursorPos X="34" Y="21"/>
     656        <UsageCount Value="12"/>
     657        <Loaded Value="True"/>
     658      </Unit74>
    549659    </Units>
    550     <JumpHistory Count="30" HistoryIndex="27">
     660    <JumpHistory Count="30" HistoryIndex="28">
    551661      <Position1>
    552662        <Filename Value="UMainForm.pas"/>
    553         <Caret Line="42" Column="51" TopLine="20"/>
     663        <Caret Line="142" Column="1" TopLine="128"/>
    554664      </Position1>
    555665      <Position2>
    556666        <Filename Value="UMainForm.pas"/>
    557         <Caret Line="458" Column="36" TopLine="440"/>
     667        <Caret Line="143" Column="1" TopLine="128"/>
    558668      </Position2>
    559669      <Position3>
    560         <Filename Value="UMainForm.pas"/>
    561         <Caret Line="7" Column="52" TopLine="1"/>
     670        <Filename Value="../Generic/GenericList.inc"/>
     671        <Caret Line="161" Column="1" TopLine="148"/>
    562672      </Position3>
    563673      <Position4>
    564         <Filename Value="UMainForm.pas"/>
    565         <Caret Line="526" Column="1" TopLine="502"/>
     674        <Filename Value="../Specialized/SpecializedStream.pas"/>
     675        <Caret Line="93" Column="21" TopLine="80"/>
    566676      </Position4>
    567677      <Position5>
    568678        <Filename Value="UMainForm.pas"/>
    569         <Caret Line="32" Column="49" TopLine="27"/>
     679        <Caret Line="150" Column="22" TopLine="129"/>
    570680      </Position5>
    571681      <Position6>
    572         <Filename Value="UMainForm.pas"/>
    573         <Caret Line="416" Column="38" TopLine="312"/>
     682        <Filename Value="../Generic/GenericStream.inc"/>
     683        <Caret Line="22" Column="12" TopLine="9"/>
    574684      </Position6>
    575685      <Position7>
    576         <Filename Value="UMainForm.pas"/>
    577         <Caret Line="417" Column="38" TopLine="393"/>
     686        <Filename Value="../Generic/GenericStream.inc"/>
     687        <Caret Line="37" Column="18" TopLine="35"/>
    578688      </Position7>
    579689      <Position8>
    580690        <Filename Value="UMainForm.pas"/>
    581         <Caret Line="418" Column="38" TopLine="394"/>
     691        <Caret Line="157" Column="79" TopLine="132"/>
    582692      </Position8>
    583693      <Position9>
    584         <Filename Value="UMainForm.pas"/>
    585         <Caret Line="241" Column="3" TopLine="234"/>
     694        <Filename Value="../Specialized/SpecializedStream.pas"/>
     695        <Caret Line="58" Column="45" TopLine="46"/>
    586696      </Position9>
    587697      <Position10>
    588         <Filename Value="UMainForm.pas"/>
    589         <Caret Line="377" Column="1" TopLine="361"/>
     698        <Filename Value="../Specialized/SpecializedStream.pas"/>
     699        <Caret Line="119" Column="12" TopLine="100"/>
    590700      </Position10>
    591701      <Position11>
    592         <Filename Value="UMainForm.pas"/>
    593         <Caret Line="617" Column="1" TopLine="593"/>
     702        <Filename Value="../Generic/GenericList.inc"/>
     703        <Caret Line="197" Column="39" TopLine="182"/>
    594704      </Position11>
    595705      <Position12>
    596         <Filename Value="UMainForm.pas"/>
    597         <Caret Line="260" Column="25" TopLine="230"/>
     706        <Filename Value="../Specialized/SpecializedStream.pas"/>
     707        <Caret Line="119" Column="12" TopLine="100"/>
    598708      </Position12>
    599709      <Position13>
    600         <Filename Value="UMainForm.pas"/>
    601         <Caret Line="246" Column="21" TopLine="233"/>
     710        <Filename Value="../Specialized/SpecializedStream.pas"/>
     711        <Caret Line="61" Column="38" TopLine="48"/>
    602712      </Position13>
    603713      <Position14>
    604         <Filename Value="UMainForm.pas"/>
    605         <Caret Line="364" Column="25" TopLine="358"/>
     714        <Filename Value="../Specialized/SpecializedStream.pas"/>
     715        <Caret Line="130" Column="15" TopLine="117"/>
    606716      </Position14>
    607717      <Position15>
    608         <Filename Value="UMainForm.pas"/>
    609         <Caret Line="596" Column="33" TopLine="586"/>
     718        <Filename Value="../Specialized/SpecializedStream.pas"/>
     719        <Caret Line="64" Column="36" TopLine="51"/>
    610720      </Position15>
    611721      <Position16>
    612         <Filename Value="UMainForm.pas"/>
    613         <Caret Line="237" Column="19" TopLine="232"/>
     722        <Filename Value="../Specialized/SpecializedStream.pas"/>
     723        <Caret Line="58" Column="29" TopLine="45"/>
    614724      </Position16>
    615725      <Position17>
    616         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
    617         <Caret Line="701" Column="36" TopLine="683"/>
     726        <Filename Value="../Specialized/SpecializedStream.pas"/>
     727        <Caret Line="78" Column="45" TopLine="78"/>
    618728      </Position17>
    619729      <Position18>
    620         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
    621         <Caret Line="659" Column="27" TopLine="653"/>
     730        <Filename Value="../Specialized/SpecializedStream.pas"/>
     731        <Caret Line="64" Column="64" TopLine="48"/>
    622732      </Position18>
    623733      <Position19>
    624         <Filename Value="../Generic/GenericList.inc"/>
    625         <Caret Line="468" Column="70" TopLine="462"/>
     734        <Filename Value="../Specialized/SpecializedStream.pas"/>
     735        <Caret Line="82" Column="3" TopLine="68"/>
    626736      </Position19>
    627737      <Position20>
    628         <Filename Value="../Generic/GenericList.inc"/>
    629         <Caret Line="469" Column="1" TopLine="462"/>
     738        <Filename Value="../Generic/GenericListObject.inc"/>
     739        <Caret Line="20" Column="21" TopLine="1"/>
    630740      </Position20>
    631741      <Position21>
    632         <Filename Value="../Generic/GenericList.inc"/>
    633         <Caret Line="470" Column="1" TopLine="462"/>
     742        <Filename Value="../Generic/GenericListObject.inc"/>
     743        <Caret Line="24" Column="17" TopLine="11"/>
    634744      </Position21>
    635745      <Position22>
    636         <Filename Value="../Generic/GenericList.inc"/>
    637         <Caret Line="471" Column="1" TopLine="462"/>
     746        <Filename Value="../Generic/GenericListString.inc"/>
     747        <Caret Line="1" Column="1" TopLine="1"/>
    638748      </Position22>
    639749      <Position23>
    640         <Filename Value="../Generic/GenericList.inc"/>
    641         <Caret Line="470" Column="5" TopLine="462"/>
     750        <Filename Value="UMainForm.pas"/>
     751        <Caret Line="43" Column="15" TopLine="28"/>
    642752      </Position23>
    643753      <Position24>
    644         <Filename Value="UMainForm.pas"/>
    645         <Caret Line="237" Column="19" TopLine="232"/>
     754        <Filename Value="../Generic/GenericStream.inc"/>
     755        <Caret Line="13" Column="1" TopLine="1"/>
    646756      </Position24>
    647757      <Position25>
    648         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
    649         <Caret Line="659" Column="26" TopLine="647"/>
     758        <Filename Value="../Specialized/SpecializedStream.pas"/>
     759        <Caret Line="84" Column="35" TopLine="40"/>
    650760      </Position25>
    651761      <Position26>
    652         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/stringl.inc"/>
    653         <Caret Line="1193" Column="20" TopLine="1185"/>
     762        <Filename Value="../Specialized/SpecializedStream.pas"/>
     763        <Caret Line="126" Column="39" TopLine="111"/>
    654764      </Position26>
    655765      <Position27>
    656         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/stringl.inc"/>
    657         <Caret Line="1196" Column="22" TopLine="1185"/>
     766        <Filename Value="../Specialized/SpecializedStream.pas"/>
     767        <Caret Line="128" Column="1" TopLine="111"/>
    658768      </Position27>
    659769      <Position28>
    660         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
    661         <Caret Line="661" Column="23" TopLine="649"/>
     770        <Filename Value="../Specialized/SpecializedStream.pas"/>
     771        <Caret Line="68" Column="32" TopLine="55"/>
    662772      </Position28>
    663773      <Position29>
    664         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
    665         <Caret Line="657" Column="48" TopLine="644"/>
     774        <Filename Value="../Specialized/SpecializedStream.pas"/>
     775        <Caret Line="121" Column="1" TopLine="106"/>
    666776      </Position29>
    667777      <Position30>
    668         <Filename Value="../../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
    669         <Caret Line="651" Column="3" TopLine="639"/>
     778        <Filename Value="../Generic/GenericList.inc"/>
     779        <Caret Line="55" Column="15" TopLine="42"/>
    670780      </Position30>
    671781    </JumpHistory>
    672782  </ProjectOptions>
    673783  <CompilerOptions>
    674     <Version Value="9"/>
     784    <Version Value="11"/>
    675785    <Target>
    676786      <Filename Value="Demo"/>
    … …  
    699809    <Linking>
    700810      <Debugging>
    701         <GenerateDebugInfo Value="True"/>
     811        <DebugInfoType Value="dsStabs"/>
    702812        <UseHeaptrc Value="True"/>
    703813      </Debugging>

  • trunk/Components/TemplateGenerics/Demo/UMainForm.lfm

    r29 r30  
    4848  end
    4949  object ButtonCharList: TButton
    50     Left = 7
     50    Left = 8
    5151    Height = 25
    5252    Top = 134
    53     Width = 129
     53    Width = 128
    5454    Caption = 'TListChar(TString)'
    5555    OnClick = ButtonCharListClick
    … …  
    5757  end
    5858  object ButtonBenchmarkListString: TButton
    59     Left = 10
     59    Left = 8
    6060    Height = 24
    6161    Top = 456
    … …  
    6767  end
    6868  object ButtonListObject: TButton
    69     Left = 7
     69    Left = 8
    7070    Height = 25
    7171    Top = 163
    72     Width = 129
     72    Width = 128
    7373    Caption = 'TListObject'
    7474    OnClick = ButtonListObjectClick
    … …  
    7676  end
    7777  object ButtonBenchmarkDictionary: TButton
    78     Left = 10
     78    Left = 8
    7979    Height = 25
    8080    Top = 424
    81     Width = 126
     81    Width = 128
    8282    Anchors = [akLeft, akBottom]
    8383    Caption = 'TDictionaryStringString'
    … …  
    8686  end
    8787  object ButtonMatrixInteger: TButton
    88     Left = 7
     88    Left = 8
    8989    Height = 25
    9090    Top = 192
    91     Width = 129
     91    Width = 128
    9292    Caption = 'TMatrixInteger'
    9393    OnClick = ButtonMatrixIntegerClick
    … …  
    107107      item
    108108        Caption = 'Value'
    109         Width = 316
     109        Width = 321
    110110      end>
    111111    ReadOnly = True
    … …  
    140140    TabOrder = 10
    141141  end
     142  object ButtonStreamByte: TButton
     143    Left = 10
     144    Height = 25
     145    Top = 224
     146    Width = 128
     147    Caption = 'TMemoryStreamByte'
     148    OnClick = ButtonStreamByteClick
     149    TabOrder = 11
     150  end
    142151end

  • trunk/Components/TemplateGenerics/Demo/UMainForm.pas

    r29 r30  
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    99  ComCtrls, SpecializedList, SpecializedDictionary, SpecializedQueue,
    10   DateUtils, SpecializedMatrix;
     10  DateUtils, SpecializedMatrix, SpecializedStream;
    1111
    1212type
    … …  
    1515
    1616  TMainForm = class(TForm)
     17    ButtonStreamByte: TButton;
    1718    ButtonBenchmarkDictionary: TButton;
    1819    ButtonBenchmarkListPointer: TButton;
    … …  
    3839    procedure ButtonQueueIntegerClick(Sender: TObject);
    3940    procedure ButtonStringListClick(Sender: TObject);
     41    procedure ButtonStreamByteClick(Sender: TObject);
    4042    procedure FormCreate(Sender: TObject);
    4143    procedure FormDestroy(Sender: TObject);
    42   private
    4344  public
    4445    MeasureDuration: TDateTime;
    … …  
    6566var
    6667  List: TListInteger;
     68  List2: TListInteger;
    6769  I: Integer;
    6870begin
    … …  
    7072  LabelTestName.Caption := 'TListInteger test';
    7173  List := TListInteger.Create;
     74  List2 := TListInteger.Create;
    7275  with List do try
    7376    AddArray([10, 20, 30, 40]);
    … …  
    8689    Insert(5, 11);
    8790    WriteOutput('Insert(5, 11)', Implode(',', IntToStr));
     91    DeleteItems(0, 10);
     92    WriteOutput('Delete(0, 10)', Implode(',', IntToStr));
     93    List2.SetArray([1, 0]);
     94    WriteOutput('EqualTo([6, 11])', BoolToStr(EqualTo(List2)));
     95    List2.SetArray([2, 0]);
     96    WriteOutput('EqualTo([7, 11])', BoolToStr(EqualTo(List2)));
     97    InsertCount(0, 3);
     98    WriteOutput('InsertCount(0, 3)', Implode(',', IntToStr));
     99    Fill(0, 3, 9);
     100    WriteOutput('Fill(0, 3, 9)', Implode(',', IntToStr));
    88101  finally
    89102    Free;
     103    List2.Free;
    90104  end;
    91105end;
    … …  
    110124    WriteOutput('Clear', '[' + Implode('; ', ', ', IntToStr) + ']');
    111125    WriteOutput('Count [Y, X]', IntToStr(Count.Y) + ', ' + IntToStr(Count.X));
     126  finally
     127    Free;
     128  end;
     129end;
     130
     131procedure TMainForm.ButtonStreamByteClick(Sender: TObject);
     132var
     133  Stream: TMemoryStreamByte;
     134  I: Integer;
     135  ByteArray: array of Byte;
     136  ByteArrayText: string;
     137begin
     138  ListViewOutput.Clear;
     139  LabelTestName.Caption := 'TStreamByte test';
     140  Stream := TMemoryStreamByte.Create;
     141  with Stream do try
     142    WriteOutput('Size := ', IntToStr(Stream.Size));
     143    Write(1);
     144    WriteOutput('Write(1)', '');
     145    WriteOutput('Size, Position', IntToStr(Stream.Size) + ', ' + IntToStr(Stream.Position));
     146    WriteArray([2, 3, 4]);
     147    WriteOutput('WriteArray([2, 3, 4])', '');
     148    WriteOutput('Size, Position', IntToStr(Stream.Size) + ', ' + IntToStr(Stream.Position));
     149    Position := 1;
     150    WriteOutput('Position := 1', '');
     151    WriteOutput('Size, Position', IntToStr(Stream.Size) + ', ' + IntToStr(Stream.Position));
     152    WriteOutput('Read', IntToStr(Read));
     153    WriteOutput('Size, Position', IntToStr(Stream.Size) + ', ' + IntToStr(Stream.Position));
     154    ByteArray := ReadArray(2);
     155    ByteArrayText := '[';
     156    for I := 0 to Length(ByteArray) - 1 do begin
     157      ByteArrayText := ByteArrayText + IntToStr(ByteArray[I]);
     158      if I < Length(ByteArray) - 1 then ByteArrayText := ByteArrayText + ', ';
     159    end;
     160    ByteArrayText := ByteArrayText + ']';
     161    WriteOutput('ReadArray', ByteArrayText);
     162    WriteOutput('Size, Position', IntToStr(Stream.Size) + ', ' + IntToStr(Stream.Position));
    112163  finally
    113164    Free;
    … …  
    478529var
    479530  List: TListPointer;
    480   List2: TList;
     531  List2: TFPList;
    481532  StartTime: TDateTime;
    482533  I: Integer;
    … …  
    484535  SampleCount: Integer = 100000;
    485536begin
    486   LabelTestName.Caption := 'Generic specialized TListObject vs. classic non-generic TList benchmark';
     537  LabelTestName.Caption := 'Generic specialized TListObject vs. classic non-generic TFPList benchmark';
    487538  ListViewOutput.Clear;
    488539  try
    489540    UpdateButtonState(False);
    490541    List := TListPointer.Create;
    491     List2 := TList.Create;
    492 
    493     StartTime := Now;
    494     repeat
    495       List.Add(1);
     542    List2 := TFPList.Create;
     543
     544    WriteOutput('TListPointer.InstanceSize', IntToStr(TListPointer.InstanceSize) + ' bytes');
     545    WriteOutput('TFPList.InstanceSize', IntToStr(TFPList.InstanceSize) + ' bytes');
     546
     547    StartTime := Now;
     548    repeat
     549      List.Add(Pointer(1));
    496550    until (Now - StartTime) > MeasureDuration;
    497551    WriteOutput('TListPointer.Add', IntToStr(List.Count) + ' ops');
    … …  
    501555    StartTime := Now;
    502556    repeat
    503       List2.Add(1);
    504     until (Now - StartTime) > MeasureDuration;
    505     WriteOutput('TList.Add', IntToStr(List2.Count) + ' ops');
     557      List2.Add(Pointer(1));
     558    until (Now - StartTime) > MeasureDuration;
     559    WriteOutput('TFPList.Add', IntToStr(List2.Count) + ' ops');
    506560    List2.Clear;
    507561    Application.ProcessMessages;
    … …  
    509563    StartTime := Now;
    510564    repeat
    511       List.Insert(0, 1);
     565      List.Insert(0, Pointer(1));
    512566    until (Now - StartTime) > MeasureDuration;
    513567    WriteOutput('TListPointer.Insert', IntToStr(List.Count) + ' ops');
    … …  
    517571    StartTime := Now;
    518572    repeat
    519       List2.Insert(0, 1);
    520     until (Now - StartTime) > MeasureDuration;
    521     WriteOutput('TList.Insert', IntToStr(List2.Count) + ' ops');
     573      List2.Insert(0, Pointer(1));
     574    until (Now - StartTime) > MeasureDuration;
     575    WriteOutput('TFPList.Insert', IntToStr(List2.Count) + ' ops');
    522576    List2.Clear;
    523577    Application.ProcessMessages;
    524578
    525579    for I := 0 to SampleCount - 1 do
    526       List.Add(1);
     580      List.Add(Pointer(1));
    527581    StartTime := Now;
    528582    I := 0;
    … …  
    536590
    537591    for I := 0 to SampleCount - 1 do
    538       List2.Add(1);
     592      List2.Add(Pointer(1));
    539593    StartTime := Now;
    540594    I := 0;
    … …  
    543597      Inc(I);
    544598    until (Now - StartTime) > MeasureDuration;
    545     WriteOutput('TList.Delete', IntToStr(I) + ' ops');
    546     Application.ProcessMessages;
    547 
    548     for I := 0 to SampleCount - 1 do
    549       List.Add(1);
     599    WriteOutput('TFPList.Delete', IntToStr(I) + ' ops');
     600    Application.ProcessMessages;
     601
     602    for I := 0 to SampleCount - 1 do
     603      List.Add(Pointer(1));
    550604    StartTime := Now;
    551605    I := 0;
    … …  
    559613
    560614    for I := 0 to SampleCount - 1 do
    561     List2.Add(1);
     615    List2.Add(Pointer(1));
    562616    StartTime := Now;
    563617    I := 0;
    … …  
    566620      Inc(I);
    567621    until (Now - StartTime) > MeasureDuration;
    568     WriteOutput('TList.Move', IntToStr(I) + ' ops');
    569     Application.ProcessMessages;
    570 
    571     for I := 0 to SampleCount - 1 do
    572       List.Add(1);
     622    WriteOutput('TFPList.Move', IntToStr(I) + ' ops');
     623    Application.ProcessMessages;
     624
     625    for I := 0 to SampleCount - 1 do
     626      List.Add(Pointer(1));
    573627    StartTime := Now;
    574628    I := 0;
    … …  
    582636
    583637    for I := 0 to SampleCount - 1 do
    584     List2.Add(1);
     638    List2.Add(Pointer(1));
    585639    StartTime := Now;
    586640    I := 0;
    … …  
    589643      Inc(I);
    590644    until (Now - StartTime) > MeasureDuration;
    591     WriteOutput('TList.Exchange', IntToStr(I) + ' ops');
    592     Application.ProcessMessages;
    593 
    594     for I := 0 to SampleCount - 1 do
    595       List.Add(1);
     645    WriteOutput('TFPList.Exchange', IntToStr(I) + ' ops');
     646    Application.ProcessMessages;
     647
     648    for I := 0 to SampleCount - 1 do
     649      List.Add(Pointer(1));
    596650    StartTime := Now;
    597651    I := 0;
    … …  
    605659
    606660    for I := 0 to SampleCount - 1 do
    607     List2.Add(1);
     661    List2.Add(Pointer(1));
    608662    StartTime := Now;
    609663    I := 0;
    … …  
    612666      Inc(I);
    613667    until (Now - StartTime) > MeasureDuration;
    614     WriteOutput('TList.IndexOf', IntToStr(I) + ' ops');
    615     Application.ProcessMessages;
    616 
     668    WriteOutput('TFPList.IndexOf', IntToStr(I) + ' ops');
     669    Application.ProcessMessages;
     670
     671    for I := 0 to SampleCount - 1 do
     672      List.Add(Pointer(1));
     673    StartTime := Now;
     674    I := 0;
     675    repeat
     676      List[I mod List.Count] := Pointer(1);
     677      Inc(I);
     678    until (Now - StartTime) > MeasureDuration;
     679    WriteOutput('TListPointer[I] write', IntToStr(I) + ' ops');
     680    List.Clear;
     681    Application.ProcessMessages;
     682
     683    for I := 0 to SampleCount - 1 do
     684    List2.Add(Pointer(1));
     685    StartTime := Now;
     686    I := 0;
     687    repeat
     688      List2[I mod List2.Count] := Pointer(1);
     689      Inc(I);
     690    until (Now - StartTime) > MeasureDuration;
     691    WriteOutput('TFPList[I] write', IntToStr(I) + ' ops');
     692    Application.ProcessMessages;
     693
     694    for I := 0 to SampleCount - 1 do
     695      List.Add(Pointer(1));
     696    StartTime := Now;
     697    I := 0;
     698    repeat
     699      List[I mod List.Count];
     700      Inc(I);
     701    until (Now - StartTime) > MeasureDuration;
     702    WriteOutput('TListPointer[I] read', IntToStr(I) + ' ops');
     703    List.Clear;
     704    Application.ProcessMessages;
     705
     706    for I := 0 to SampleCount - 1 do
     707    List2.Add(Pointer(1));
     708    StartTime := Now;
     709    I := 0;
     710    repeat
     711      List2[I mod List2.Count];
     712      Inc(I);
     713    until (Now - StartTime) > MeasureDuration;
     714    WriteOutput('TFPList[I] read', IntToStr(I) + ' ops');
     715    Application.ProcessMessages;
    617716  finally
    618717    UpdateButtonState(True);
    … …  
    645744    MoveItems(2, 3, 3);
    646745    WriteOutput('Implode', Implode(',', StrToStr));
     746    InsertCount(0, 3);
     747    WriteOutput('InsertCount(0, 3)', Implode(',', StrToStr));
     748    Fill(0, 3, 'Zero');
     749    WriteOutput('Fill(0, 3, ''Zero'')', Implode(',', StrToStr));
    647750  finally
    648751    Free;
Note: See TracChangeset for help on using the changeset viewer.