paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-14 10:19:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Class Destructor

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-09-10 23:14:19 +02:00
parent 3d012f3ddf
commit 05d527693b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl/webrouter.pp
View File

@ -206,7 +206,7 @@ Type
TRouter = Class(TComponent)
Private
Class Procedure DoneService;
Class Destructor DoneService;
Class
Var FService : TRouter;
FServiceClass : TRouterClass;
@ -585,7 +585,7 @@ begin
Result:=History.Kind;
end;
class procedure TRouter.DoneService;
class destructor TRouter.DoneService;
begin
FreeAndNil(FService);
end;