Browse Source

* Fix memleak and compiler hints

Michaël Van Canneyt 3 years ago
parent
commit
d362d47e88
1 changed files with 7 additions and 0 deletions
  1. 7 0
      packages/fcl-web/src/restbridge/sqldbrestbridge.pp

+ 7 - 0
packages/fcl-web/src/restbridge/sqldbrestbridge.pp

@@ -1194,6 +1194,8 @@ begin
       roPut : R:=FBeforePut;
       roPut : R:=FBeforePut;
       roPost : R:=FBeforePost;
       roPost : R:=FBeforePost;
       roDelete : R:=FBeforeDelete;
       roDelete : R:=FBeforeDelete;
+    else
+      R:=Nil;
     end
     end
   else
   else
     Case IO.Operation of
     Case IO.Operation of
@@ -1201,6 +1203,8 @@ begin
       roPut : R:=FAfterPut;
       roPut : R:=FAfterPut;
       roPost : R:=FAfterPost;
       roPost : R:=FAfterPost;
       roDelete : R:=FAfterDelete;
       roDelete : R:=FAfterDelete;
+    else
+      R:=Nil;
     end;
     end;
   If Assigned(R) then
   If Assigned(R) then
     R(Self,IO.Connection,IO.Resource)
     R(Self,IO.Connection,IO.Resource)
@@ -1375,6 +1379,8 @@ begin
       rftDate : FFormat.AsString:=FStrings.GetRestString(rpDateFormat);
       rftDate : FFormat.AsString:=FStrings.GetRestString(rpDateFormat);
       rftDateTime : FFormat.AsString:=FStrings.GetRestString(rpDatetimeFormat);
       rftDateTime : FFormat.AsString:=FStrings.GetRestString(rpDatetimeFormat);
       rftTime : FFormat.AsString:=FStrings.GetRestString(rpTimeFormat);
       rftTime : FFormat.AsString:=FStrings.GetRestString(rpTimeFormat);
+    else
+      ;
     end;
     end;
     for O in TRestFieldOption do
     for O in TRestFieldOption do
       FOptions[O].AsBoolean:=O in F.Options;
       FOptions[O].AsBoolean:=O in F.Options;
@@ -1743,6 +1749,7 @@ begin
   finally
   finally
     IO.SetConn(Nil,Nil);
     IO.SetConn(Nil,Nil);
     DoneSQLConnection(aConnection,Conn,Tr);
     DoneSQLConnection(aConnection,Conn,Tr);
+    H.Free;
   end;
   end;
 end;
 end;