|
@@ -547,7 +547,10 @@ begin
|
|
if Not (csLoading in ComponentState) then
|
|
if Not (csLoading in ComponentState) then
|
|
begin
|
|
begin
|
|
if AValue then
|
|
if AValue then
|
|
- DoRegisterRoutes
|
|
|
|
|
|
+ begin
|
|
|
|
+ if FListRoute=Nil then
|
|
|
|
+ RegisterRoutes;
|
|
|
|
+ end
|
|
else
|
|
else
|
|
UnRegisterRoutes;
|
|
UnRegisterRoutes;
|
|
end;
|
|
end;
|
|
@@ -2204,6 +2207,7 @@ procedure TSQLDBRestDispatcher.UnRegisterRoutes;
|
|
end;
|
|
end;
|
|
|
|
|
|
begin
|
|
begin
|
|
|
|
+ Un(FParamRoute);
|
|
Un(FListRoute);
|
|
Un(FListRoute);
|
|
Un(FItemRoute);
|
|
Un(FItemRoute);
|
|
Un(FConnectionItemRoute);
|
|
Un(FConnectionItemRoute);
|