Changeset 574


Ignore:
Timestamp:
Jun 25, 2024, 11:10:44 AM (4 months ago)
Author:
chronos
Message:
  • Modified: Removed U prefix from unit names.
Location:
Generics/TemplateGenerics
Files:
19 edited
3 moved

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/Additional/BinarySerializer.pas

    r573 r574  
    1 unit UBinarySerializer;
    2 
    3 {$mode delphi}{$H+}
     1unit BinarySerializer;
    42
    53interface
    … …  
    217215destructor TBinarySerializer.Destroy;
    218216begin
    219   if OwnsList then FList.Free;
    220   inherited Destroy;
     217  if OwnsList then FreeAndNil(FList);
     218  inherited;
    221219end;
    222220

  • Generics/TemplateGenerics/Demo

    • Property svn:ignore

      •  

        old new  
        33heaptrclog.trc
        44Demo
         5backup

  • Generics/TemplateGenerics/Demo/Demo.lpi

    r325 r574  
    1 <?xml version="1.0"?>
     1<?xml version="1.0" encoding="UTF-8"?>
    22<CONFIG>
    33  <ProjectOptions>
    4     <Version Value="9"/>
     4    <Version Value="12"/>
    55    <General>
    6       <MainUnit Value="0"/>
     6      <Flags>
     7        <CompatibilityMode Value="True"/>
     8      </Flags>
    79      <ResourceType Value="res"/>
    810      <UseXPManifest Value="True"/>
    911      <Icon Value="0"/>
    10       <ActiveWindowIndexAtStart Value="0"/>
    1112    </General>
    1213    <i18n>
    1314      <EnableI18N LFM="False"/>
    1415    </i18n>
    15     <VersionInfo>
    16       <StringTable ProductVersion=""/>
    17     </VersionInfo>
    1816    <BuildModes Count="1">
    1917      <Item1 Name="default" Default="True"/>
    … …  
    2119    <PublishOptions>
    2220      <Version Value="2"/>
    23       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
    24       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    2521    </PublishOptions>
    2622    <RunParams>
    27       <local>
    28         <FormatVersion Value="1"/>
    29         <LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
    30       </local>
     23      <FormatVersion Value="2"/>
     24      <Modes Count="1">
     25        <Mode0 Name="default"/>
     26      </Modes>
    3127    </RunParams>
    3228    <RequiredPackages Count="2">
    … …  
    4339        <Filename Value="Demo.lpr"/>
    4440        <IsPartOfProject Value="True"/>
    45         <UnitName Value="Demo"/>
    46         <WindowIndex Value="0"/>
    47         <TopLine Value="1"/>
    48         <CursorPos X="26" Y="8"/>
     41        <EditorIndex Value="1"/>
     42        <CursorPos X="32" Y="17"/>
    4943        <UsageCount Value="233"/>
    50         <DefaultSyntaxHighlighter Value="Delphi"/>
     44        <Loaded Value="True"/>
    5145      </Unit0>
    5246      <Unit1>
    53         <Filename Value="UMainForm.pas"/>
     47        <Filename Value="FormMain.pas"/>
    5448        <IsPartOfProject Value="True"/>
    55         <ComponentName Value="MainForm"/>
     49        <ComponentName Value="FormMain"/>
     50        <HasResources Value="True"/>
    5651        <ResourceBaseClass Value="Form"/>
    57         <UnitName Value="UMainForm"/>
    58         <EditorIndex Value="0"/>
    59         <WindowIndex Value="0"/>
    60         <TopLine Value="640"/>
    61         <CursorPos X="20" Y="653"/>
     52        <IsVisibleTab Value="True"/>
     53        <CursorPos X="61" Y="17"/>
    6254        <UsageCount Value="233"/>
    6355        <Bookmarks Count="1">
    64           <Item0 X="65" Y="275" ID="2"/>
     56          <Item0 X="65" Y="274" ID="2"/>
    6557        </Bookmarks>
    6658        <Loaded Value="True"/>
    6759        <LoadedDesigner Value="True"/>
    68         <DefaultSyntaxHighlighter Value="Delphi"/>
    6960      </Unit1>
    7061      <Unit2>
    7162        <Filename Value="../Specialized/ListDouble.pas"/>
    72         <UnitName Value="ListDouble"/>
    73         <WindowIndex Value="0"/>
    74         <TopLine Value="1"/>
    75         <CursorPos X="1" Y="11"/>
     63        <CursorPos Y="11"/>
    7664        <UsageCount Value="3"/>
    7765      </Unit2>
    7866      <Unit3>
    7967        <Filename Value="../Specialized/SpecializedList.pas"/>
    80         <UnitName Value="SpecializedList"/>
    81         <EditorIndex Value="3"/>
    82         <WindowIndex Value="0"/>
     68        <EditorIndex Value="2"/>
    8369        <TopLine Value="47"/>
    8470        <CursorPos X="20" Y="60"/>
    8571        <UsageCount Value="15"/>
    8672        <Loaded Value="True"/>
     73        <DefaultSyntaxHighlighter Value="Delphi"/>
    8774      </Unit3>
    8875      <Unit4>
    8976        <Filename Value="../Specialized/ListObject.pas"/>
    90         <UnitName Value="ListObject"/>
    91         <WindowIndex Value="0"/>
    9277        <TopLine Value="33"/>
    9378        <CursorPos X="12" Y="56"/>
    … …  
    9681      <Unit5>
    9782        <Filename Value="../Specialized/ListPointer.pas"/>
    98         <UnitName Value="ListPointer"/>
    99         <WindowIndex Value="0"/>
    100         <TopLine Value="1"/>
    10183        <CursorPos X="23" Y="21"/>
    10284        <UsageCount Value="3"/>
    … …  
    10486      <Unit6>
    10587        <Filename Value="../Specialized/TreeString.pas"/>
    106         <UnitName Value="TreeString"/>
    107         <WindowIndex Value="0"/>
    108         <TopLine Value="1"/>
    10988        <CursorPos X="23" Y="24"/>
    11089        <UsageCount Value="3"/>
    … …  
    11291      <Unit7>
    11392        <Filename Value="../Specialized/TreePointer.pas"/>
    114         <UnitName Value="TreePointer"/>
    115         <WindowIndex Value="0"/>
    116         <TopLine Value="1"/>
    11793        <CursorPos X="23" Y="13"/>
    11894        <UsageCount Value="3"/>
    … …  
    12096      <Unit8>
    12197        <Filename Value="../Specialized/TreeObject.pas"/>
    122         <UnitName Value="TreeObject"/>
    123         <WindowIndex Value="0"/>
    124         <TopLine Value="1"/>
    12598        <CursorPos X="23" Y="24"/>
    12699        <UsageCount Value="3"/>
    … …  
    128101      <Unit9>
    129102        <Filename Value="../Specialized/TreeInteger.pas"/>
    130         <UnitName Value="TreeInteger"/>
    131         <WindowIndex Value="0"/>
    132         <TopLine Value="1"/>
    133103        <CursorPos X="31" Y="13"/>
    134104        <UsageCount Value="3"/>
    … …  
    136106      <Unit10>
    137107        <Filename Value="../Specialized/ListString.pas"/>
    138         <UnitName Value="ListString"/>
    139         <WindowIndex Value="0"/>
    140         <TopLine Value="1"/>
    141108        <CursorPos X="29" Y="17"/>
    142109        <UsageCount Value="3"/>
    … …  
    144111      <Unit11>
    145112        <Filename Value="../Generic/TreeImplementation.tpl"/>
    146         <WindowIndex Value="0"/>
    147         <TopLine Value="1"/>
    148         <CursorPos X="1" Y="4"/>
     113        <CursorPos Y="4"/>
    149114        <UsageCount Value="3"/>
    150115        <DefaultSyntaxHighlighter Value="None"/>
    … …  
    152117      <Unit12>
    153118        <Filename Value="../Generic/TreeInterface.tpl"/>
    154         <WindowIndex Value="0"/>
    155         <TopLine Value="1"/>
    156119        <CursorPos X="21" Y="6"/>
    157120        <UsageCount Value="3"/>
    … …  
    160123      <Unit13>
    161124        <Filename Value="../Generic/ListInterface.tpl"/>
    162         <WindowIndex Value="0"/>
    163         <TopLine Value="1"/>
    164         <CursorPos X="1" Y="1"/>
    165125        <UsageCount Value="3"/>
    166126        <DefaultSyntaxHighlighter Value="None"/>
    … …  
    168128      <Unit14>
    169129        <Filename Value="../Generic/ListImplementation.tpl"/>
    170         <WindowIndex Value="0"/>
    171         <TopLine Value="1"/>
    172130        <CursorPos X="25" Y="13"/>
    173131        <UsageCount Value="4"/>
    … …  
    176134      <Unit15>
    177135        <Filename Value="../Generic/DictionaryImplementation.tpl"/>
    178         <WindowIndex Value="0"/>
    179136        <TopLine Value="4"/>
    180137        <CursorPos X="3" Y="6"/>
    … …  
    184141      <Unit16>
    185142        <Filename Value="../Generic/DictionaryInterface.tpl"/>
    186         <WindowIndex Value="0"/>
    187         <TopLine Value="1"/>
    188143        <CursorPos X="14" Y="16"/>
    189144        <UsageCount Value="3"/>
    … …  
    192147      <Unit17>
    193148        <Filename Value="../Specialized/DictionaryString.pas"/>
    194         <UnitName Value="DictionaryString"/>
    195         <WindowIndex Value="0"/>
    196         <TopLine Value="1"/>
    197149        <CursorPos X="32" Y="18"/>
    198150        <UsageCount Value="3"/>
    … …  
    200152      <Unit18>
    201153        <Filename Value="../Generic/StackInterface.tpl"/>
    202         <WindowIndex Value="0"/>
    203         <TopLine Value="1"/>
    204154        <CursorPos X="20" Y="12"/>
    205155        <UsageCount Value="1"/>
    … …  
    208158      <Unit19>
    209159        <Filename Value="../Specialized/StackString.pas"/>
    210         <UnitName Value="StackString"/>
    211         <WindowIndex Value="0"/>
    212         <TopLine Value="1"/>
    213         <CursorPos X="1" Y="22"/>
     160        <CursorPos Y="22"/>
    214161        <UsageCount Value="1"/>
    215162      </Unit19>
    216163      <Unit20>
    217164        <Filename Value="../Generic/StackImplementation.tpl"/>
    218         <WindowIndex Value="0"/>
    219         <TopLine Value="1"/>
    220         <CursorPos X="1" Y="1"/>
    221165        <UsageCount Value="1"/>
    222166        <DefaultSyntaxHighlighter Value="None"/>
    … …  
    224168      <Unit21>
    225169        <Filename Value="../Generic/QueueImplementation.tpl"/>
    226         <WindowIndex Value="0"/>
    227         <TopLine Value="1"/>
    228         <CursorPos X="1" Y="3"/>
     170        <CursorPos Y="3"/>
    229171        <UsageCount Value="1"/>
    230172        <DefaultSyntaxHighlighter Value="None"/>
    … …  
    232174      <Unit22>
    233175        <Filename Value="../Generic/QueueInterface.tpl"/>
    234         <WindowIndex Value="0"/>
    235         <TopLine Value="1"/>
    236         <CursorPos X="1" Y="3"/>
     176        <CursorPos Y="3"/>
    237177        <UsageCount Value="1"/>
    238178        <DefaultSyntaxHighlighter Value="None"/>
    … …  
    240180      <Unit23>
    241181        <Filename Value="../Specialized/ListChar.pas"/>
    242         <UnitName Value="ListChar"/>
    243         <WindowIndex Value="0"/>
    244182        <TopLine Value="45"/>
    245183        <CursorPos X="9" Y="79"/>
    … …  
    248186      <Unit24>
    249187        <Filename Value="../Generic/SetInterface.tpl"/>
    250         <WindowIndex Value="0"/>
    251         <TopLine Value="1"/>
    252188        <CursorPos X="21" Y="4"/>
    253189        <UsageCount Value="5"/>
    … …  
    256192      <Unit25>
    257193        <Filename Value="../Specialized/SetChar.pas"/>
    258         <UnitName Value="SetChar"/>
    259         <WindowIndex Value="0"/>
    260         <TopLine Value="1"/>
    261         <CursorPos X="1" Y="25"/>
     194        <CursorPos Y="25"/>
    262195        <UsageCount Value="5"/>
    263196      </Unit25>
    264197      <Unit26>
    265198        <Filename Value="../Generic/SetImplementation.tpl"/>
    266         <WindowIndex Value="0"/>
    267         <TopLine Value="1"/>
    268         <CursorPos X="1" Y="3"/>
     199        <CursorPos Y="3"/>
    269200        <UsageCount Value="5"/>
    270201        <DefaultSyntaxHighlighter Value="None"/>
    … …  
    272203      <Unit27>
    273204        <Filename Value="../Generic/RangeInterface.tpl"/>
    274         <WindowIndex Value="0"/>
    275         <TopLine Value="1"/>
    276205        <CursorPos X="7" Y="4"/>
    277206        <UsageCount Value="5"/>
    … …  
    280209      <Unit28>
    281210        <Filename Value="../Specialized/RangeDateTime.pas"/>
    282         <UnitName Value="RangeDateTime"/>
    283         <WindowIndex Value="0"/>
    284         <TopLine Value="1"/>
    285211        <CursorPos X="14" Y="15"/>
    286212        <UsageCount Value="5"/>
    … …  
    288214      <Unit29>
    289215        <Filename Value="../Generic/RangeImplementation.tpl"/>
    290         <WindowIndex Value="0"/>
    291         <TopLine Value="1"/>
    292216        <CursorPos X="14" Y="18"/>
    293217        <UsageCount Value="5"/>
    … …  
    296220      <Unit30>
    297221        <Filename Value="../Specialized/ListVariant.pas"/>
    298         <UnitName Value="ListVariant"/>
    299         <WindowIndex Value="0"/>
    300222        <TopLine Value="2"/>
    301223        <CursorPos X="30" Y="8"/>
    … …  
    304226      <Unit31>
    305227        <Filename Value="ListObject.pas"/>
    306         <UnitName Value="ListObject"/>
    307         <WindowIndex Value="0"/>
    308228        <TopLine Value="13"/>
    309229        <CursorPos X="15" Y="12"/>
    … …  
    313233      <Unit32>
    314234        <Filename Value="../Generic/GenericList.inc"/>
    315         <EditorIndex Value="4"/>
    316         <WindowIndex Value="0"/>
     235        <EditorIndex Value="3"/>
    317236        <TopLine Value="42"/>
    318237        <CursorPos X="15" Y="55"/>
    319238        <UsageCount Value="107"/>
    320239        <Loaded Value="True"/>
     240        <DefaultSyntaxHighlighter Value="Delphi"/>
    321241      </Unit32>
    322242      <Unit33>
    323243        <Filename Value="../Generic/GenericDictionary.inc"/>
    324         <WindowIndex Value="0"/>
    325244        <TopLine Value="31"/>
    326245        <CursorPos X="44" Y="47"/>
    … …  
    329248      <Unit34>
    330249        <Filename Value="../Generic/GenericObjectList.inc"/>
    331         <WindowIndex Value="0"/>
    332         <TopLine Value="1"/>
    333250        <CursorPos X="36" Y="48"/>
    334251        <UsageCount Value="93"/>
    … …  
    336253      <Unit35>
    337254        <Filename Value="../Generic/GenericQueue.inc"/>
    338         <WindowIndex Value="0"/>
    339255        <TopLine Value="3"/>
    340         <CursorPos X="1" Y="3"/>
     256        <CursorPos Y="3"/>
    341257        <UsageCount Value="93"/>
    342258      </Unit35>
    343259      <Unit36>
    344260        <Filename Value="../Generic/GenericSet.inc"/>
    345         <WindowIndex Value="0"/>
    346261        <TopLine Value="11"/>
    347262        <CursorPos X="42" Y="11"/>
    … …  
    350265      <Unit37>
    351266        <Filename Value="../Generic/GenericStack.inc"/>
    352         <WindowIndex Value="0"/>
    353267        <TopLine Value="3"/>
    354         <CursorPos X="1" Y="3"/>
     268        <CursorPos Y="3"/>
    355269        <UsageCount Value="93"/>
    356270      </Unit37>
    357271      <Unit38>
    358272        <Filename Value="../Generic/GenericTree.inc"/>
    359         <WindowIndex Value="0"/>
    360         <TopLine Value="1"/>
    361273        <CursorPos X="22" Y="30"/>
    362274        <UsageCount Value="93"/>
    … …  
    364276      <Unit39>
    365277        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    366         <UnitName Value="SpecializedDictionary"/>
    367         <WindowIndex Value="0"/>
    368278        <TopLine Value="6"/>
    369279        <CursorPos X="56" Y="36"/>
    … …  
    372282      <Unit40>
    373283        <Filename Value="../Specialized/SpecializedStack.pas"/>
    374         <UnitName Value="SpecializedStack"/>
    375         <WindowIndex Value="0"/>
    376284        <TopLine Value="27"/>
    377285        <CursorPos X="50" Y="59"/>
    … …  
    380288      <Unit41>
    381289        <Filename Value="../Specialized/SpecializedTree.pas"/>
    382         <UnitName Value="SpecializedTree"/>
    383         <WindowIndex Value="0"/>
    384290        <TopLine Value="57"/>
    385291        <CursorPos X="48" Y="85"/>
    … …  
    388294      <Unit42>
    389295        <Filename Value="../Generic/GenericRange.inc"/>
    390         <WindowIndex Value="0"/>
    391         <TopLine Value="1"/>
    392296        <CursorPos X="33" Y="14"/>
    393297        <UsageCount Value="91"/>
    … …  
    395299      <Unit43>
    396300        <Filename Value="../Specialized/SpecializedQueue.pas"/>
    397         <UnitName Value="SpecializedQueue"/>
    398         <WindowIndex Value="0"/>
    399301        <TopLine Value="52"/>
    400         <CursorPos X="1" Y="81"/>
     302        <CursorPos Y="81"/>
    401303        <UsageCount Value="91"/>
    402304      </Unit43>
    403305      <Unit44>
    404306        <Filename Value="../Specialized/SpecializedSet.pas"/>
    405         <UnitName Value="SpecializedSet"/>
    406         <WindowIndex Value="0"/>
    407307        <TopLine Value="29"/>
    408         <CursorPos X="1" Y="62"/>
     308        <CursorPos Y="62"/>
    409309        <UsageCount Value="91"/>
    410310      </Unit44>
    411311      <Unit45>
    412312        <Filename Value="../Specialized/SpecializedObjectList.pas"/>
    413         <UnitName Value="SpecializedObjectList"/>
    414         <WindowIndex Value="0"/>
    415313        <TopLine Value="9"/>
    416314        <CursorPos X="60" Y="36"/>
    … …  
    419317      <Unit46>
    420318        <Filename Value="../Generic/GenericMatrix.inc"/>
    421         <WindowIndex Value="0"/>
    422319        <TopLine Value="9"/>
    423320        <CursorPos X="28" Y="23"/>
    … …  
    427324        <Filename Value="../../../../lazarus/trunk/lcl/graphics.pp"/>
    428325        <UnitName Value="Graphics"/>
    429         <WindowIndex Value="0"/>
    430326        <TopLine Value="2624"/>
    431327        <CursorPos X="37" Y="2636"/>
    … …  
    435331      <Unit48>
    436332        <Filename Value="../../../../lazarus/trunk/lcl/interfaces/carbon/issues.xml"/>
    437         <WindowIndex Value="0"/>
    438333        <TopLine Value="94"/>
    439         <CursorPos X="1" Y="1"/>
    440334        <UsageCount Value="5"/>
    441335        <DefaultSyntaxHighlighter Value="XML"/>
    … …  
    443337      <Unit49>
    444338        <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
    445         <WindowIndex Value="0"/>
    446339        <TopLine Value="199"/>
    447340        <CursorPos X="14" Y="213"/>
    … …  
    451344      <Unit50>
    452345        <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/lists.inc"/>
    453         <WindowIndex Value="0"/>
    454346        <TopLine Value="199"/>
    455347        <CursorPos X="3" Y="201"/>
    … …  
    459351      <Unit51>
    460352        <Filename Value="../Generic/GenericListObject.inc"/>
    461         <EditorIndex Value="5"/>
    462         <WindowIndex Value="0"/>
     353        <EditorIndex Value="4"/>
    463354        <TopLine Value="11"/>
    464355        <CursorPos X="34" Y="24"/>
    465356        <UsageCount Value="21"/>
    466357        <Loaded Value="True"/>
     358        <DefaultSyntaxHighlighter Value="Delphi"/>
    467359      </Unit51>
    468360      <Unit52>
    469361        <Filename Value="/usr/share/fpcsrc/rtl/objpas/objpas.pp"/>
    470         <UnitName Value="objpas"/>
    471         <WindowIndex Value="0"/>
    472         <TopLine Value="1"/>
    473362        <CursorPos X="27" Y="26"/>
    474363        <UsageCount Value="27"/>
    … …  
    477366      <Unit53>
    478367        <Filename Value="/usr/share/fpcsrc/rtl/inc/systemh.inc"/>
    479         <WindowIndex Value="0"/>
    480368        <TopLine Value="381"/>
    481369        <CursorPos X="3" Y="398"/>
    … …  
    485373      <Unit54>
    486374        <Filename Value="/usr/share/fpcsrc/rtl/inc/varianth.inc"/>
    487         <WindowIndex Value="0"/>
    488375        <TopLine Value="475"/>
    489376        <CursorPos X="10" Y="503"/>
    … …  
    493380      <Unit55>
    494381        <Filename Value="../../../../lazarus/trunk/lcl/include/control.inc"/>
    495         <WindowIndex Value="0"/>
    496382        <TopLine Value="2270"/>
    497383        <CursorPos X="22" Y="2273"/>
    … …  
    501387      <Unit56>
    502388        <Filename Value="../Specialized/SpecializedMatrix.pas"/>
    503         <UnitName Value="SpecializedMatrix"/>
    504         <WindowIndex Value="0"/>
    505         <TopLine Value="1"/>
    506389        <CursorPos X="25" Y="41"/>
    507390        <UsageCount Value="19"/>
    … …  
    509392      <Unit57>
    510393        <Filename Value="../ReadMe.txt"/>
    511         <WindowIndex Value="0"/>
    512         <TopLine Value="1"/>
    513394        <CursorPos X="28" Y="10"/>
    514395        <UsageCount Value="8"/>
    … …  
    517398      <Unit58>
    518399        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/dateutil.inc"/>
    519         <WindowIndex Value="0"/>
    520400        <TopLine Value="38"/>
    521401        <CursorPos X="3" Y="50"/>
    … …  
    525405      <Unit59>
    526406        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/classesh.inc"/>
    527         <WindowIndex Value="0"/>
    528407        <TopLine Value="649"/>
    529408        <CursorPos X="38" Y="671"/>
    … …  
    533412      <Unit60>
    534413        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/classes/stringl.inc"/>
    535         <WindowIndex Value="0"/>
    536414        <TopLine Value="1185"/>
    537415        <CursorPos X="22" Y="1196"/>
    … …  
    541419      <Unit61>
    542420        <Filename Value="../../../../Programy/Lazarus/fpc/2.4.3/source/rtl/objpas/types.pp"/>
    543         <UnitName Value="types"/>
    544         <WindowIndex Value="0"/>
    545421        <TopLine Value="112"/>
    546422        <CursorPos X="3" Y="124"/>
    … …  
    550426      <Unit62>
    551427        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/sysutils/sysstrh.inc"/>
    552         <WindowIndex Value="0"/>
    553428        <TopLine Value="71"/>
    554429        <CursorPos X="10" Y="84"/>
    … …  
    558433      <Unit63>
    559434        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/objpas/sysutils/sysstr.inc"/>
    560         <WindowIndex Value="0"/>
    561435        <TopLine Value="148"/>
    562436        <CursorPos X="11" Y="169"/>
    … …  
    566440      <Unit64>
    567441        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/inc/systemh.inc"/>
    568         <WindowIndex Value="0"/>
    569442        <TopLine Value="511"/>
    570443        <CursorPos X="11" Y="524"/>
    … …  
    574447      <Unit65>
    575448        <Filename Value="../../../../Projekty2/FreePascalManager/trunk/Instance/1/FPC/rtl/i386/i386.inc"/>
    576         <WindowIndex Value="0"/>
    577449        <TopLine Value="411"/>
    578450        <CursorPos X="10" Y="424"/>
    … …  
    582454      <Unit66>
    583455        <Filename Value="../Specialized/SpecializedStream.pas"/>
    584         <UnitName Value="SpecializedStream"/>
    585         <EditorIndex Value="8"/>
    586         <WindowIndex Value="0"/>
     456        <EditorIndex Value="7"/>
    587457        <TopLine Value="106"/>
    588458        <CursorPos X="48" Y="107"/>
    589459        <UsageCount Value="15"/>
    590460        <Loaded Value="True"/>
     461        <DefaultSyntaxHighlighter Value="Delphi"/>
    591462      </Unit66>
    592463      <Unit67>
    593464        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/lcl/lclclasses.pp"/>
    594465        <UnitName Value="LCLClasses"/>
    595         <WindowIndex Value="0"/>
    596466        <TopLine Value="25"/>
    597467        <CursorPos X="32" Y="40"/>
    … …  
    601471        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/lcl/controls.pp"/>
    602472        <UnitName Value="Controls"/>
    603         <WindowIndex Value="0"/>
    604         <TopLine Value="1"/>
    605473        <CursorPos X="39" Y="11"/>
    606474        <UsageCount Value="9"/>
    … …  
    608476      <Unit69>
    609477        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/inc/objpash.inc"/>
    610         <WindowIndex Value="0"/>
    611478        <TopLine Value="179"/>
    612479        <CursorPos X="23" Y="192"/>
    … …  
    615482      <Unit70>
    616483        <Filename Value="../../../../../Lazarus/0.9.31_2.6.0/fpc/2.6.0/source/rtl/inc/objpas.inc"/>
    617         <WindowIndex Value="0"/>
    618484        <TopLine Value="265"/>
    619485        <CursorPos X="9" Y="267"/>
    … …  
    622488      <Unit71>
    623489        <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"/>
     490        <EditorIndex Value="6"/>
     491        <CursorPos X="21"/>
    629492        <UsageCount Value="15"/>
    630493        <Loaded Value="True"/>
     494        <DefaultSyntaxHighlighter Value="Delphi"/>
    631495      </Unit71>
    632496      <Unit72>
    633497        <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"/>
     498        <EditorIndex Value="-1"/>
    636499        <TopLine Value="891"/>
    637500        <CursorPos X="18" Y="908"/>
    638501        <UsageCount Value="13"/>
    639         <Loaded Value="True"/>
    640502      </Unit72>
    641503      <Unit73>
    642504        <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"/>
     505        <EditorIndex Value="-1"/>
    645506        <TopLine Value="739"/>
    646507        <CursorPos X="18" Y="750"/>
    647508        <UsageCount Value="13"/>
    648         <Loaded Value="True"/>
    649509      </Unit73>
    650510      <Unit74>
    651511        <Filename Value="../Generic/GenericListString.inc"/>
    652         <EditorIndex Value="6"/>
    653         <WindowIndex Value="0"/>
     512        <EditorIndex Value="5"/>
    654513        <TopLine Value="8"/>
    655514        <CursorPos X="34" Y="21"/>
    656515        <UsageCount Value="12"/>
    657516        <Loaded Value="True"/>
     517        <DefaultSyntaxHighlighter Value="Delphi"/>
    658518      </Unit74>
    659519    </Units>
    660     <JumpHistory Count="30" HistoryIndex="28">
     520    <JumpHistory Count="30" HistoryIndex="29">
    661521      <Position1>
    662         <Filename Value="UMainForm.pas"/>
    663         <Caret Line="142" Column="1" TopLine="128"/>
     522        <Filename Value="../Specialized/SpecializedStream.pas"/>
     523        <Caret Line="93" Column="21" TopLine="80"/>
    664524      </Position1>
    665525      <Position2>
    666         <Filename Value="UMainForm.pas"/>
    667         <Caret Line="143" Column="1" TopLine="128"/>
     526        <Filename Value="../Generic/GenericStream.inc"/>
     527        <Caret Line="22" Column="12" TopLine="9"/>
    668528      </Position2>
    669529      <Position3>
    670         <Filename Value="../Generic/GenericList.inc"/>
    671         <Caret Line="161" Column="1" TopLine="148"/>
     530        <Filename Value="../Generic/GenericStream.inc"/>
     531        <Caret Line="37" Column="18" TopLine="35"/>
    672532      </Position3>
    673533      <Position4>
    674534        <Filename Value="../Specialized/SpecializedStream.pas"/>
    675         <Caret Line="93" Column="21" TopLine="80"/>
     535        <Caret Line="58" Column="45" TopLine="46"/>
    676536      </Position4>
    677537      <Position5>
    678         <Filename Value="UMainForm.pas"/>
    679         <Caret Line="150" Column="22" TopLine="129"/>
     538        <Filename Value="../Specialized/SpecializedStream.pas"/>
     539        <Caret Line="119" Column="12" TopLine="100"/>
    680540      </Position5>
    681541      <Position6>
    682         <Filename Value="../Generic/GenericStream.inc"/>
    683         <Caret Line="22" Column="12" TopLine="9"/>
     542        <Filename Value="../Generic/GenericList.inc"/>
     543        <Caret Line="197" Column="39" TopLine="182"/>
    684544      </Position6>
    685545      <Position7>
    686         <Filename Value="../Generic/GenericStream.inc"/>
    687         <Caret Line="37" Column="18" TopLine="35"/>
     546        <Filename Value="../Specialized/SpecializedStream.pas"/>
     547        <Caret Line="119" Column="12" TopLine="100"/>
    688548      </Position7>
    689549      <Position8>
    690         <Filename Value="UMainForm.pas"/>
    691         <Caret Line="157" Column="79" TopLine="132"/>
     550        <Filename Value="../Specialized/SpecializedStream.pas"/>
     551        <Caret Line="61" Column="38" TopLine="48"/>
    692552      </Position8>
    693553      <Position9>
    694554        <Filename Value="../Specialized/SpecializedStream.pas"/>
    695         <Caret Line="58" Column="45" TopLine="46"/>
     555        <Caret Line="130" Column="15" TopLine="117"/>
    696556      </Position9>
    697557      <Position10>
    698558        <Filename Value="../Specialized/SpecializedStream.pas"/>
    699         <Caret Line="119" Column="12" TopLine="100"/>
     559        <Caret Line="64" Column="36" TopLine="51"/>
    700560      </Position10>
    701561      <Position11>
    702         <Filename Value="../Generic/GenericList.inc"/>
    703         <Caret Line="197" Column="39" TopLine="182"/>
     562        <Filename Value="../Specialized/SpecializedStream.pas"/>
     563        <Caret Line="58" Column="29" TopLine="45"/>
    704564      </Position11>
    705565      <Position12>
    706566        <Filename Value="../Specialized/SpecializedStream.pas"/>
    707         <Caret Line="119" Column="12" TopLine="100"/>
     567        <Caret Line="78" Column="45" TopLine="78"/>
    708568      </Position12>
    709569      <Position13>
    710570        <Filename Value="../Specialized/SpecializedStream.pas"/>
    711         <Caret Line="61" Column="38" TopLine="48"/>
     571        <Caret Line="64" Column="64" TopLine="48"/>
    712572      </Position13>
    713573      <Position14>
    714574        <Filename Value="../Specialized/SpecializedStream.pas"/>
    715         <Caret Line="130" Column="15" TopLine="117"/>
     575        <Caret Line="82" Column="3" TopLine="68"/>
    716576      </Position14>
    717577      <Position15>
    718         <Filename Value="../Specialized/SpecializedStream.pas"/>
    719         <Caret Line="64" Column="36" TopLine="51"/>
     578        <Filename Value="../Generic/GenericListObject.inc"/>
     579        <Caret Line="20" Column="21"/>
    720580      </Position15>
    721581      <Position16>
    722         <Filename Value="../Specialized/SpecializedStream.pas"/>
    723         <Caret Line="58" Column="29" TopLine="45"/>
     582        <Filename Value="../Generic/GenericListObject.inc"/>
     583        <Caret Line="24" Column="17" TopLine="11"/>
    724584      </Position16>
    725585      <Position17>
    726         <Filename Value="../Specialized/SpecializedStream.pas"/>
    727         <Caret Line="78" Column="45" TopLine="78"/>
     586        <Filename Value="../Generic/GenericListString.inc"/>
    728587      </Position17>
    729588      <Position18>
    730         <Filename Value="../Specialized/SpecializedStream.pas"/>
    731         <Caret Line="64" Column="64" TopLine="48"/>
     589        <Filename Value="../Generic/GenericStream.inc"/>
     590        <Caret Line="13"/>
    732591      </Position18>
    733592      <Position19>
    734593        <Filename Value="../Specialized/SpecializedStream.pas"/>
    735         <Caret Line="82" Column="3" TopLine="68"/>
     594        <Caret Line="84" Column="35" TopLine="40"/>
    736595      </Position19>
    737596      <Position20>
    738         <Filename Value="../Generic/GenericListObject.inc"/>
    739         <Caret Line="20" Column="21" TopLine="1"/>
     597        <Filename Value="../Specialized/SpecializedStream.pas"/>
     598        <Caret Line="126" Column="39" TopLine="111"/>
    740599      </Position20>
    741600      <Position21>
    742         <Filename Value="../Generic/GenericListObject.inc"/>
    743         <Caret Line="24" Column="17" TopLine="11"/>
     601        <Filename Value="../Specialized/SpecializedStream.pas"/>
     602        <Caret Line="128" TopLine="111"/>
    744603      </Position21>
    745604      <Position22>
    746         <Filename Value="../Generic/GenericListString.inc"/>
    747         <Caret Line="1" Column="1" TopLine="1"/>
     605        <Filename Value="../Specialized/SpecializedStream.pas"/>
     606        <Caret Line="68" Column="32" TopLine="55"/>
    748607      </Position22>
    749608      <Position23>
    750         <Filename Value="UMainForm.pas"/>
    751         <Caret Line="43" Column="15" TopLine="28"/>
     609        <Filename Value="../Specialized/SpecializedStream.pas"/>
     610        <Caret Line="121" TopLine="106"/>
    752611      </Position23>
    753612      <Position24>
    754         <Filename Value="../Generic/GenericStream.inc"/>
    755         <Caret Line="13" Column="1" TopLine="1"/>
     613        <Filename Value="FormMain.pas"/>
     614        <Caret Column="14"/>
    756615      </Position24>
    757616      <Position25>
    758         <Filename Value="../Specialized/SpecializedStream.pas"/>
    759         <Caret Line="84" Column="35" TopLine="40"/>
     617        <Filename Value="Demo.lpr"/>
     618        <Caret Line="8" Column="22"/>
    760619      </Position25>
    761620      <Position26>
    762         <Filename Value="../Specialized/SpecializedStream.pas"/>
    763         <Caret Line="126" Column="39" TopLine="111"/>
     621        <Filename Value="FormMain.pas"/>
     622        <Caret Line="14" Column="12"/>
    764623      </Position26>
    765624      <Position27>
    766         <Filename Value="../Specialized/SpecializedStream.pas"/>
    767         <Caret Line="128" Column="1" TopLine="111"/>
     625        <Filename Value="FormMain.pas"/>
     626        <Caret Line="50" Column="4" TopLine="13"/>
    768627      </Position27>
    769628      <Position28>
    770         <Filename Value="../Specialized/SpecializedStream.pas"/>
    771         <Caret Line="68" Column="32" TopLine="55"/>
     629        <Filename Value="Demo.lpr"/>
     630        <Caret Line="18" Column="45"/>
    772631      </Position28>
    773632      <Position29>
    774         <Filename Value="../Specialized/SpecializedStream.pas"/>
    775         <Caret Line="121" Column="1" TopLine="106"/>
     633        <Filename Value="Demo.lpr"/>
     634        <Caret Line="8" Column="20"/>
    776635      </Position29>
    777636      <Position30>
    778         <Filename Value="../Generic/GenericList.inc"/>
    779         <Caret Line="55" Column="15" TopLine="42"/>
     637        <Filename Value="FormMain.pas"/>
     638        <Caret Line="21" Column="73"/>
    780639      </Position30>
    781640    </JumpHistory>
    … …  
    809668    <Linking>
    810669      <Debugging>
    811         <DebugInfoType Value="dsStabs"/>
     670        <DebugInfoType Value="dsDwarf3"/>
    812671        <UseHeaptrc Value="True"/>
    813672      </Debugging>
    … …  
    818677      </Options>
    819678    </Linking>
    820     <Other>
    821       <CompilerMessages>
    822         <UseMsgFile Value="True"/>
    823       </CompilerMessages>
    824       <CompilerPath Value="$(CompPath)"/>
    825     </Other>
    826679  </CompilerOptions>
    827680  <Debugging>

  • Generics/TemplateGenerics/Demo/Demo.lpr

    r88 r574  
    11program Demo;
    2 
    3 {$mode objfpc}{$H+}
    42
    53uses
    … …  
    86  {$ENDIF}{$ENDIF}
    97  Interfaces, // this includes the LCL widgetset
    10   Forms, SysUtils, UMainForm, TemplateGenerics;
     8  Forms, SysUtils, FormMain, TemplateGenerics;
    119
    1210{$R *.res}
    … …  
    1816  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLogFileName);
    1917  Application.Initialize;
    20   Application.CreateForm(TMainForm, MainForm);
     18  Application.CreateForm(TFormMain, FormMain.FormMain);
    2119  Application.Run;
    2220end.

  • Generics/TemplateGenerics/Demo/FormMain.lfm

    r573 r574  
    1 object MainForm: TMainForm
     1object FormMain: TFormMain
    22  Left = 261
    3   Height = 520
     3  Height = 780
    44  Top = 104
    5   Width = 692
     5  Width = 1038
    66  ActiveControl = ButtonIntegerList
    77  Caption = 'Template generics demo'
    8   ClientHeight = 520
    9   ClientWidth = 692
     8  ClientHeight = 780
     9  ClientWidth = 1038
     10  DesignTimePPI = 144
    1011  OnCreate = FormCreate
    1112  OnDestroy = FormDestroy
    12   LCLVersion = '0.9.31'
     13  LCLVersion = '3.4.0.0'
    1314  object ButtonIntegerList: TButton
    14     Left = 8
    15     Height = 25
    16     Top = 8
    17     Width = 128
     15    Left = 12
     16    Height = 38
     17    Top = 12
     18    Width = 192
    1819    Caption = 'TListInteger'
     20    TabOrder = 0
    1921    OnClick = ButtonIntegerListClick
    20     TabOrder = 0
    2122  end
    2223  object ButtonStringList: TButton
    23     Left = 8
    24     Height = 25
    25     Top = 40
    26     Width = 128
     24    Left = 12
     25    Height = 38
     26    Top = 60
     27    Width = 192
    2728    Caption = 'TListString'
     29    TabOrder = 1
    2830    OnClick = ButtonStringListClick
    29     TabOrder = 1
    3031  end
    3132  object ButtonDictionaryString: TButton
    32     Left = 8
    33     Height = 25
    34     Top = 72
    35     Width = 128
     33    Left = 12
     34    Height = 38
     35    Top = 108
     36    Width = 192
    3637    Caption = 'TDictionaryString'
     38    TabOrder = 2
    3739    OnClick = ButtonDictionaryStringClick
    38     TabOrder = 2
    3940  end
    4041  object ButtonQueueInteger: TButton
    41     Left = 8
    42     Height = 25
    43     Top = 102
    44     Width = 128
     42    Left = 12
     43    Height = 38
     44    Top = 153
     45    Width = 192
    4546    Caption = 'TQueueInteger'
     47    TabOrder = 3
    4648    OnClick = ButtonQueueIntegerClick
    47     TabOrder = 3
    4849  end
    4950  object ButtonCharList: TButton
    50     Left = 8
    51     Height = 25
    52     Top = 134
    53     Width = 128
     51    Left = 12
     52    Height = 38
     53    Top = 201
     54    Width = 192
    5455    Caption = 'TListChar(TString)'
     56    TabOrder = 4
    5557    OnClick = ButtonCharListClick
    56     TabOrder = 4
    5758  end
    5859  object ButtonBenchmarkListString: TButton
    59     Left = 8
    60     Height = 24
    61     Top = 456
    62     Width = 128
     60    Left = 12
     61    Height = 36
     62    Top = 684
     63    Width = 192
    6364    Anchors = [akLeft, akBottom]
    6465    Caption = 'TListString'
     66    TabOrder = 5
    6567    OnClick = ButtonBenchmarkListStringClick
    66     TabOrder = 5
    6768  end
    6869  object ButtonListObject: TButton
    69     Left = 8
    70     Height = 25
    71     Top = 163
    72     Width = 128
     70    Left = 12
     71    Height = 38
     72    Top = 244
     73    Width = 192
    7374    Caption = 'TListObject'
     75    TabOrder = 6
    7476    OnClick = ButtonListObjectClick
    75     TabOrder = 6
    7677  end
    7778  object ButtonBenchmarkDictionary: TButton
    78     Left = 8
    79     Height = 25
    80     Top = 424
    81     Width = 128
     79    Left = 12
     80    Height = 38
     81    Top = 636
     82    Width = 192
    8283    Anchors = [akLeft, akBottom]
    8384    Caption = 'TDictionaryStringString'
     85    TabOrder = 7
    8486    OnClick = ButtonBenchmarkDictionaryClick
    85     TabOrder = 7
    8687  end
    8788  object ButtonMatrixInteger: TButton
    88     Left = 8
    89     Height = 25
    90     Top = 192
    91     Width = 128
     89    Left = 12
     90    Height = 38
     91    Top = 288
     92    Width = 192
    9293    Caption = 'TMatrixInteger'
     94    TabOrder = 8
    9395    OnClick = ButtonMatrixIntegerClick
    94     TabOrder = 8
    9596  end
    9697  object ListViewOutput: TListView
    97     Left = 144
    98     Height = 491
    99     Top = 24
    100     Width = 542
     98    Left = 216
     99    Height = 736
     100    Top = 36
     101    Width = 813
    101102    Anchors = [akTop, akLeft, akRight, akBottom]
    102     Columns = <   
     103    Columns = <
    103104      item
    104105        Caption = 'Action'
    105         Width = 200
    106       end   
     106        Width = 300
     107      end
    107108      item
    108109        Caption = 'Value'
    109         Width = 321
     110        Width = 498
    110111      end>
    111112    ReadOnly = True
    … …  
    114115  end
    115116  object LabelTestName: TLabel
    116     Left = 144
    117     Height = 14
    118     Top = 8
    119     Width = 10
     117    Left = 216
     118    Height = 26
     119    Top = 12
     120    Width = 15
    120121    Caption = '   '
    121122    ParentColor = False
    122123  end
    123124  object Label1: TLabel
    124     Left = 10
    125     Height = 14
    126     Top = 408
    127     Width = 62
     125    Left = 15
     126    Height = 26
     127    Top = 607
     128    Width = 111
    128129    Anchors = [akLeft, akBottom]
    129130    Caption = 'Benchmarks:'
    … …  
    131132  end
    132133  object ButtonBenchmarkListPointer: TButton
    133     Left = 8
    134     Height = 24
    135     Top = 488
    136     Width = 128
     134    Left = 12
     135    Height = 36
     136    Top = 732
     137    Width = 192
    137138    Anchors = [akLeft, akBottom]
    138139    Caption = 'TListPointer'
     140    TabOrder = 10
    139141    OnClick = ButtonBenchmarkListPointerClick
    140     TabOrder = 10
    141142  end
    142143  object ButtonStreamByte: TButton
    143     Left = 10
    144     Height = 25
    145     Top = 224
    146     Width = 128
     144    Left = 15
     145    Height = 38
     146    Top = 336
     147    Width = 192
    147148    Caption = 'TMemoryStreamByte'
     149    TabOrder = 11
    148150    OnClick = ButtonStreamByteClick
    149     TabOrder = 11
    150151  end
    151152end

  • Generics/TemplateGenerics/Demo/FormMain.pas

    r573 r574  
    1 unit UMainForm;
    2 
    3 {$mode delphi}{$H+}
     1unit FormMain;
    42
    53interface
    … …  
    1210type
    1311
    14   { TMainForm }
    15 
    16   TMainForm = class(TForm)
     12  { TFormMain }
     13
     14  TFormMain = class(TForm)
    1715    ButtonStreamByte: TButton;
    1816    ButtonBenchmarkDictionary: TButton;
    … …  
    5048
    5149var
    52   MainForm: TMainForm;
     50  FormMain: TFormMain;
     51
    5352
    5453implementation
    … …  
    5655{$R *.lfm}
    5756
    58 { TMainForm }
    59 
    60 procedure TMainForm.FormCreate(Sender: TObject);
     57{ TFormMain }
     58
     59procedure TFormMain.FormCreate(Sender: TObject);
    6160begin
    6261  MeasureDuration := 100 * OneMillisecond;
    6362end;
    6463
    65 procedure TMainForm.ButtonIntegerListClick(Sender: TObject);
     64procedure TFormMain.ButtonIntegerListClick(Sender: TObject);
    6665var
    6766  List: TListInteger;
    … …  
    105104end;
    106105
    107 procedure TMainForm.ButtonMatrixIntegerClick(Sender: TObject);
     106procedure TFormMain.ButtonMatrixIntegerClick(Sender: TObject);
    108107var
    109108  Matrix: TMatrixInteger;
    … …  
    129128end;
    130129
    131 procedure TMainForm.ButtonStreamByteClick(Sender: TObject);
     130procedure TFormMain.ButtonStreamByteClick(Sender: TObject);
    132131var
    133132  Stream: TMemoryStreamByte;
    … …  
    171170end;
    172171
    173 procedure TMainForm.ButtonListObjectClick(Sender: TObject);
     172procedure TFormMain.ButtonListObjectClick(Sender: TObject);
    174173var
    175174  List: TListObject;
    … …  
    196195end;
    197196
    198 procedure TMainForm.ButtonQueueIntegerClick(Sender: TObject);
     197procedure TFormMain.ButtonQueueIntegerClick(Sender: TObject);
    199198var
    200199  Queue: TQueueInteger;
    … …  
    223222end;
    224223
    225 procedure TMainForm.ButtonDictionaryStringClick(Sender: TObject);
     224procedure TFormMain.ButtonDictionaryStringClick(Sender: TObject);
    226225var
    227226  Dictionary: TDictionaryStringString;
    … …  
    251250end;
    252251
    253 procedure TMainForm.ButtonCharListClick(Sender: TObject);
     252procedure TFormMain.ButtonCharListClick(Sender: TObject);
    254253var
    255254  List: TListChar;
    … …  
    283282end;
    284283
    285 procedure TMainForm.ButtonBenchmarkListStringClick(Sender: TObject);
     284procedure TFormMain.ButtonBenchmarkListStringClick(Sender: TObject);
    286285var
    287286  List: TListString;
    … …  
    431430end;
    432431
    433 procedure TMainForm.ButtonBenchmarkDictionaryClick(Sender: TObject);
     432procedure TFormMain.ButtonBenchmarkDictionaryClick(Sender: TObject);
    434433var
    435434  Dictionary: TDictionaryStringString;
    … …  
    526525end;
    527526
    528 procedure TMainForm.ButtonBenchmarkListPointerClick(Sender: TObject);
     527procedure TFormMain.ButtonBenchmarkListPointerClick(Sender: TObject);
    529528var
    530529  List: TListPointer;
    … …  
    726725end;
    727726
    728 procedure TMainForm.ButtonStringListClick(Sender: TObject);
     727procedure TFormMain.ButtonStringListClick(Sender: TObject);
    729728var
    730729  List: TListString;
    … …  
    753752end;
    754753
    755 procedure TMainForm.FormDestroy(Sender: TObject);
    756 begin
    757 end;
    758 
    759 procedure TMainForm.UpdateButtonState(Enabled: Boolean);
     754procedure TFormMain.FormDestroy(Sender: TObject);
     755begin
     756end;
     757
     758procedure TFormMain.UpdateButtonState(Enabled: Boolean);
    760759begin
    761760  ButtonBenchmarkDictionary.Enabled := Enabled;
    … …  
    770769end;
    771770
    772 procedure TMainForm.WriteOutput(Text1: string = ''; Text2: string = '');
     771procedure TFormMain.WriteOutput(Text1: string = ''; Text2: string = '');
    773772var
    774773  NewItem: TListItem;

  • Generics/TemplateGenerics/Generic/GenericPoint.inc

    r333 r574  
    22
    33// TGPoint<TPointType> = class
    4 TGPoint = class
     4TGPoint = record
    55  X: TGPointType;
    66  Y: TGPointType;

  • Generics/TemplateGenerics/ReadMe.txt

    r519 r574  
    22=================
    33
    4 Tutorial and basic information:
    5   http://wiki.freepascal.org/Templates
     4Tutorial and basic information: http://wiki.freepascal.org/Templates
    65
    7 Version: 0.3
    8 Release date: 2011-01-01
     6Version: 0.4
     7Release date: 2024-06-25
    98Author: Chronos
    109Email: robie@centrum.cz

  • Generics/TemplateGenerics/Specialized/SpecializedBitmap.pas

    r257 r574  
    1   unit SpecializedBitmap;
    2 
    3 {$mode Delphi}{$H+}
     1unit SpecializedBitmap;
    42
    53interface

  • Generics/TemplateGenerics/Specialized/SpecializedDictionary.pas

    r426 r574  
    11unit SpecializedDictionary;
    2 
    3 {$mode delphi}
    42
    53interface

  • Generics/TemplateGenerics/Specialized/SpecializedList.pas

    r441 r574  
    11unit SpecializedList;
    2 
    3 {$mode delphi}
    42
    53interface

  • Generics/TemplateGenerics/Specialized/SpecializedMatrix.pas

    r426 r574  
    11unit SpecializedMatrix;
    2 
    3 {$mode objfpc}{$H+}
    42
    53interface
    64
    75uses
    8   Classes, SysUtils; 
     6  Classes, SysUtils;
    97
    108type

  • Generics/TemplateGenerics/Specialized/SpecializedPoint.pas

    r489 r574  
    11unit SpecializedPoint;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • Generics/TemplateGenerics/Specialized/SpecializedQueue.pas

    r426 r574  
    11unit SpecializedQueue;
    2 
    3 {$mode delphi}
    42
    53interface

  • Generics/TemplateGenerics/Specialized/SpecializedRectangle.pas

    r333 r574  
    11unit SpecializedRectangle;
    2 
    3 {$mode Delphi}{$H+}
    42
    53interface

  • Generics/TemplateGenerics/Specialized/SpecializedSet.pas

    r426 r574  
    11unit SpecializedSet;
    2 
    3 {$mode delphi}
    42
    53interface

  • Generics/TemplateGenerics/Specialized/SpecializedStack.pas

    r426 r574  
    11unit SpecializedStack;
    2 
    3 {$mode delphi}
    42
    53interface

  • Generics/TemplateGenerics/Specialized/SpecializedStream.pas

    r529 r574  
    11unit SpecializedStream;
    2 
    3 {$mode delphi}
    42
    53interface

  • Generics/TemplateGenerics/Specialized/SpecializedTree.pas

    r426 r574  
    11unit SpecializedTree;
    2 
    3 {$mode delphi}
    42
    53interface

  • Generics/TemplateGenerics/TemplateGenerics.lpk

    r528 r574  
    152152      </Item27>
    153153      <Item28>
    154         <Filename Value="Additional\UBinarySerializer.pas"/>
    155         <UnitName Value="UBinarySerializer"/>
     154        <Filename Value="Additional\BinarySerializer.pas"/>
     155        <UnitName Value="BinarySerializer"/>
    156156      </Item28>
    157157    </Files>

  • Generics/TemplateGenerics/TemplateGenerics.pas

    r342 r574  
    55unit TemplateGenerics;
    66
     7{$warn 5023 off : no warning about unused units}
    78interface
    89
    … …  
    1112  SpecializedQueue, SpecializedSet, SpecializedPoint, SpecializedMatrix,
    1213  SpecializedBitmap, SpecializedStream, SpecializedRectangle,
    13   UBinarySerializer, LazarusPackageIntf;
     14  BinarySerializer, LazarusPackageIntf;
    1415
    1516implementation
Note: See TracChangeset for help on using the changeset viewer.