Changeset 37


Ignore:
Timestamp:
Oct 30, 2010, 7:36:25 PM (14 years ago)
Author:
george
Message:
  • Modified: TAssociativeArray replaced by specialized generic class TDictionaryStringString.
  • Modified: All TObjectList replaced by specialized generic class TListObject.
Location:
trunk
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UUser.pas

    r36 r37  
    131131  DbRows := Database.Query('SELECT `Id` FROM `User` WHERE `Name`="' + Name + '"');
    132132  try
    133     if DbRows.Count = 1 then Result := StrToInt(DbRows[0].ValuesAtIndex[0])
     133    if DbRows.Count = 1 then Result := StrToInt(DbRows[0].Items[0].Value)
    134134      else raise ENotFound.Create('User "' + Name + '" not found');
    135135  finally
    … …  
    145145    '`Password` = SHA1(CONCAT("' + Password + '", Salt))');
    146146  try
    147     if DbRows.Count = 1 then Result := StrToInt(DbRows[0].ValuesAtIndex[0])
     147    if DbRows.Count = 1 then Result := StrToInt(DbRows[0].Items[0].Value)
    148148      else raise ENotFound.Create('User "' + Name + '" not found');
    149149  finally

  • trunk/CGI.lpi

    r36 r37  
    3636      </local>
    3737    </RunParams>
    38     <RequiredPackages Count="1">
     38    <RequiredPackages Count="2">
    3939      <Item1>
     40        <PackageName Value="TemplateGenerics"/>
     41      </Item1>
     42      <Item2>
    4043        <PackageName Value="synapse"/>
    4144        <MinVersion Valid="True"/>
    42       </Item1>
     45      </Item2>
    4346    </RequiredPackages>
    44     <Units Count="68">
     47    <Units Count="71">
    4548      <Unit0>
    4649        <Filename Value="CGI.lpr"/>
    … …  
    6063        <IsPartOfProject Value="True"/>
    6164        <UnitName Value="UMainPage"/>
    62         <EditorIndex Value="24"/>
    63         <WindowIndex Value="0"/>
    64         <TopLine Value="313"/>
     65        <EditorIndex Value="25"/>
     66        <WindowIndex Value="0"/>
     67        <TopLine Value="271"/>
    6568        <CursorPos X="20" Y="316"/>
    66         <UsageCount Value="199"/>
     69        <UsageCount Value="200"/>
    6770        <Loaded Value="True"/>
    6871        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    8891        <EditorIndex Value="34"/>
    8992        <WindowIndex Value="0"/>
    90         <TopLine Value="37"/>
     93        <TopLine Value="1"/>
    9194        <CursorPos X="69" Y="51"/>
    9295        <UsageCount Value="203"/>
    … …  
    167170      <Unit13>
    168171        <Filename Value="/usr/share/fpcsrc/rtl/objpas/dateutil.inc"/>
    169         <EditorIndex Value="27"/>
    170172        <WindowIndex Value="0"/>
    171173        <TopLine Value="283"/>
    172174        <CursorPos X="10" Y="302"/>
    173175        <UsageCount Value="31"/>
    174         <Loaded Value="True"/>
    175176        <DefaultSyntaxHighlighter Value="Delphi"/>
    176177      </Unit13>
    … …  
    183184        <TopLine Value="1"/>
    184185        <CursorPos X="92" Y="11"/>
    185         <UsageCount Value="178"/>
     186        <UsageCount Value="179"/>
    186187        <Loaded Value="True"/>
    187188        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    192193        <TopLine Value="108"/>
    193194        <CursorPos X="1" Y="134"/>
    194         <UsageCount Value="178"/>
     195        <UsageCount Value="179"/>
    195196        <DefaultSyntaxHighlighter Value="None"/>
    196197      </Unit15>
    … …  
    200201        <TopLine Value="1"/>
    201202        <CursorPos X="1" Y="1"/>
    202         <UsageCount Value="178"/>
     203        <UsageCount Value="179"/>
    203204        <DefaultSyntaxHighlighter Value="JScript"/>
    204205      </Unit16>
    … …  
    244245        <TopLine Value="1"/>
    245246        <CursorPos X="19" Y="4"/>
    246         <UsageCount Value="0"/>
     247        <UsageCount Value="10"/>
    247248        <DefaultSyntaxHighlighter Value="Delphi"/>
    248249      </Unit21>
    … …  
    368369        <EditorIndex Value="7"/>
    369370        <WindowIndex Value="0"/>
    370         <TopLine Value="543"/>
     371        <TopLine Value="539"/>
    371372        <CursorPos X="14" Y="556"/>
    372373        <UsageCount Value="39"/>
    … …  
    422423        <WindowIndex Value="0"/>
    423424        <TopLine Value="1"/>
    424         <CursorPos X="46" Y="11"/>
    425         <UsageCount Value="78"/>
     425        <CursorPos X="15" Y="46"/>
     426        <UsageCount Value="79"/>
    426427        <Loaded Value="True"/>
    427428        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    439440        <Filename Value="Common/UDatabase.pas"/>
    440441        <IsPartOfProject Value="True"/>
    441         <UsageCount Value="78"/>
     442        <UnitName Value="UDatabase"/>
     443        <EditorIndex Value="23"/>
     444        <WindowIndex Value="0"/>
     445        <TopLine Value="61"/>
     446        <CursorPos X="26" Y="22"/>
     447        <UsageCount Value="79"/>
     448        <Loaded Value="True"/>
    442449        <DefaultSyntaxHighlighter Value="Delphi"/>
    443450      </Unit42>
    … …  
    448455        <EditorIndex Value="30"/>
    449456        <WindowIndex Value="0"/>
    450         <TopLine Value="132"/>
    451         <CursorPos X="5" Y="149"/>
    452         <UsageCount Value="78"/>
     457        <TopLine Value="279"/>
     458        <CursorPos X="56" Y="299"/>
     459        <UsageCount Value="79"/>
    453460        <Loaded Value="True"/>
    454461        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    458465        <IsPartOfProject Value="True"/>
    459466        <UnitName Value="USqlDatabase"/>
    460         <EditorIndex Value="26"/>
    461         <WindowIndex Value="0"/>
    462         <TopLine Value="215"/>
    463         <CursorPos X="49" Y="233"/>
    464         <UsageCount Value="78"/>
     467        <EditorIndex Value="27"/>
     468        <WindowIndex Value="0"/>
     469        <TopLine Value="1"/>
     470        <CursorPos X="36" Y="11"/>
     471        <UsageCount Value="79"/>
    465472        <Loaded Value="True"/>
    466473        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    472479        <EditorIndex Value="11"/>
    473480        <WindowIndex Value="0"/>
    474         <TopLine Value="13"/>
    475         <CursorPos X="5" Y="32"/>
    476         <UsageCount Value="78"/>
     481        <TopLine Value="44"/>
     482        <CursorPos X="29" Y="61"/>
     483        <UsageCount Value="79"/>
    477484        <Loaded Value="True"/>
    478485        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    507514      <Unit49>
    508515        <Filename Value="/usr/share/fpcsrc/rtl/inc/systemh.inc"/>
    509         <EditorIndex Value="28"/>
    510516        <WindowIndex Value="0"/>
    511517        <TopLine Value="476"/>
    512518        <CursorPos X="3" Y="489"/>
    513519        <UsageCount Value="34"/>
    514         <Loaded Value="True"/>
    515520        <DefaultSyntaxHighlighter Value="Delphi"/>
    516521      </Unit49>
    … …  
    533538        <TopLine Value="1"/>
    534539        <CursorPos X="53" Y="18"/>
    535         <UsageCount Value="61"/>
     540        <UsageCount Value="62"/>
    536541        <Loaded Value="True"/>
    537542        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    543548        <EditorIndex Value="29"/>
    544549        <WindowIndex Value="0"/>
    545         <TopLine Value="42"/>
    546         <CursorPos X="56" Y="66"/>
    547         <UsageCount Value="40"/>
     550        <TopLine Value="121"/>
     551        <CursorPos X="64" Y="128"/>
     552        <UsageCount Value="41"/>
    548553        <Loaded Value="True"/>
    549554        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    555560        <EditorIndex Value="12"/>
    556561        <WindowIndex Value="0"/>
    557         <TopLine Value="76"/>
    558         <CursorPos X="29" Y="94"/>
    559         <UsageCount Value="39"/>
     562        <TopLine Value="1"/>
     563        <CursorPos X="64" Y="17"/>
     564        <UsageCount Value="40"/>
    560565        <Loaded Value="True"/>
    561566        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    565570        <IsPartOfProject Value="True"/>
    566571        <UnitName Value="UHTTPSessionFile"/>
    567         <EditorIndex Value="23"/>
    568         <WindowIndex Value="0"/>
    569         <TopLine Value="28"/>
     572        <EditorIndex Value="24"/>
     573        <WindowIndex Value="0"/>
     574        <TopLine Value="1"/>
    570575        <CursorPos X="18" Y="45"/>
    571         <UsageCount Value="39"/>
     576        <UsageCount Value="40"/>
    572577        <Loaded Value="True"/>
    573578        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    579584        <EditorIndex Value="22"/>
    580585        <WindowIndex Value="0"/>
    581         <TopLine Value="148"/>
     586        <TopLine Value="142"/>
    582587        <CursorPos X="52" Y="165"/>
    583         <UsageCount Value="39"/>
     588        <UsageCount Value="40"/>
    584589        <Loaded Value="True"/>
    585590        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    589594        <IsPartOfProject Value="True"/>
    590595        <UnitName Value="UHTTPServer"/>
     596        <IsVisibleTab Value="True"/>
    591597        <EditorIndex Value="13"/>
    592598        <WindowIndex Value="0"/>
    593         <TopLine Value="34"/>
    594         <CursorPos X="3" Y="53"/>
    595         <UsageCount Value="39"/>
     599        <TopLine Value="1"/>
     600        <CursorPos X="38" Y="9"/>
     601        <UsageCount Value="40"/>
    596602        <Loaded Value="True"/>
    597603        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    603609        <EditorIndex Value="19"/>
    604610        <WindowIndex Value="0"/>
    605         <TopLine Value="82"/>
     611        <TopLine Value="1"/>
    606612        <CursorPos X="65" Y="100"/>
    607         <UsageCount Value="39"/>
     613        <UsageCount Value="40"/>
    608614        <Loaded Value="True"/>
    609615        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    615621        <EditorIndex Value="21"/>
    616622        <WindowIndex Value="0"/>
    617         <TopLine Value="27"/>
     623        <TopLine Value="1"/>
    618624        <CursorPos X="3" Y="29"/>
    619         <UsageCount Value="39"/>
     625        <UsageCount Value="40"/>
    620626        <Loaded Value="True"/>
    621627        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    629635        <TopLine Value="1"/>
    630636        <CursorPos X="6" Y="15"/>
    631         <UsageCount Value="38"/>
     637        <UsageCount Value="39"/>
    632638        <Loaded Value="True"/>
    633639        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    640646        <WindowIndex Value="0"/>
    641647        <TopLine Value="1"/>
    642         <CursorPos X="46" Y="19"/>
    643         <UsageCount Value="38"/>
     648        <CursorPos X="42" Y="8"/>
     649        <UsageCount Value="39"/>
    644650        <Loaded Value="True"/>
    645651        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    651657        <EditorIndex Value="17"/>
    652658        <WindowIndex Value="0"/>
    653         <TopLine Value="74"/>
     659        <TopLine Value="1"/>
    654660        <CursorPos X="52" Y="92"/>
    655         <UsageCount Value="38"/>
     661        <UsageCount Value="39"/>
    656662        <Loaded Value="True"/>
    657663        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    663669        <EditorIndex Value="14"/>
    664670        <WindowIndex Value="0"/>
    665         <TopLine Value="12"/>
    666         <CursorPos X="15" Y="25"/>
    667         <UsageCount Value="38"/>
     671        <TopLine Value="83"/>
     672        <CursorPos X="47" Y="106"/>
     673        <UsageCount Value="39"/>
    668674        <Loaded Value="True"/>
    669675        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    675681        <EditorIndex Value="15"/>
    676682        <WindowIndex Value="0"/>
    677         <TopLine Value="660"/>
     683        <TopLine Value="1"/>
    678684        <CursorPos X="3" Y="687"/>
    679         <UsageCount Value="38"/>
     685        <UsageCount Value="39"/>
    680686        <Loaded Value="True"/>
    681687        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    697703        <EditorIndex Value="2"/>
    698704        <WindowIndex Value="0"/>
    699         <TopLine Value="89"/>
    700         <CursorPos X="1" Y="114"/>
    701         <UsageCount Value="38"/>
     705        <TopLine Value="1"/>
     706        <CursorPos X="48" Y="9"/>
     707        <UsageCount Value="39"/>
    702708        <Loaded Value="True"/>
    703709        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    717723        <IsPartOfProject Value="True"/>
    718724        <UnitName Value="UPageList"/>
    719         <IsVisibleTab Value="True"/>
    720         <EditorIndex Value="25"/>
    721         <WindowIndex Value="0"/>
    722         <TopLine Value="67"/>
    723         <CursorPos X="9" Y="96"/>
    724         <UsageCount Value="35"/>
     725        <EditorIndex Value="26"/>
     726        <WindowIndex Value="0"/>
     727        <TopLine Value="1"/>
     728        <CursorPos X="43" Y="79"/>
     729        <UsageCount Value="36"/>
    725730        <Loaded Value="True"/>
    726731        <DefaultSyntaxHighlighter Value="Delphi"/>
    727732      </Unit67>
     733      <Unit68>
     734        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/DictionaryStringString.pas"/>
     735        <UnitName Value="DictionaryStringString"/>
     736        <EditorIndex Value="28"/>
     737        <WindowIndex Value="0"/>
     738        <TopLine Value="1"/>
     739        <CursorPos X="20" Y="17"/>
     740        <UsageCount Value="10"/>
     741        <Loaded Value="True"/>
     742      </Unit68>
     743      <Unit69>
     744        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/DictionaryImplementation.tpl"/>
     745        <WindowIndex Value="0"/>
     746        <TopLine Value="22"/>
     747        <CursorPos X="3" Y="40"/>
     748        <UsageCount Value="10"/>
     749        <DefaultSyntaxHighlighter Value="None"/>
     750      </Unit69>
     751      <Unit70>
     752        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/DictionaryInterface.tpl"/>
     753        <WindowIndex Value="0"/>
     754        <TopLine Value="1"/>
     755        <CursorPos X="50" Y="12"/>
     756        <UsageCount Value="10"/>
     757        <DefaultSyntaxHighlighter Value="None"/>
     758      </Unit70>
    728759    </Units>
    729     <JumpHistory Count="30" HistoryIndex="29">
     760    <JumpHistory Count="29" HistoryIndex="28">
    730761      <Position1>
    731         <Filename Value="Application/UUser.pas"/>
    732         <Caret Line="56" Column="1" TopLine="45"/>
     762        <Filename Value="Common/USqlDatabase.pas"/>
     763        <Caret Line="426" Column="27" TopLine="424"/>
    733764      </Position1>
    734765      <Position2>
    735         <Filename Value="Application/UUser.pas"/>
    736         <Caret Line="58" Column="1" TopLine="45"/>
     766        <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
     767        <Caret Line="581" Column="56" TopLine="564"/>
    737768      </Position2>
    738769      <Position3>
    739         <Filename Value="Application/UUser.pas"/>
    740         <Caret Line="59" Column="1" TopLine="45"/>
     770        <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/stringl.inc"/>
     771        <Caret Line="196" Column="11" TopLine="186"/>
    741772      </Position3>
    742773      <Position4>
    743         <Filename Value="Application/UUser.pas"/>
    744         <Caret Line="60" Column="1" TopLine="45"/>
     774        <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/stringl.inc"/>
     775        <Caret Line="194" Column="8" TopLine="186"/>
    745776      </Position4>
    746777      <Position5>
    747         <Filename Value="Application/UCustomApplication.pas"/>
    748         <Caret Line="243" Column="40" TopLine="229"/>
     778        <Filename Value="Common/USqlDatabase.pas"/>
     779        <Caret Line="11" Column="15" TopLine="1"/>
    749780      </Position5>
    750781      <Position6>
    751         <Filename Value="Application/UCustomApplication.pas"/>
    752         <Caret Line="244" Column="1" TopLine="229"/>
     782        <Filename Value="Common/USqlDatabase.pas"/>
     783        <Caret Line="25" Column="59" TopLine="8"/>
    753784      </Position6>
    754785      <Position7>
    755         <Filename Value="Application/UUser.pas"/>
    756         <Caret Line="60" Column="17" TopLine="25"/>
     786        <Filename Value="Common/USqlDatabase.pas"/>
     787        <Caret Line="433" Column="44" TopLine="412"/>
    757788      </Position7>
    758789      <Position8>
    759         <Filename Value="Application/UUser.pas"/>
    760         <Caret Line="53" Column="1" TopLine="25"/>
     790        <Filename Value="Common/USqlDatabase.pas"/>
     791        <Caret Line="22" Column="30" TopLine="1"/>
    761792      </Position8>
    762793      <Position9>
    763         <Filename Value="Application/UUser.pas"/>
    764         <Caret Line="54" Column="1" TopLine="25"/>
     794        <Filename Value="Common/USqlDatabase.pas"/>
     795        <Caret Line="60" Column="68" TopLine="40"/>
    765796      </Position9>
    766797      <Position10>
    767         <Filename Value="Application/UUser.pas"/>
    768         <Caret Line="55" Column="1" TopLine="25"/>
     798        <Filename Value="Common/USqlDatabase.pas"/>
     799        <Caret Line="175" Column="76" TopLine="158"/>
    769800      </Position10>
    770801      <Position11>
    771         <Filename Value="Application/UUser.pas"/>
    772         <Caret Line="56" Column="1" TopLine="25"/>
     802        <Filename Value="Common/USqlDatabase.pas"/>
     803        <Caret Line="187" Column="33" TopLine="170"/>
    773804      </Position11>
    774805      <Position12>
    775         <Filename Value="Application/UUser.pas"/>
    776         <Caret Line="58" Column="1" TopLine="38"/>
     806        <Filename Value="Common/USqlDatabase.pas"/>
     807        <Caret Line="191" Column="42" TopLine="174"/>
    777808      </Position12>
    778809      <Position13>
    779         <Filename Value="Application/UUser.pas"/>
    780         <Caret Line="59" Column="1" TopLine="38"/>
     810        <Filename Value="Common/USqlDatabase.pas"/>
     811        <Caret Line="222" Column="43" TopLine="205"/>
    781812      </Position13>
    782813      <Position14>
    783         <Filename Value="Application/UUser.pas"/>
    784         <Caret Line="60" Column="1" TopLine="38"/>
     814        <Filename Value="Common/USqlDatabase.pas"/>
     815        <Caret Line="226" Column="13" TopLine="209"/>
    785816      </Position14>
    786817      <Position15>
    787         <Filename Value="Application/UCustomApplication.pas"/>
    788         <Caret Line="244" Column="21" TopLine="229"/>
     818        <Filename Value="Common/USqlDatabase.pas"/>
     819        <Caret Line="234" Column="77" TopLine="217"/>
    789820      </Position15>
    790821      <Position16>
    791         <Filename Value="Application/UUser.pas"/>
    792         <Caret Line="68" Column="17" TopLine="40"/>
     822        <Filename Value="Common/USqlDatabase.pas"/>
     823        <Caret Line="246" Column="33" TopLine="229"/>
    793824      </Position16>
    794825      <Position17>
    795         <Filename Value="Pages/UMainPage.pas"/>
    796         <Caret Line="329" Column="4" TopLine="306"/>
     826        <Filename Value="Common/USqlDatabase.pas"/>
     827        <Caret Line="250" Column="42" TopLine="233"/>
    797828      </Position17>
    798829      <Position18>
    799         <Filename Value="Pages/UMainPage.pas"/>
    800         <Caret Line="327" Column="33" TopLine="306"/>
     830        <Filename Value="Common/USqlDatabase.pas"/>
     831        <Caret Line="267" Column="76" TopLine="250"/>
    801832      </Position18>
    802833      <Position19>
    803         <Filename Value="Pages/UMainPage.pas"/>
    804         <Caret Line="339" Column="35" TopLine="306"/>
     834        <Filename Value="Common/USqlDatabase.pas"/>
     835        <Caret Line="277" Column="33" TopLine="260"/>
    805836      </Position19>
    806837      <Position20>
    807         <Filename Value="Pages/UMainPage.pas"/>
    808         <Caret Line="333" Column="76" TopLine="313"/>
     838        <Filename Value="Common/USqlDatabase.pas"/>
     839        <Caret Line="280" Column="48" TopLine="263"/>
    809840      </Position20>
    810841      <Position21>
    811         <Filename Value="Application/UPageList.pas"/>
    812         <Caret Line="19" Column="24" TopLine="1"/>
     842        <Filename Value="Common/USqlDatabase.pas"/>
     843        <Caret Line="383" Column="1" TopLine="370"/>
    813844      </Position21>
    814845      <Position22>
    815         <Filename Value="Application/UPageList.pas"/>
    816         <Caret Line="64" Column="30" TopLine="45"/>
     846        <Filename Value="Common/USqlDatabase.pas"/>
     847        <Caret Line="391" Column="66" TopLine="370"/>
    817848      </Position22>
    818849      <Position23>
    819         <Filename Value="Application/UPageList.pas"/>
    820         <Caret Line="42" Column="21" TopLine="25"/>
     850        <Filename Value="Application/UUser.pas"/>
     851        <Caret Line="66" Column="56" TopLine="1"/>
    821852      </Position23>
    822853      <Position24>
    823         <Filename Value="Application/UPageList.pas"/>
    824         <Caret Line="43" Column="62" TopLine="26"/>
     854        <Filename Value="Application/UUser.pas"/>
     855        <Caret Line="133" Column="73" TopLine="116"/>
    825856      </Position24>
    826857      <Position25>
    827         <Filename Value="Application/UPageList.pas"/>
    828         <Caret Line="50" Column="20" TopLine="33"/>
     858        <Filename Value="Application/UUser.pas"/>
     859        <Caret Line="147" Column="74" TopLine="122"/>
    829860      </Position25>
    830861      <Position26>
    831         <Filename Value="Application/UPageList.pas"/>
    832         <Caret Line="95" Column="4" TopLine="65"/>
     862        <Filename Value="Common/UMemoryStreamEx.pas"/>
     863        <Caret Line="25" Column="15" TopLine="1"/>
    833864      </Position26>
    834865      <Position27>
    835         <Filename Value="Application/UPageList.pas"/>
    836         <Caret Line="20" Column="21" TopLine="1"/>
     866        <Filename Value="Common/UMemoryStreamEx.pas"/>
     867        <Caret Line="68" Column="26" TopLine="51"/>
    837868      </Position27>
    838869      <Position28>
    839         <Filename Value="Application/UPageList.pas"/>
    840         <Caret Line="14" Column="24" TopLine="1"/>
     870        <Filename Value="WebServer/UHTTPServer.pas"/>
     871        <Caret Line="30" Column="29" TopLine="10"/>
    841872      </Position28>
    842873      <Position29>
    843         <Filename Value="Application/UPageList.pas"/>
    844         <Caret Line="54" Column="21" TopLine="37"/>
     874        <Filename Value="WebServer/UHTTPServer.pas"/>
     875        <Caret Line="72" Column="42" TopLine="56"/>
    845876      </Position29>
    846       <Position30>
    847         <Filename Value="Application/UPageList.pas"/>
    848         <Caret Line="70" Column="30" TopLine="58"/>
    849       </Position30>
    850877    </JumpHistory>
    851878  </ProjectOptions>
    … …  
    884911      <WriteFPCLogo Value="False"/>
    885912      <CompilerMessages>
     913        <IgnoredMessages idx5023="True" idx5024="True" idx5025="True" idx5028="True"/>
    886914        <UseMsgFile Value="True"/>
    887915      </CompilerMessages>

  • trunk/Common/UDatabase.pas

    r23 r37  
    66
    77uses
    8   SysUtils, Variants, Classes, TypInfo, USqlDatabase, RTLConsts, Contnrs, Dialogs;
     8  SysUtils, Variants, Classes, TypInfo, USqlDatabase, RTLConsts, Dialogs;
    99
    1010type

  • trunk/Common/UHtmlClasses.pas

    r36 r37  
    66
    77uses
    8   UXmlClasses, Classes, SysUtils, Contnrs, UStringListEx;
     8  UXmlClasses, Classes, SysUtils, UStringListEx, ListObject;
    99
    1010type
    … …  
    9595  public
    9696    BlockType: TBlockType;
    97     SubItems: TObjectList; // of THtmlElement;
     97    SubItems: TListObject; // TListObject<THtmlElement>;
    9898    constructor Create;
    9999    destructor Destroy; override;
    … …  
    294294constructor THtmlBlock.Create;
    295295begin
    296   SubItems := TObjectList.Create;
     296  SubItems := TListObject.Create;
    297297end;
    298298

  • trunk/Common/UPool.pas

    r32 r37  
    66
    77uses
    8   Classes, SysUtils, Contnrs, syncobjs;
     8  Classes, SysUtils, syncobjs, ListObject;
    99
    1010type
    … …  
    2121  { TThreadedPool }
    2222
    23   TThreadedPool = class(TObjectList)
     23  TThreadedPool = class(TListObject)
    2424  private
    2525    Lock: TCriticalSection;

  • trunk/Common/USqlDatabase.pas

    r34 r37  
    88
    99uses
    10   SysUtils, Classes, Dialogs, mysql50, TypInfo, Contnrs, UStringListEx;
     10  SysUtils, Classes, Dialogs, mysql50, TypInfo, UStringListEx,
     11  ListObject, DictionaryStringString;
    1112
    1213type
    … …  
    2021  TSetClientCapabilities = set of TClientCapabilities;
    2122
    22   TAssociativeArray = class(TStringList)
     23  TDbRows = class(TListObject)
    2324  private
    24     function GetValues(Index: string): string;
    25     function GetValuesAtIndex(Index: Integer): string;
    26     procedure SetValues(Index: string; const Value: string);
     25    function GetData(Index: Integer): TDictionaryStringString;
     26    procedure SetData(Index: Integer; const Value: TDictionaryStringString);
    2727  public
    28     constructor Create;
    29     destructor Destroy; override;
    30     function GetAllValues: string;
    31     procedure AddKeyValue(Key, Value: string);
    32     property ValuesAtIndex[Index: Integer]: string read GetValuesAtIndex;
    33     property Values[Index: string]: string read GetValues write SetValues; default;
    34   end;
    35 
    36   TDbRows = class(TObjectList)
    37   private
    38     function GetData(Index: Integer): TAssociativeArray;
    39     procedure SetData(Index: Integer; const Value: TAssociativeArray);
    40   public
    41     property Data[Index: Integer]: TAssociativeArray read GetData write SetData; default;
     28    property Data[Index: Integer]: TDictionaryStringString read GetData write SetData; default;
    4229    destructor Destroy; override;
    4330  end;
    … …  
    6855    function Select(ATable: string; Filter: string = '*'; Condition: string = '1'): TDbRows;
    6956    procedure Delete(ATable: string; Condition: string = '1');
    70     procedure Insert(ATable: string; Data: TAssociativeArray);
    71     procedure Update(ATable: string; Data: TAssociativeArray; Condition: string = '1');
    72     procedure Replace(ATable: string; Data: TAssociativeArray);
     57    procedure Insert(ATable: string; Data: TDictionaryStringString);
     58    procedure Update(ATable: string; Data: TDictionaryStringString; Condition: string = '1');
     59    procedure Replace(ATable: string; Data: TDictionaryStringString);
    7360    procedure Connect;
    7461    procedure Disconnect;
    … …  
    186173end;
    187174
    188 procedure TSqlDatabase.Insert(ATable: string; Data: TAssociativeArray);
     175procedure TSqlDatabase.Insert(ATable: string; Data: TDictionaryStringString);
    189176var
    190177  DbNames: string;
    … …  
    198185  DbValues := '';
    199186  for I := 0 to Data.Count - 1 do begin
    200     Value := Data.ValuesAtIndex[I];
     187    Value := Data.Items[I].Value;
    201188    StringReplace(Value, '"', '\"', [rfReplaceAll]);
    202189    if Value = 'NOW()' then DbValues := DbValues + ',' + Value
    203190    else DbValues := DbValues + ',"' + Value + '"';
    204     DbNames := DbNames + ',`' + Data.Names[I] + '`';
     191    DbNames := DbNames + ',`' + Data.Keys[I] + '`';
    205192  end;
    206193  System.Delete(DbNames, 1, 1);
    … …  
    233220    for I := 0 to Result.Count - 1 do begin
    234221      DbRow := mysql_fetch_row(DbResult);
    235       Result[I] := TAssociativeArray.Create;
     222      Result[I] := TDictionaryStringString.Create;
    236223      with Result[I] do begin
    237224        for II := 0 to mysql_num_fields(DbResult) - 1 do begin
    238           Add(mysql_fetch_field_direct(DbResult, II)^.Name +
    239             NameValueSeparator + PChar((DbRow + II)^));
     225          Add(mysql_fetch_field_direct(DbResult, II)^.Name,
     226            PChar((DbRow + II)^));
    240227          end;
    241228        end;
    … …  
    245232end;
    246233
    247 procedure TSqlDatabase.Replace(ATable: string; Data: TAssociativeArray);
     234procedure TSqlDatabase.Replace(ATable: string; Data: TDictionaryStringString);
    248235var
    249236  DbNames: string;
    … …  
    257244  DbValues := '';
    258245  for I := 0 to Data.Count - 1 do begin
    259     Value := Data.ValuesAtIndex[I];
     246    Value := Data.Items[I].Value;
    260247    StringReplace(Value, '"', '\"', [rfReplaceAll]);
    261248    if Value = 'NOW()' then DbValues := DbValues + ',' + Value
    262249    else DbValues := DbValues + ',"' + Value + '"';
    263     DbNames := DbNames + ',`' + Data.Names[I] + '`';
     250    DbNames := DbNames + ',`' + Data.Keys[I] + '`';
    264251  end;
    265252  System.Delete(DbNames, 1, 1);
    … …  
    278265end;
    279266
    280 procedure TSqlDatabase.Update(ATable: string; Data: TAssociativeArray; Condition: string = '1');
     267procedure TSqlDatabase.Update(ATable: string; Data: TDictionaryStringString; Condition: string = '1');
    281268var
    282269  DbValues: string;
    … …  
    288275  DbValues := '';
    289276  for I := 0 to Data.Count - 1 do begin
    290     Value := Data.ValuesAtIndex[I];
     277    Value := Data.Items[I].Value;
    291278    StringReplace(Value, '"', '\"', [rfReplaceAll]);
    292279    if Value = 'NOW()' then DbValues := DbValues + ',' + Value
    293     else DbValues := DbValues + ',' + Data.Names[I] + '=' + '"' + Value + '"';
     280    else DbValues := DbValues + ',' + Data.Keys[I] + '=' + '"' + Value + '"';
    294281  end;
    295282  System.Delete(DbValues, 1, 1);
    … …  
    395382end;
    396383
    397 { TAssociativeArray }
    398 
    399 procedure TAssociativeArray.AddKeyValue(Key, Value: string);
    400 begin
    401   Add(Key + NameValueSeparator + Value);
    402 end;
    403 
    404 constructor TAssociativeArray.Create;
    405 begin
    406   NameValueSeparator := '|';
    407 end;
    408 
    409 destructor TAssociativeArray.Destroy;
     384{ TDbRows }
     385
     386destructor TDbRows.Destroy;
    410387begin
    411388  inherited;
    412389end;
    413390
    414 function TAssociativeArray.GetAllValues: string;
    415 var
    416   I: Integer;
    417 begin
    418   Result := '';
    419   for I := 0 to Count - 1 do begin
    420     Result := Result + Names[I] + '=' + ValuesAtIndex[I] + ',';
    421   end;
    422 end;
    423 
    424 function TAssociativeArray.GetValues(Index: string): string;
    425 begin
    426   Result := inherited Values[Index];
    427 end;
    428 
    429 function TAssociativeArray.GetValuesAtIndex(Index: Integer): string;
    430 begin
    431   Result := inherited Values[Names[Index]];
    432 end;
    433 
    434 procedure TAssociativeArray.SetValues(Index: string; const Value: string);
    435 begin
    436   inherited Values[Index] := Value;
    437 end;
    438 
    439 { TDbRows }
    440 
    441 destructor TDbRows.Destroy;
    442 begin
    443   inherited;
    444 end;
    445 
    446 function TDbRows.GetData(Index: Integer): TAssociativeArray;
    447 begin
    448   Result := TAssociativeArray(Items[Index]);
    449 end;
    450 
    451 procedure TDbRows.SetData(Index: Integer; const Value: TAssociativeArray);
     391function TDbRows.GetData(Index: Integer): TDictionaryStringString;
     392begin
     393  Result := TDictionaryStringString(Items[Index]);
     394end;
     395
     396procedure TDbRows.SetData(Index: Integer; const Value: TDictionaryStringString);
    452397begin
    453398  Items[Index] := Value;

  • trunk/Common/UXmlClasses.pas

    r24 r37  
    55interface
    66
    7 uses Classes, SysUtils, Contnrs, StrUtils, UStringListEx;
     7uses Classes, SysUtils, StrUtils, UStringListEx, ListObject;
    88
    99type
    … …  
    3030    Name: string;
    3131    Attributes: TStringListEx;
    32     SubElements: TObjectList; // of TXmlElement;
     32    SubElements: TListObject; // TListObject<TXmlElement>;
    3333    constructor Create;
    3434    destructor Destroy; override;
    … …  
    5959  Attributes := TStringListEx.Create;
    6060  Attributes.NameValueSeparator := '=';
    61   SubElements := TObjectList.Create;
     61  SubElements := TListObject.Create;
    6262  EndTagSymbol := '/';
    6363end;

  • trunk/WebServer/UHTTPServer.pas

    r34 r37  
    77uses
    88  Classes, SysUtils, UTCPServer, UCommon, UMemoryStreamEx, UMIMEType,
    9   Synautil, UStringListEx;
     9  Synautil, UStringListEx, ListObject;
    1010
    1111type
    … …  
    7070  { TRequestHandlerList }
    7171
    72   TRequestHandlerList = class(TList)
     72  TRequestHandlerList = class(TListObject)
    7373    procedure Add(AName: string; AHandler: TRequestEvent);
    7474    function IndexOfName(AName: string): TRequestHandler;
Note: See TracChangeset for help on using the changeset viewer.