paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-21 22:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow to add data to route

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-03-20 09:27:36 +01:00
parent 37b9246a98
commit 418901d777
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl/webrouter.pp
View File

@ -158,6 +158,7 @@ Type
TRoute = Class(TCollectionItem)
private
FData: TObject;
FDefault: Boolean;
FEvent: TRouteEvent;
FURLPattern: String;
@ -172,6 +173,7 @@ Type
Property Default : Boolean Read FDefault Write FDefault;
Property URLPattern : String Read FURLPattern Write SetURLPattern;
Property Event : TRouteEvent Read FEvent Write FEvent;
Property Data : TObject Read FData Write FData;
end;
TRouteClass = Class of TRoute;
@ -841,7 +843,7 @@ end;
{ TRoute }
Class Function TRoute.NormalizeURLPattern(AValue: String) : String;
class function TRoute.NormalizeURLPattern(AValue: String): String;
Var
V : String;
@ -870,7 +872,7 @@ begin
Result:=(CompareText(URLPattern,NormalizeURLPattern(APattern))=0)
end;
Function TRoute.MatchPattern(Const Path : String; L : TStrings) : Boolean;
function TRoute.MatchPattern(const Path: String; L: TStrings): Boolean;
Function StartsWith(C : Char; S : String): Boolean;