Browse Source

* Ensure code compiles with 3.2.2

Michaël Van Canneyt 1 year ago
parent
commit
8bf8272892

+ 4 - 0
packages/fcl-web/src/base/fpdebugcapturesvc.pp

@@ -272,7 +272,11 @@ end;
 procedure TDebugCaptureService.DoLog(aType: TEventType; const aFmt: String; args: array of const);
 begin
   if Assigned(FonLog) then
+{$IF DECLARED(SafeFormat)}
     FonLog(aType,SafeFormat(aFmt,args));
+{$ELSE}
+    FonLog(aType,Format(aFmt,args));
+{$ENDIF}
 end;
 
 function TDebugCaptureService.CreateRegistrationList: THandlerRegistrationList;

+ 4 - 0
packages/fcl-web/src/base/httpdefs.pp

@@ -114,6 +114,10 @@ const
     'Thu', 'Fri', 'Sat');
 
 Type
+{$IF NOT DECLARED(RTLString)}
+  RTLString = Ansistring;
+{$ENDIF}
+
   // HTTP related variables.
   THTTPVariableType = (hvUnknown,hvHTTPVersion, hvMethod, hvCookie, hvSetCookie, hvXRequestedWith,
                    hvPathInfo,hvPathTranslated,hvRemoteAddress,hvRemoteHost,hvScriptName,