Ignore:
Timestamp:
Nov 17, 2010, 7:34:05 PM (14 years ago)
Author:
george
Message:
  • Added: Method Explode to create list items from string.
  • Modified: Definition for procedural type TGListStringConverter changed to TGListToStringConverter and TFListFromStringConverter.
  • Modified: Sepcialized unit ListObject renamed to SpecializedObjectList.
Location:
Generics/TemplateGenerics/Demo
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/Demo/Demo.lpi

    r90 r91  
    3838      </Item2>
    3939    </RequiredPackages>
    40     <Units Count="94">
     40    <Units Count="95">
    4141      <Unit0>
    4242        <Filename Value="Demo.lpr"/>
    … …  
    4646        <TopLine Value="1"/>
    4747        <CursorPos X="26" Y="8"/>
    48         <UsageCount Value="64"/>
     48        <UsageCount Value="65"/>
    4949        <DefaultSyntaxHighlighter Value="Delphi"/>
    5050      </Unit0>
    … …  
    5555        <ResourceBaseClass Value="Form"/>
    5656        <UnitName Value="UMainForm"/>
    57         <IsVisibleTab Value="True"/>
    5857        <EditorIndex Value="0"/>
    5958        <WindowIndex Value="0"/>
    60         <TopLine Value="1"/>
    61         <CursorPos X="15" Y="33"/>
    62         <UsageCount Value="64"/>
     59        <TopLine Value="316"/>
     60        <CursorPos X="21" Y="332"/>
     61        <UsageCount Value="65"/>
    6362        <Loaded Value="True"/>
    6463        <LoadedDesigner Value="True"/>
    … …  
    659658        <CursorPos X="57" Y="57"/>
    660659        <UsageCount Value="10"/>
    661         <DefaultSyntaxHighlighter Value="Delphi"/>
    662660      </Unit75>
    663661      <Unit76>
    … …  
    679677      <Unit78>
    680678        <Filename Value="../Generic/GenericList.inc"/>
    681         <EditorIndex Value="16"/>
    682         <WindowIndex Value="0"/>
    683         <TopLine Value="58"/>
    684         <CursorPos X="86" Y="71"/>
     679        <IsVisibleTab Value="True"/>
     680        <EditorIndex Value="15"/>
     681        <WindowIndex Value="0"/>
     682        <TopLine Value="307"/>
     683        <CursorPos X="24" Y="307"/>
    685684        <UsageCount Value="14"/>
    686685        <Loaded Value="True"/>
    … …  
    688687      <Unit79>
    689688        <Filename Value="../Generic/GenericDictionary.inc"/>
    690         <EditorIndex Value="3"/>
    691         <WindowIndex Value="0"/>
    692         <TopLine Value="1"/>
    693         <CursorPos X="1" Y="10"/>
     689        <EditorIndex Value="1"/>
     690        <WindowIndex Value="0"/>
     691        <TopLine Value="31"/>
     692        <CursorPos X="44" Y="47"/>
    694693        <UsageCount Value="14"/>
    695694        <Loaded Value="True"/>
    … …  
    697696      <Unit80>
    698697        <Filename Value="../Generic/GenericObjectList.inc"/>
    699         <EditorIndex Value="5"/>
    700         <WindowIndex Value="0"/>
    701         <TopLine Value="34"/>
    702         <CursorPos X="8" Y="56"/>
     698        <EditorIndex Value="3"/>
     699        <WindowIndex Value="0"/>
     700        <TopLine Value="1"/>
     701        <CursorPos X="36" Y="48"/>
    703702        <UsageCount Value="14"/>
    704703        <Loaded Value="True"/>
    … …  
    706705      <Unit81>
    707706        <Filename Value="../Generic/GenericQueue.inc"/>
    708         <EditorIndex Value="9"/>
    709         <WindowIndex Value="0"/>
    710         <TopLine Value="1"/>
     707        <EditorIndex Value="7"/>
     708        <WindowIndex Value="0"/>
     709        <TopLine Value="21"/>
    711710        <CursorPos X="1" Y="3"/>
    712711        <UsageCount Value="14"/>
    … …  
    715714      <Unit82>
    716715        <Filename Value="../Generic/GenericSet.inc"/>
    717         <EditorIndex Value="14"/>
    718         <WindowIndex Value="0"/>
    719         <TopLine Value="1"/>
     716        <EditorIndex Value="12"/>
     717        <WindowIndex Value="0"/>
     718        <TopLine Value="21"/>
    720719        <CursorPos X="42" Y="11"/>
    721720        <UsageCount Value="14"/>
    … …  
    724723      <Unit83>
    725724        <Filename Value="../Generic/GenericStack.inc"/>
    726         <EditorIndex Value="13"/>
    727         <WindowIndex Value="0"/>
    728         <TopLine Value="1"/>
     725        <EditorIndex Value="11"/>
     726        <WindowIndex Value="0"/>
     727        <TopLine Value="21"/>
    729728        <CursorPos X="1" Y="3"/>
    730729        <UsageCount Value="14"/>
    … …  
    733732      <Unit84>
    734733        <Filename Value="../Generic/GenericTree.inc"/>
    735         <EditorIndex Value="15"/>
     734        <EditorIndex Value="13"/>
    736735        <WindowIndex Value="0"/>
    737736        <TopLine Value="1"/>
    … …  
    743742        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    744743        <UnitName Value="SpecializedDictionary"/>
    745         <EditorIndex Value="11"/>
    746         <WindowIndex Value="0"/>
    747         <TopLine Value="1"/>
    748         <CursorPos X="1" Y="13"/>
     744        <EditorIndex Value="9"/>
     745        <WindowIndex Value="0"/>
     746        <TopLine Value="9"/>
     747        <CursorPos X="56" Y="36"/>
    749748        <UsageCount Value="13"/>
    750749        <Loaded Value="True"/>
    … …  
    753752        <Filename Value="../Specialized/SpecializedStack.pas"/>
    754753        <UnitName Value="SpecializedStack"/>
    755         <EditorIndex Value="12"/>
    756         <WindowIndex Value="0"/>
    757         <TopLine Value="1"/>
    758         <CursorPos X="1" Y="13"/>
     754        <EditorIndex Value="10"/>
     755        <WindowIndex Value="0"/>
     756        <TopLine Value="30"/>
     757        <CursorPos X="50" Y="59"/>
    759758        <UsageCount Value="12"/>
    760759        <Loaded Value="True"/>
    … …  
    763762        <Filename Value="../Specialized/SpecializedTree.pas"/>
    764763        <UnitName Value="SpecializedTree"/>
    765         <EditorIndex Value="4"/>
    766         <WindowIndex Value="0"/>
    767         <TopLine Value="1"/>
    768         <CursorPos X="1" Y="11"/>
     764        <EditorIndex Value="2"/>
     765        <WindowIndex Value="0"/>
     766        <TopLine Value="57"/>
     767        <CursorPos X="48" Y="85"/>
    769768        <UsageCount Value="12"/>
    770769        <Loaded Value="True"/>
    … …  
    772771      <Unit88>
    773772        <Filename Value="../Generic/GenericRange.inc"/>
    774         <EditorIndex Value="10"/>
     773        <EditorIndex Value="8"/>
    775774        <WindowIndex Value="0"/>
    776775        <TopLine Value="1"/>
    … …  
    782781        <Filename Value="../Specialized/SpecializedQueue.pas"/>
    783782        <UnitName Value="SpecializedQueue"/>
    784         <EditorIndex Value="6"/>
    785         <WindowIndex Value="0"/>
    786         <TopLine Value="1"/>
    787         <CursorPos X="1" Y="13"/>
     783        <EditorIndex Value="4"/>
     784        <WindowIndex Value="0"/>
     785        <TopLine Value="52"/>
     786        <CursorPos X="1" Y="81"/>
    788787        <UsageCount Value="12"/>
    789788        <Loaded Value="True"/>
    … …  
    792791        <Filename Value="../Specialized/SpecializedSet.pas"/>
    793792        <UnitName Value="SpecializedSet"/>
    794         <EditorIndex Value="8"/>
    795         <WindowIndex Value="0"/>
    796         <TopLine Value="1"/>
    797         <CursorPos X="1" Y="13"/>
     793        <EditorIndex Value="6"/>
     794        <WindowIndex Value="0"/>
     795        <TopLine Value="31"/>
     796        <CursorPos X="1" Y="62"/>
    798797        <UsageCount Value="12"/>
    799798        <Loaded Value="True"/>
    … …  
    801800      <Unit91>
    802801        <Filename Value="../Generic/GenericPoint.inc"/>
    803         <EditorIndex Value="1"/>
    804802        <WindowIndex Value="0"/>
    805803        <TopLine Value="1"/>
    806804        <CursorPos X="33" Y="5"/>
    807805        <UsageCount Value="11"/>
    808         <Loaded Value="True"/>
    809806      </Unit91>
    810807      <Unit92>
    811808        <Filename Value="../Specialized/SpecializedPoint.pas"/>
    812809        <UnitName Value="SpecializedPoint"/>
    813         <EditorIndex Value="2"/>
    814810        <WindowIndex Value="0"/>
    815811        <TopLine Value="1"/>
    816812        <CursorPos X="1" Y="1"/>
    817813        <UsageCount Value="11"/>
    818         <Loaded Value="True"/>
    819814      </Unit92>
    820815      <Unit93>
    821816        <Filename Value="../Specialized/SpecializedObjectList.pas"/>
    822817        <UnitName Value="SpecializedObjectList"/>
    823         <EditorIndex Value="7"/>
    824         <WindowIndex Value="0"/>
    825         <TopLine Value="1"/>
    826         <CursorPos X="1" Y="1"/>
     818        <EditorIndex Value="5"/>
     819        <WindowIndex Value="0"/>
     820        <TopLine Value="9"/>
     821        <CursorPos X="60" Y="36"/>
    827822        <UsageCount Value="11"/>
    828823        <Loaded Value="True"/>
    829824      </Unit93>
     825      <Unit94>
     826        <Filename Value="../Specialized/SpecializedList.pas"/>
     827        <UnitName Value="SpecializedList"/>
     828        <EditorIndex Value="14"/>
     829        <WindowIndex Value="0"/>
     830        <TopLine Value="63"/>
     831        <CursorPos X="54" Y="79"/>
     832        <UsageCount Value="10"/>
     833        <Loaded Value="True"/>
     834      </Unit94>
    830835    </Units>
    831836    <JumpHistory Count="30" HistoryIndex="29">
    832837      <Position1>
    833         <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    834         <Caret Line="19" Column="42" TopLine="1"/>
     838        <Filename Value="UMainForm.pas"/>
     839        <Caret Line="188" Column="5" TopLine="168"/>
    835840      </Position1>
    836841      <Position2>
    837         <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    838         <Caret Line="18" Column="24" TopLine="1"/>
     842        <Filename Value="UMainForm.pas"/>
     843        <Caret Line="393" Column="5" TopLine="364"/>
    839844      </Position2>
    840845      <Position3>
    841         <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    842         <Caret Line="19" Column="43" TopLine="1"/>
     846        <Filename Value="../Specialized/SpecializedQueue.pas"/>
     847        <Caret Line="33" Column="32" TopLine="1"/>
    843848      </Position3>
    844849      <Position4>
    845         <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    846         <Caret Line="39" Column="5" TopLine="3"/>
     850        <Filename Value="../Specialized/SpecializedQueue.pas"/>
     851        <Caret Line="20" Column="34" TopLine="1"/>
    847852      </Position4>
    848853      <Position5>
    849         <Filename Value="../Specialized/SpecializedStack.pas"/>
    850         <Caret Line="19" Column="36" TopLine="1"/>
     854        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
     855        <Caret Line="22" Column="36" TopLine="1"/>
    851856      </Position5>
    852857      <Position6>
    853         <Filename Value="../Specialized/SpecializedStack.pas"/>
    854         <Caret Line="5" Column="1" TopLine="1"/>
     858        <Filename Value="UMainForm.pas"/>
     859        <Caret Line="469" Column="3" TopLine="439"/>
    855860      </Position6>
    856861      <Position7>
    857         <Filename Value="../Generic/GenericStack.inc"/>
    858         <Caret Line="28" Column="34" TopLine="13"/>
     862        <Filename Value="../Generic/GenericObjectList.inc"/>
     863        <Caret Line="14" Column="55" TopLine="1"/>
    859864      </Position7>
    860865      <Position8>
    861866        <Filename Value="UMainForm.pas"/>
    862         <Caret Line="9" Column="7" TopLine="1"/>
     867        <Caret Line="89" Column="20" TopLine="70"/>
    863868      </Position8>
    864869      <Position9>
    865         <Filename Value="UMainForm.pas"/>
    866         <Caret Line="10" Column="20" TopLine="1"/>
     870        <Filename Value="../Specialized/SpecializedDictionary.pas"/>
     871        <Caret Line="22" Column="36" TopLine="1"/>
    867872      </Position9>
    868873      <Position10>
    869         <Filename Value="UMainForm.pas"/>
    870         <Caret Line="20" Column="49" TopLine="1"/>
     874        <Filename Value="../Generic/GenericTree.inc"/>
     875        <Caret Line="33" Column="25" TopLine="12"/>
    871876      </Position10>
    872877      <Position11>
    873         <Filename Value="UMainForm.pas"/>
    874         <Caret Line="22" Column="35" TopLine="1"/>
     878        <Filename Value="../Specialized/SpecializedTree.pas"/>
     879        <Caret Line="82" Column="5" TopLine="47"/>
    875880      </Position11>
    876881      <Position12>
    877882        <Filename Value="UMainForm.pas"/>
    878         <Caret Line="110" Column="12" TopLine="81"/>
     883        <Caret Line="360" Column="51" TopLine="342"/>
    879884      </Position12>
    880885      <Position13>
    881         <Filename Value="UMainForm.pas"/>
    882         <Caret Line="133" Column="9" TopLine="103"/>
     886        <Filename Value="../Generic/GenericList.inc"/>
     887        <Caret Line="71" Column="86" TopLine="58"/>
    883888      </Position13>
    884889      <Position14>
    885         <Filename Value="UMainForm.pas"/>
    886         <Caret Line="162" Column="7" TopLine="136"/>
     890        <Filename Value="../Generic/GenericList.inc"/>
     891        <Caret Line="18" Column="42" TopLine="1"/>
    887892      </Position14>
    888893      <Position15>
    889         <Filename Value="UMainForm.pas"/>
    890         <Caret Line="171" Column="1" TopLine="152"/>
     894        <Filename Value="../Generic/GenericList.inc"/>
     895        <Caret Line="6" Column="29" TopLine="1"/>
    891896      </Position15>
    892897      <Position16>
    893         <Filename Value="UMainForm.pas"/>
    894         <Caret Line="190" Column="7" TopLine="165"/>
     898        <Filename Value="../Generic/GenericList.inc"/>
     899        <Caret Line="12" Column="37" TopLine="1"/>
    895900      </Position16>
    896901      <Position17>
    897         <Filename Value="UMainForm.pas"/>
    898         <Caret Line="188" Column="5" TopLine="168"/>
     902        <Filename Value="../Generic/GenericList.inc"/>
     903        <Caret Line="377" Column="25" TopLine="359"/>
    899904      </Position17>
    900905      <Position18>
    901         <Filename Value="UMainForm.pas"/>
    902         <Caret Line="393" Column="5" TopLine="364"/>
     906        <Filename Value="../Generic/GenericList.inc"/>
     907        <Caret Line="375" Column="57" TopLine="359"/>
    903908      </Position18>
    904909      <Position19>
    905         <Filename Value="../Specialized/SpecializedQueue.pas"/>
    906         <Caret Line="33" Column="32" TopLine="1"/>
     910        <Filename Value="../Generic/GenericList.inc"/>
     911        <Caret Line="39" Column="14" TopLine="38"/>
    907912      </Position19>
    908913      <Position20>
    909         <Filename Value="../Specialized/SpecializedQueue.pas"/>
    910         <Caret Line="20" Column="34" TopLine="1"/>
     914        <Filename Value="../Generic/GenericList.inc"/>
     915        <Caret Line="375" Column="77" TopLine="359"/>
    911916      </Position20>
    912917      <Position21>
    913         <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    914         <Caret Line="22" Column="36" TopLine="1"/>
     918        <Filename Value="../Generic/GenericList.inc"/>
     919        <Caret Line="8" Column="22" TopLine="1"/>
    915920      </Position21>
    916921      <Position22>
    917         <Filename Value="UMainForm.pas"/>
    918         <Caret Line="469" Column="3" TopLine="439"/>
     922        <Filename Value="../Generic/GenericList.inc"/>
     923        <Caret Line="40" Column="22" TopLine="24"/>
    919924      </Position22>
    920925      <Position23>
    921         <Filename Value="../Generic/GenericObjectList.inc"/>
    922         <Caret Line="14" Column="55" TopLine="1"/>
     926        <Filename Value="../Generic/GenericList.inc"/>
     927        <Caret Line="394" Column="60" TopLine="375"/>
    923928      </Position23>
    924929      <Position24>
    925         <Filename Value="UMainForm.pas"/>
    926         <Caret Line="89" Column="20" TopLine="70"/>
     930        <Filename Value="../Generic/GenericList.inc"/>
     931        <Caret Line="396" Column="62" TopLine="375"/>
    927932      </Position24>
    928933      <Position25>
    929         <Filename Value="../Specialized/SpecializedDictionary.pas"/>
    930         <Caret Line="22" Column="36" TopLine="1"/>
     934        <Filename Value="../Generic/GenericList.inc"/>
     935        <Caret Line="393" Column="26" TopLine="377"/>
    931936      </Position25>
    932937      <Position26>
    933         <Filename Value="../Generic/GenericTree.inc"/>
    934         <Caret Line="33" Column="25" TopLine="12"/>
     938        <Filename Value="../Generic/GenericList.inc"/>
     939        <Caret Line="389" Column="87" TopLine="377"/>
    935940      </Position26>
    936941      <Position27>
    937         <Filename Value="../Specialized/SpecializedTree.pas"/>
    938         <Caret Line="82" Column="5" TopLine="47"/>
     942        <Filename Value="UMainForm.pas"/>
     943        <Caret Line="15" Column="35" TopLine="71"/>
    939944      </Position27>
    940945      <Position28>
    941946        <Filename Value="UMainForm.pas"/>
    942         <Caret Line="360" Column="51" TopLine="342"/>
     947        <Caret Line="14" Column="1" TopLine="1"/>
    943948      </Position28>
    944949      <Position29>
    945         <Filename Value="../Generic/GenericPoint.inc"/>
    946         <Caret Line="6" Column="1" TopLine="1"/>
     950        <Filename Value="../Generic/GenericList.inc"/>
     951        <Caret Line="24" Column="5" TopLine="23"/>
    947952      </Position29>
    948953      <Position30>
    949         <Filename Value="../Generic/GenericPoint.inc"/>
    950         <Caret Line="12" Column="62" TopLine="1"/>
     954        <Filename Value="../Generic/GenericList.inc"/>
     955        <Caret Line="33" Column="21" TopLine="17"/>
    951956      </Position30>
    952957    </JumpHistory>
    … …  
    967972        <AllowLabel Value="False"/>
    968973        <CPPInline Value="False"/>
     974        <CStyleMacros Value="True"/>
    969975      </SyntaxOptions>
    970976    </Parsing>

  • Generics/TemplateGenerics/Demo/UMainForm.lfm

    r90 r91  
    44  Top = 121
    55  Width = 478
     6  ActiveControl = ButtonIntegerList
    67  Caption = 'Template generics demo'
    78  ClientHeight = 397
Note: See TracChangeset for help on using the changeset viewer.