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

Legend:

Unmodified
Added
Removed
  • 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;
Note: See TracChangeset for help on using the changeset viewer.