Changeset 42


Ignore:
Timestamp:
Nov 21, 2010, 8:49:46 AM (14 years ago)
Author:
george
Message:
  • Upraveno: Zbylé výskyty TStringListEx nahrazeny TListString a TDictionaryStringString.
Location:
trunk
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UCustomApplication.pas

    r41 r42  
    66
    77uses
    8   Classes, SysUtils, UHTTPServerCGI, Contnrs, USqlDatabase, UConfig, DateUtils,
    9   UXmlClasses, UHtmlClasses, UCore, UStringListEx, UHTTPServer, UHTTPServerTCP,
    10   UHTTPSessionMySQL, UHTTPSessionFile, UUser;
     8  Classes, SysUtils, UHTTPServerCGI, USqlDatabase, UConfig, DateUtils,
     9  UXmlClasses, UHtmlClasses, UCore, UHTTPServer, UHTTPServerTCP,
     10  UHTTPSessionMySQL, UHTTPSessionFile, UUser, SpecializedObjectList;
    1111
    1212type
    … …  
    4141    Keywords: string;
    4242    HtmlDocument: THtmlDocument;
    43     Pages: TObjectList;
     43    Pages: TListObject;
    4444    Database: TSqlDatabase;
    4545    PageName: string;
    … …  
    137137  inherited;
    138138  Database := TSqlDatabase.Create;
    139   Pages := TObjectList.Create;
     139  Pages := TListObject.Create;
    140140  HtmlDocument := THtmlDocument.Create;
    141141  User := TWebUser.Create;
    … …  
    246246      Text := Text + '</ul>' +
    247247        '<ul class="MenuItem2">' +
    248         '<li>&nbsp;</li>';
    249         //'<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>';
    250       //$Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
     248        '<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>';
     249      // $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
    251250    end else begin
    252251      Text := Text + '</ul>' +

  • trunk/CGI.lpi

    r41 r42  
    5050        <IsPartOfProject Value="True"/>
    5151        <UnitName Value="CGI"/>
    52         <EditorIndex Value="10"/>
    53         <WindowIndex Value="0"/>
    54         <TopLine Value="1"/>
    55         <CursorPos X="33" Y="4"/>
     52        <EditorIndex Value="2"/>
     53        <WindowIndex Value="0"/>
     54        <TopLine Value="1"/>
     55        <CursorPos X="43" Y="6"/>
    5656        <UsageCount Value="203"/>
    5757        <Loaded Value="True"/>
    … …  
    6262        <IsPartOfProject Value="True"/>
    6363        <UnitName Value="UMainPage"/>
    64         <EditorIndex Value="4"/>
    65         <WindowIndex Value="0"/>
    66         <TopLine Value="354"/>
     64        <EditorIndex Value="13"/>
     65        <WindowIndex Value="0"/>
     66        <TopLine Value="1"/>
    6767        <CursorPos X="47" Y="360"/>
    6868        <UsageCount Value="200"/>
    … …  
    8888        <IsPartOfProject Value="True"/>
    8989        <UnitName Value="UCore"/>
    90         <WindowIndex Value="0"/>
    91         <TopLine Value="1"/>
     90        <EditorIndex Value="10"/>
     91        <WindowIndex Value="0"/>
     92        <TopLine Value="33"/>
    9293        <CursorPos X="69" Y="51"/>
    9394        <UsageCount Value="203"/>
     95        <Loaded Value="True"/>
    9496        <DefaultSyntaxHighlighter Value="Delphi"/>
    9597      </Unit4>
    … …  
    167169        <IsPartOfProject Value="True"/>
    168170        <UnitName Value="UConfig"/>
    169         <WindowIndex Value="0"/>
    170         <TopLine Value="1"/>
    171         <CursorPos X="58" Y="10"/>
     171        <EditorIndex Value="1"/>
     172        <WindowIndex Value="0"/>
     173        <TopLine Value="1"/>
     174        <CursorPos X="1" Y="1"/>
    172175        <UsageCount Value="294"/>
     176        <Loaded Value="True"/>
    173177        <DefaultSyntaxHighlighter Value="Delphi"/>
    174178      </Unit13>
    … …  
    277281      <Unit26>
    278282        <Filename Value="Common/UStringListEx.pas"/>
    279         <IsPartOfProject Value="True"/>
    280283        <UnitName Value="UStringListEx"/>
    281         <EditorIndex Value="16"/>
    282         <WindowIndex Value="0"/>
    283         <TopLine Value="19"/>
     284        <WindowIndex Value="0"/>
     285        <TopLine Value="17"/>
    284286        <CursorPos X="32" Y="36"/>
    285287        <UsageCount Value="200"/>
    286         <Loaded Value="True"/>
    287288        <DefaultSyntaxHighlighter Value="Delphi"/>
    288289      </Unit26>
    … …  
    310311        <IsPartOfProject Value="True"/>
    311312        <UnitName Value="UHtmlClasses"/>
    312         <EditorIndex Value="9"/>
    313         <WindowIndex Value="0"/>
    314         <TopLine Value="582"/>
    315         <CursorPos X="29" Y="600"/>
     313        <EditorIndex Value="11"/>
     314        <WindowIndex Value="0"/>
     315        <TopLine Value="549"/>
     316        <CursorPos X="19" Y="569"/>
    316317        <UsageCount Value="200"/>
    317318        <Loaded Value="True"/>
    … …  
    322323        <IsPartOfProject Value="True"/>
    323324        <UnitName Value="USqlDatabase"/>
    324         <EditorIndex Value="5"/>
    325325        <WindowIndex Value="0"/>
    326326        <TopLine Value="1"/>
    327327        <CursorPos X="64" Y="14"/>
    328328        <UsageCount Value="200"/>
    329         <Loaded Value="True"/>
    330329        <DefaultSyntaxHighlighter Value="Delphi"/>
    331330      </Unit30>
    … …  
    334333        <IsPartOfProject Value="True"/>
    335334        <UnitName Value="UXmlClasses"/>
    336         <EditorIndex Value="8"/>
    337         <WindowIndex Value="0"/>
    338         <TopLine Value="1"/>
    339         <CursorPos X="71" Y="7"/>
     335        <EditorIndex Value="7"/>
     336        <WindowIndex Value="0"/>
     337        <TopLine Value="101"/>
     338        <CursorPos X="19" Y="119"/>
    340339        <UsageCount Value="200"/>
    341340        <Loaded Value="True"/>
    … …  
    429428        <IsPartOfProject Value="True"/>
    430429        <UnitName Value="UHTTPServer"/>
    431         <EditorIndex Value="7"/>
    432         <WindowIndex Value="0"/>
    433         <TopLine Value="1"/>
    434         <CursorPos X="49" Y="9"/>
     430        <EditorIndex Value="3"/>
     431        <WindowIndex Value="0"/>
     432        <TopLine Value="265"/>
     433        <CursorPos X="1" Y="269"/>
    435434        <UsageCount Value="340"/>
    436435        <Loaded Value="True"/>
    … …  
    441440        <IsPartOfProject Value="True"/>
    442441        <UnitName Value="UHTTPServerTCP"/>
    443         <WindowIndex Value="0"/>
    444         <TopLine Value="1"/>
    445         <CursorPos X="65" Y="100"/>
     442        <EditorIndex Value="12"/>
     443        <WindowIndex Value="0"/>
     444        <TopLine Value="44"/>
     445        <CursorPos X="27" Y="61"/>
    446446        <UsageCount Value="340"/>
     447        <Loaded Value="True"/>
    447448        <DefaultSyntaxHighlighter Value="Delphi"/>
    448449      </Unit42>
    … …  
    451452        <IsPartOfProject Value="True"/>
    452453        <UnitName Value="UHTTPServerCGI"/>
    453         <WindowIndex Value="0"/>
    454         <TopLine Value="1"/>
    455         <CursorPos X="3" Y="29"/>
     454        <EditorIndex Value="6"/>
     455        <WindowIndex Value="0"/>
     456        <TopLine Value="1"/>
     457        <CursorPos X="50" Y="8"/>
    456458        <UsageCount Value="340"/>
     459        <Loaded Value="True"/>
    457460        <DefaultSyntaxHighlighter Value="Delphi"/>
    458461      </Unit43>
    … …  
    461464        <IsPartOfProject Value="True"/>
    462465        <UnitName Value="UTCPServer"/>
    463         <EditorIndex Value="3"/>
    464466        <WindowIndex Value="0"/>
    465467        <TopLine Value="1"/>
    466468        <CursorPos X="6" Y="15"/>
    467469        <UsageCount Value="339"/>
    468         <Loaded Value="True"/>
    469470        <DefaultSyntaxHighlighter Value="Delphi"/>
    470471      </Unit44>
    … …  
    473474        <IsPartOfProject Value="True"/>
    474475        <UnitName Value="UPool"/>
    475         <EditorIndex Value="6"/>
    476476        <WindowIndex Value="0"/>
    477477        <TopLine Value="1"/>
    478478        <CursorPos X="53" Y="8"/>
    479479        <UsageCount Value="339"/>
    480         <Loaded Value="True"/>
    481480        <DefaultSyntaxHighlighter Value="Delphi"/>
    482481      </Unit45>
    … …  
    523522        <IsPartOfProject Value="True"/>
    524523        <UnitName Value="UCustomApplication"/>
    525         <IsVisibleTab Value="True"/>
    526         <EditorIndex Value="2"/>
    527         <WindowIndex Value="0"/>
    528         <TopLine Value="231"/>
    529         <CursorPos X="34" Y="247"/>
     524        <EditorIndex Value="0"/>
     525        <WindowIndex Value="0"/>
     526        <TopLine Value="11"/>
     527        <CursorPos X="20" Y="28"/>
    530528        <UsageCount Value="339"/>
    531529        <Loaded Value="True"/>
    … …  
    553551        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedList.pas"/>
    554552        <UnitName Value="SpecializedList"/>
    555         <EditorIndex Value="13"/>
    556         <WindowIndex Value="0"/>
    557         <TopLine Value="144"/>
    558         <CursorPos X="37" Y="157"/>
    559         <UsageCount Value="11"/>
     553        <EditorIndex Value="4"/>
     554        <WindowIndex Value="0"/>
     555        <TopLine Value="39"/>
     556        <CursorPos X="20" Y="56"/>
     557        <UsageCount Value="10"/>
    560558        <Loaded Value="True"/>
    561559      </Unit53>
    562560      <Unit54>
    563561        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    564         <EditorIndex Value="12"/>
    565         <WindowIndex Value="0"/>
    566         <TopLine Value="1"/>
    567         <CursorPos X="20" Y="15"/>
     562        <IsVisibleTab Value="True"/>
     563        <EditorIndex Value="5"/>
     564        <WindowIndex Value="0"/>
     565        <TopLine Value="23"/>
     566        <CursorPos X="15" Y="40"/>
    568567        <UsageCount Value="100"/>
    569568        <Loaded Value="True"/>
    … …  
    571570      <Unit55>
    572571        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericDictionary.inc"/>
    573         <EditorIndex Value="1"/>
    574         <WindowIndex Value="0"/>
    575         <TopLine Value="33"/>
    576         <CursorPos X="39" Y="49"/>
    577         <UsageCount Value="11"/>
     572        <EditorIndex Value="9"/>
     573        <WindowIndex Value="0"/>
     574        <TopLine Value="1"/>
     575        <CursorPos X="24" Y="11"/>
     576        <UsageCount Value="10"/>
    578577        <Loaded Value="True"/>
    579578      </Unit55>
    580579      <Unit56>
    581580        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericQueue.inc"/>
    582         <EditorIndex Value="11"/>
    583581        <WindowIndex Value="0"/>
    584582        <TopLine Value="1"/>
    585583        <CursorPos X="50" Y="43"/>
    586         <UsageCount Value="11"/>
    587         <Loaded Value="True"/>
     584        <UsageCount Value="10"/>
    588585      </Unit56>
    589586      <Unit57>
    590587        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericTree.inc"/>
    591         <EditorIndex Value="15"/>
    592588        <WindowIndex Value="0"/>
    593589        <TopLine Value="1"/>
    594590        <CursorPos X="49" Y="47"/>
    595         <UsageCount Value="11"/>
    596         <Loaded Value="True"/>
     591        <UsageCount Value="10"/>
    597592      </Unit57>
    598593      <Unit58>
    599594        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedDictionary.pas"/>
    600595        <UnitName Value="SpecializedDictionary"/>
    601         <EditorIndex Value="0"/>
    602         <WindowIndex Value="0"/>
    603         <TopLine Value="1"/>
    604         <CursorPos X="22" Y="21"/>
     596        <EditorIndex Value="8"/>
     597        <WindowIndex Value="0"/>
     598        <TopLine Value="1"/>
     599        <CursorPos X="26" Y="18"/>
    605600        <UsageCount Value="100"/>
    606601        <Loaded Value="True"/>
    … …  
    609604        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedObjectList.pas"/>
    610605        <UnitName Value="SpecializedObjectList"/>
    611         <EditorIndex Value="14"/>
    612606        <WindowIndex Value="0"/>
    613607        <TopLine Value="1"/>
    614608        <CursorPos X="27" Y="20"/>
    615         <UsageCount Value="11"/>
    616         <Loaded Value="True"/>
     609        <UsageCount Value="10"/>
    617610      </Unit59>
    618611    </Units>
    619     <JumpHistory Count="26" HistoryIndex="25">
     612    <JumpHistory Count="30" HistoryIndex="29">
    620613      <Position1>
    621         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    622         <Caret Line="6" Column="29" TopLine="1"/>
     614        <Filename Value="WebServer/UHTTPServer.pas"/>
     615        <Caret Line="279" Column="24" TopLine="261"/>
    623616      </Position1>
    624617      <Position2>
    625         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    626         <Caret Line="13" Column="6" TopLine="1"/>
     618        <Filename Value="WebServer/UHTTPServer.pas"/>
     619        <Caret Line="281" Column="38" TopLine="264"/>
    627620      </Position2>
    628621      <Position3>
    629         <Filename Value="Common/USqlDatabase.pas"/>
    630         <Caret Line="123" Column="23" TopLine="106"/>
     622        <Filename Value="WebServer/UHTTPServer.pas"/>
     623        <Caret Line="272" Column="19" TopLine="266"/>
    631624      </Position3>
    632625      <Position4>
    633         <Filename Value="Common/USqlDatabase.pas"/>
    634         <Caret Line="117" Column="19" TopLine="109"/>
     626        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     627        <Caret Line="29" Column="3" TopLine="1"/>
    635628      </Position4>
    636629      <Position5>
    637         <Filename Value="Common/USqlDatabase.pas"/>
    638         <Caret Line="132" Column="46" TopLine="116"/>
     630        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
     631        <Caret Line="60" Column="69" TopLine="43"/>
    639632      </Position5>
    640633      <Position6>
    641         <Filename Value="Common/UPool.pas"/>
    642         <Caret Line="8" Column="43" TopLine="1"/>
     634        <Filename Value="Common/UXmlClasses.pas"/>
     635        <Caret Line="7" Column="50" TopLine="1"/>
    643636      </Position6>
    644637      <Position7>
    645         <Filename Value="WebServer/UHTTPServer.pas"/>
    646         <Caret Line="11" Column="62" TopLine="1"/>
     638        <Filename Value="Common/UXmlClasses.pas"/>
     639        <Caret Line="31" Column="28" TopLine="14"/>
    647640      </Position7>
    648641      <Position8>
    649642        <Filename Value="Common/UXmlClasses.pas"/>
    650         <Caret Line="61" Column="29" TopLine="44"/>
     643        <Caret Line="59" Column="28" TopLine="42"/>
    651644      </Position8>
    652645      <Position9>
    653         <Filename Value="Common/UHtmlClasses.pas"/>
    654         <Caret Line="299" Column="56" TopLine="279"/>
     646        <Filename Value="Common/UXmlClasses.pas"/>
     647        <Caret Line="60" Column="1" TopLine="43"/>
    655648      </Position9>
    656649      <Position10>
    657         <Filename Value="Common/UHtmlClasses.pas"/>
    658         <Caret Line="8" Column="71" TopLine="1"/>
     650        <Filename Value="Common/UXmlClasses.pas"/>
     651        <Caret Line="83" Column="54" TopLine="66"/>
    659652      </Position10>
    660653      <Position11>
    661         <Filename Value="Common/UHtmlClasses.pas"/>
    662         <Caret Line="16" Column="42" TopLine="1"/>
     654        <Filename Value="Common/UXmlClasses.pas"/>
     655        <Caret Line="31" Column="26" TopLine="14"/>
    663656      </Position11>
    664657      <Position12>
    665         <Filename Value="Common/USqlDatabase.pas"/>
    666         <Caret Line="125" Column="27" TopLine="120"/>
     658        <Filename Value="Common/UXmlClasses.pas"/>
     659        <Caret Line="83" Column="55" TopLine="66"/>
    667660      </Position12>
    668661      <Position13>
    669         <Filename Value="Common/UHtmlClasses.pas"/>
    670         <Caret Line="19" Column="46" TopLine="1"/>
     662        <Filename Value="Common/UXmlClasses.pas"/>
     663        <Caret Line="8" Column="24" TopLine="1"/>
    671664      </Position13>
    672665      <Position14>
    673         <Filename Value="Common/UHtmlClasses.pas"/>
    674         <Caret Line="383" Column="8" TopLine="367"/>
     666        <Filename Value="Common/UXmlClasses.pas"/>
     667        <Caret Line="60" Column="21" TopLine="43"/>
    675668      </Position14>
    676669      <Position15>
    677         <Filename Value="Common/UHtmlClasses.pas"/>
    678         <Caret Line="386" Column="10" TopLine="367"/>
     670        <Filename Value="Common/UXmlClasses.pas"/>
     671        <Caret Line="84" Column="93" TopLine="67"/>
    679672      </Position15>
    680673      <Position16>
    681         <Filename Value="Common/UHtmlClasses.pas"/>
    682         <Caret Line="387" Column="10" TopLine="367"/>
     674        <Filename Value="Common/UXmlClasses.pas"/>
     675        <Caret Line="118" Column="14" TopLine="101"/>
    683676      </Position16>
    684677      <Position17>
    685         <Filename Value="Common/UHtmlClasses.pas"/>
    686         <Caret Line="389" Column="22" TopLine="367"/>
     678        <Filename Value="Common/UXmlClasses.pas"/>
     679        <Caret Line="32" Column="23" TopLine="15"/>
    687680      </Position17>
    688681      <Position18>
    689682        <Filename Value="Common/UHtmlClasses.pas"/>
    690         <Caret Line="390" Column="34" TopLine="367"/>
     683        <Caret Line="600" Column="29" TopLine="579"/>
    691684      </Position18>
    692685      <Position19>
    693686        <Filename Value="Common/UHtmlClasses.pas"/>
    694         <Caret Line="391" Column="34" TopLine="367"/>
     687        <Caret Line="8" Column="50" TopLine="1"/>
    695688      </Position19>
    696689      <Position20>
    697690        <Filename Value="Common/UHtmlClasses.pas"/>
    698         <Caret Line="392" Column="34" TopLine="367"/>
     691        <Caret Line="273" Column="25" TopLine="242"/>
    699692      </Position20>
    700693      <Position21>
    701694        <Filename Value="Common/UHtmlClasses.pas"/>
    702         <Caret Line="393" Column="34" TopLine="367"/>
     695        <Caret Line="280" Column="25" TopLine="262"/>
    703696      </Position21>
    704697      <Position22>
    705698        <Filename Value="Common/UHtmlClasses.pas"/>
    706         <Caret Line="399" Column="10" TopLine="383"/>
     699        <Caret Line="388" Column="39" TopLine="366"/>
    707700      </Position22>
    708701      <Position23>
    709702        <Filename Value="Common/UHtmlClasses.pas"/>
    710         <Caret Line="582" Column="9" TopLine="566"/>
     703        <Caret Line="472" Column="22" TopLine="450"/>
    711704      </Position23>
    712705      <Position24>
    713706        <Filename Value="Common/UHtmlClasses.pas"/>
    714         <Caret Line="583" Column="17" TopLine="566"/>
     707        <Caret Line="499" Column="28" TopLine="482"/>
    715708      </Position24>
    716709      <Position25>
    717         <Filename Value="Common/UHtmlClasses.pas"/>
    718         <Caret Line="595" Column="11" TopLine="566"/>
     710        <Filename Value="WebServer/UHTTPServerTCP.pas"/>
     711        <Caret Line="100" Column="65" TopLine="1"/>
    719712      </Position25>
    720713      <Position26>
    721         <Filename Value="Common/UHtmlClasses.pas"/>
    722         <Caret Line="598" Column="11" TopLine="582"/>
     714        <Filename Value="WebServer/UHTTPServerTCP.pas"/>
     715        <Caret Line="8" Column="62" TopLine="1"/>
    723716      </Position26>
     717      <Position27>
     718        <Filename Value="WebServer/UHTTPServerTCP.pas"/>
     719        <Caret Line="32" Column="25" TopLine="15"/>
     720      </Position27>
     721      <Position28>
     722        <Filename Value="WebServer/UHTTPServerTCP.pas"/>
     723        <Caret Line="48" Column="27" TopLine="31"/>
     724      </Position28>
     725      <Position29>
     726        <Filename Value="WebServer/UHTTPServerTCP.pas"/>
     727        <Caret Line="52" Column="52" TopLine="35"/>
     728      </Position29>
     729      <Position30>
     730        <Filename Value="WebServer/UHTTPServerTCP.pas"/>
     731        <Caret Line="61" Column="27" TopLine="44"/>
     732      </Position30>
    724733    </JumpHistory>
    725734  </ProjectOptions>

  • trunk/CGI.lpr

    r36 r42  
    44
    55uses
    6   UCore, USqlDatabase, SysUtils, Contnrs, UStringListEx,
     6  UCore, USqlDatabase, SysUtils, Contnrs,
    77  UMainPage, UCustomApplication, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
    88  UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,

  • trunk/Common/UHtmlClasses.pas

    r40 r42  
    66
    77uses
    8   UXmlClasses, Classes, SysUtils, UStringListEx, SpecializedObjectList;
     8  UXmlClasses, Classes, SysUtils, SpecializedList, SpecializedObjectList;
    99
    1010type
    … …  
    257257        with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
    258258          Name := 'meta';
    259           Attributes.AddNameValue('http-equiv', 'Content-Language');
    260           Attributes.AddNameValue('content', ContentLanguage);
     259          Attributes.Add('http-equiv', 'Content-Language');
     260          Attributes.Add('content', ContentLanguage);
    261261        end;
    262262        with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
    263263          Name := 'meta';
    264           Attributes.AddNameValue('http-equiv', 'Content-Type');
    265           Attributes.AddNameValue('content', 'text/html; charset=' + ContentEncoding);
     264          Attributes.Add('http-equiv', 'Content-Type');
     265          Attributes.Add('content', 'text/html; charset=' + ContentEncoding);
    266266        end;
    267267        for I := 0 to Styles.Count - 1 do
    268268        with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
    269269          Name := 'link';
    270           Attributes.AddNameValue('rel', 'stylesheet');
    271           Attributes.AddNameValue('href', Styles[I]);
    272           Attributes.AddNameValue('type', 'text/css');
    273           Attributes.AddNameValue('media', 'all');
     270          Attributes.Add('rel', 'stylesheet');
     271          Attributes.Add('href', Styles[I]);
     272          Attributes.Add('type', 'text/css');
     273          Attributes.Add('media', 'all');
    274274        end;
    275275        for I := 0 to Scripts.Count - 1 do
    … …  
    277277          Name := 'script';
    278278          ShringEmpty := False;
    279           Attributes.AddNameValue('type', 'text/javascript');
    280           Attributes.AddNameValue('src', Scripts[I]);
     279          Attributes.Add('type', 'text/javascript');
     280          Attributes.Add('src', Scripts[I]);
    281281        end;
    282282      end;
    … …  
    381381procedure TIpAddress.SetAsString(const Value: string);
    382382var
    383   Parts: TStringListEx;
     383  Parts: TListString;
    384384begin
    385385  try
    386     Parts := TStringListEx.Create;
    387     Parts.Explode('.', Value);
     386    Parts := TListString.Create;
     387    Parts.Explode(Value, '.', StrToStr);
    388388    try
    389389//    if Length(Parts) = 4 then begin
    … …  
    465465procedure TDomainAddress.SetAsString(const Value: string);
    466466var
    467   StrArray: TStringListEx;
     467  StrArray: TListString;
    468468  I: Integer;
    469469begin
    470470  try
    471     StrArray := TStringListEx.Create;
    472     StrArray.Explode('.', Value);
     471    StrArray := TListString.Create;
     472    StrArray.Explode(Value, '.', StrToStr);
    473473    SetLength(Levels, StrArray.Count);
    474474    for I := 0 to StrArray.Count do
    … …  
    497497  with TXmlTag(Result) do begin
    498498    Name := 'a';
    499     Attributes.Add('href='+Target.AsString);
     499    Attributes.Add('href', Target.AsString);
    500500    if Assigned(Content) then SubElements.Add(Content.AsXmlElement);
    501501  end;
    … …  
    564564  with TXmlTag(Result) do begin
    565565    Name := 'img';
    566     Attributes.AddNameValue('src', Source.AsString);
    567     Attributes.AddNameValue('width', IntToStr(Size.Width));
    568     Attributes.AddNameValue('height', IntToStr(Size.Height));
    569     Attributes.AddNameValue('alt', AlternateText);
     566    Attributes.Add('src', Source.AsString);
     567    Attributes.Add('width', IntToStr(Size.Width));
     568    Attributes.Add('height', IntToStr(Size.Height));
     569    Attributes.Add('alt', AlternateText);
    570570  end;
    571571end;

  • trunk/Common/UXmlClasses.pas

    r40 r42  
    55interface
    66
    7 uses Classes, SysUtils, StrUtils, UStringListEx, SpecializedObjectList;
     7uses Classes, SysUtils, StrUtils, SpecializedList, SpecializedObjectList,
     8  SpecializedDictionary;
    89
    910type
    … …  
    2930    ShringEmpty: Boolean;
    3031    Name: string;
    31     Attributes: TStringListEx;
     32    Attributes: TDictionaryStringString;
    3233    SubElements: TListObject; // TListObject<TXmlElement>;
    3334    constructor Create;
    … …  
    5758begin
    5859  ShringEmpty := True;
    59   Attributes := TStringListEx.Create;
    60   Attributes.NameValueSeparator := '=';
     60  Attributes := TDictionaryStringString.Create;
    6161  SubElements := TListObject.Create;
    6262  EndTagSymbol := '/';
    … …  
    8282  AttributesText := '';
    8383  for I := 0 to Attributes.Count - 1 do
    84     AttributesText := AttributesText + ' ' + Attributes.Names[I] + '="' + Attributes.ValueFromIndex[I] + '"';
     84    AttributesText := AttributesText + ' ' + Attributes.Keys[I] + '="' + Attributes[I].Value + '"';
    8585
    8686  if Name <> '' then begin
    … …  
    116116    Name := '?xml';
    117117    EndTagSymbol := '?';
    118     Attributes.AddNameValue('version', '1.0');
    119     Attributes.AddNameValue('encoding', 'utf-8');
     118    Attributes.Add('version', '1.0');
     119    Attributes.Add('encoding', 'utf-8');
    120120  end;
    121121  Content := TXmlTag.Create;

  • trunk/WebServer/UHTTPServer.pas

    r40 r42  
    77uses
    88  Classes, SysUtils, UTCPServer, UCommon, UMemoryStreamEx, UMIMEType,
    9   Synautil, UStringListEx, SpecializedObjectList;
     9  Synautil, SpecializedObjectList, SpecializedList;
    1010
    1111type
    … …  
    2929  THTTPRequest = class
    3030    Query: TQueryParameterList;
    31     QueryParts: TStringListEx;
     31    QueryParts: TListString;
    3232    Path: string;
    3333    Method: string;
    … …  
    253253begin
    254254  Query := TQueryParameterList.Create;
    255   QueryParts := TStringListEx.Create;
     255  QueryParts := TListString.Create;
    256256  Headers := TStringList.Create;
    257257  Cookies := TCookieList.Create;
    … …  
    272272var
    273273  I: Integer;
    274   Parts: TStringListEx;
    275   Pair: TStringListEx;
     274  Parts: TListString;
     275  Pair: TListString;
    276276begin
    277277  try
    278     Parts := TStringListEx.Create;
    279     Pair := TStringListEx.Create;
     278    Parts := TListString.Create;
     279    Pair := TListString.Create;
    280280    Clear;
    281     Parts.Explode('&', Text);
     281    Parts.Explode(Text, '&', StrToStr);
    282282    for I := 0 to Parts.Count - 1 do begin
    283       Pair.Explode('=', Parts[I]);
     283      Pair.Explode(Parts[I], '=', StrToStr);
    284284      if Pair.Count >= 2 then
    285285        Values[Pair[0]] := Pair[1];
    … …  
    307307var
    308308  I: Integer;
    309   Parts: TStringListEx;
    310   Pair: TStringListEx;
     309  Parts: TListString;
     310  Pair: TListString;
    311311begin
    312312  try
    313     Parts := TStringListEx.Create;
    314     Pair := TStringListEx.Create;
     313    Parts := TListString.Create;
     314    Pair := TListString.Create;
    315315    Clear;
    316     Parts.Explode(';', Text);
     316    Parts.Explode(Text, ';', StrToStr);
    317317    for I := 0 to Parts.Count - 1 do begin
    318       Pair.Explode('=', Parts[I]);
     318      Pair.Explode(Parts[I], '=', StrToStr);
    319319      if Pair.Count >= 2 then
    320320        Values[Trim(Pair[0])] := Trim(Pair[1]);

  • trunk/WebServer/UHTTPServerCGI.pas

    r34 r42  
    66
    77uses
    8   Classes, SysUtils, UHTTPServer;
     8  Classes, SysUtils, UHTTPServer, SpecializedList;
    99
    1010type
    … …  
    5858      EnvVars.Values['QUERY_STRING'] := Copy(EnvVars.Values['QUERY_STRING'], 1,
    5959        Length(EnvVars.Values['QUERY_STRING']) - 1);
    60     Request.QueryParts.Explode('/', EnvVars.Values['QUERY_STRING']);
     60    Request.QueryParts.Explode(EnvVars.Values['QUERY_STRING'], '/', StrToStr);
    6161    if Pos('?', EnvVars.Values['REQUEST_URI']) > 0 then
    6262      Request.Query.Parse(Copy(EnvVars.Values['REQUEST_URI'],

  • trunk/WebServer/UHTTPServerTCP.pas

    r32 r42  
    66
    77uses
    8   Classes, SysUtils, UHTTPServer, UTCPServer, UStringListEx, SynaUtil;
     8  Classes, SysUtils, UHTTPServer, UTCPServer, SpecializedList, SynaUtil;
    99
    1010type
    … …  
    3030  Line: string;
    3131  LineIndex: Integer;
    32   LineParts: TStringListEx;
     32  LineParts: TListString;
    3333  HandlerData: THTTPHandlerData;
    3434  I: Integer;
    … …  
    4646      LineIndex := 0;
    4747      try
    48         LineParts := TStringListEx.Create;
     48        LineParts := TListString.Create;
    4949        repeat
    5050          Line := RecvString(10000);
    5151          if (LineIndex = 0) then begin
    52             LineParts.Explode(' ', Line);
     52            LineParts.Explode(Line, ' ', StrToStr);
    5353            if (LineParts.Count >= 3) then begin
    5454              Request.Method := LineParts[0];
    … …  
    5959            end;
    6060          end else begin
    61             LineParts.Explode(' ', Line, 2);
     61            LineParts.Explode(Line, ' ', StrToStr, 2);
    6262            if (LineParts.Count = 2) and (LineParts[0][Length(LineParts[0])] = ':') then begin
    6363              LineParts[0] := Copy(LineParts[0], 1, Length(LineParts[0]) - 1);
Note: See TracChangeset for help on using the changeset viewer.