paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-18 01:39:06 +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) TRouter = Class(TComponent)
Private Private
Class Procedure DoneService; Class Destructor DoneService;
Class Class
Var FService : TRouter; Var FService : TRouter;
FServiceClass : TRouterClass; FServiceClass : TRouterClass;
@ -585,7 +585,7 @@ begin
Result:=History.Kind; Result:=History.Kind;
end; end;
class procedure TRouter.DoneService; class destructor TRouter.DoneService;
begin begin
FreeAndNil(FService); FreeAndNil(FService);
end; end;