* Add empty virtual constructor to TRouteObject

git-svn-id: trunk@38180 -

packages/fcl-web/src/base/httproute.pp

@@ -130,6 +130,7 @@ Type
 
   TRouteObject = Class(TObject,IRouteInterface)
   Public
+    Constructor Create; virtual; 
     Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse); virtual; abstract;
   end;
   TRouteObjectClass = Class of TRouteObject;
@@ -258,6 +259,14 @@ begin
   CallBack(ARequest, AResponse);
 end;
 
+{ TRouteObject }
+
+Constructor TRouteObject.Create;
+
+begin
+  // Do nothing, added to make sure descendents can override it.
+end;
+
 { THTTPRouteObject }
 
 procedure THTTPRouteObject.DoHandleRequest(ARequest: TRequest;