paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add empty virtual constructor to TRouteObject

Browse Source 
git-svn-id: trunk@38180 -
This commit is contained in:
michael 2018-02-10 07:31:31 +00:00
parent 92321c06e8
commit 3cc93fde2c
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-web/src/base/httproute.pp
View File

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