소스 검색

* Ensure code compiles with 3.2.2

Michaël Van Canneyt 1 년 전
부모
커밋
8bf8272892
2개의 변경된 파일8개의 추가작업 그리고 0개의 파일을 삭제
  1. 4 0
      packages/fcl-web/src/base/fpdebugcapturesvc.pp
  2. 4 0
      packages/fcl-web/src/base/httpdefs.pp

+ 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,