Quellcode durchsuchen

* Free Parameters

Michaël Van Canneyt vor 2 Monaten
Ursprung
Commit
ec8887baf2
1 geänderte Dateien mit 1 neuen und 0 gelöschten Zeilen
  1. 1 0
      packages/fcl-web/src/restbridge/sqldbrestschema.pp

+ 1 - 0
packages/fcl-web/src/restbridge/sqldbrestschema.pp

@@ -1258,6 +1258,7 @@ begin
   FreeAndNil(FFields);
   for K in TSQLKind do
     FreeAndNil(FSQL[K]);
+  FreeAndNil(FParameters);
   inherited Destroy;
 end;