Changeset 37 for trunk/WebServer/UHTTPServer.pas

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.

File:

• trunk/WebServer/UHTTPServer.pas (modified) (2 diffs)

trunk/WebServer/UHTTPServer.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UTCPServer, UCommon, UMemoryStreamEx, UMIMEType,
-  Synautil, UStringListEx;
+  Synautil, UStringListEx, ListObject;
 
 type
@@ -70 +70 @@
   { TRequestHandlerList }
 
-  TRequestHandlerList = class(TList)
+  TRequestHandlerList = class(TListObject)
     procedure Add(AName: string; AHandler: TRequestEvent);
     function IndexOfName(AName: string): TRequestHandler;