diff --git a/ide/customformeditor.pp b/ide/customformeditor.pp index 1feae59c55..6ad7db62d4 100644 --- a/ide/customformeditor.pp +++ b/ide/customformeditor.pp @@ -1435,7 +1435,7 @@ begin on E: Exception do begin s:=Format(lisCFEErrorDestroyingMediatorOfUnit, [Mediator.ClassName, AUnitName, LineEnding, E.Message]); - DebugLn(['TCustomFormEditor.CreateComponent ',UTF8ToConsole(s)]); + DebugLn(['TCustomFormEditor.CreateComponent ',s]); DumpExceptionBackTrace; IDEMessageDialog(lisCFEErrorDestroyingMediator, s, mtError, [mbCancel]); end; @@ -1450,7 +1450,7 @@ begin on E: Exception do begin s:=Format(lisCFEErrorDestroyingComponentOfTypeOfUnit, [TypeClass.ClassName, AUnitName, LineEnding, E.Message]); - DebugLn(['TCustomFormEditor.CreateComponent ',UTF8ToConsole(s)]); + DebugLn(['TCustomFormEditor.CreateComponent ',s]); DumpExceptionBackTrace; IDEMessageDialog(lisCFEErrorDestroyingComponent, s, mtError, [mbCancel]); end; diff --git a/ide/main.pp b/ide/main.pp index dd3c3639fe..fcddb9dff6 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -1124,8 +1124,8 @@ begin EnableRemoteControl, ShowSplashScreen, ShowSetupDialog); DebugLn('TMainIDE.ParseCmdLineOptions:'); - Debugln(' PrimaryConfigPath="',UTF8ToConsole(GetPrimaryConfigPath),'"'); - Debugln(' SecondaryConfigPath="',UTF8ToConsole(GetSecondaryConfigPath),'"'); + Debugln(' PrimaryConfigPath="',GetPrimaryConfigPath,'"'); + Debugln(' SecondaryConfigPath="',GetSecondaryConfigPath,'"'); end; procedure TMainIDE.LoadGlobalOptions;