Explorar o código

Compilation Fix: remove implementation statics

Herman Schoenfeld %!s(int64=6) %!d(string=hai) anos
pai
achega
baee5c32ee
Modificáronse 1 ficheiros con 2 adicións e 4 borrados
  1. 2 4
      src/core/USettings.pas

+ 2 - 4
src/core/USettings.pas

@@ -155,20 +155,18 @@ begin
 end;
 
 class function TSettings.GetAllowDownloadNewCheckpointIfOlderThan: Boolean;
-  static;
 begin
   CheckLoaded;
   Result := FAppParams.ParamByName[CT_PARAM_AllowDownloadNewCheckpointIfOlderThan].GetAsBoolean(False);
 end;
 
 class function TSettings.GetMinFutureBlocksToDownloadNewSafebox: Integer;
-  static;
 begin
   CheckLoaded;
   Result := FAppParams.ParamByName[CT_PARAM_MinFutureBlocksToDownloadNewSafebox].GetAsInteger(0);
 end;
 
-class procedure TSettings.SetAllowDownloadNewCheckpointIfOlderThan(ABool: Boolean); static;
+class procedure TSettings.SetAllowDownloadNewCheckpointIfOlderThan(ABool: Boolean);
 begin
   CheckLoaded;
   FAppParams.ParamByName[CT_PARAM_AllowDownloadNewCheckpointIfOlderThan].SetAsBoolean(ABool);
@@ -186,7 +184,7 @@ begin
   Result := FAppParams.ParamByName[CT_PARAM_JSONRPCEnabled].GetAsBoolean(false);
 end;
 
-class procedure TSettings.SetMinFutureBlocksToDownloadNewSafebox(AInt: Integer); static;
+class procedure TSettings.SetMinFutureBlocksToDownloadNewSafebox(AInt: Integer);
 begin
   CheckLoaded;
   FAppParams.ParamByName[CT_PARAM_MinFutureBlocksToDownloadNewSafebox].SetAsInteger(AInt);