From 9ca082f572fe768bc62bd1ca1d0e48b9c12a2ebd Mon Sep 17 00:00:00 2001 From: mattias Date: Fri, 27 Feb 2015 22:36:47 +0000 Subject: [PATCH] IDE: clean up git-svn-id: trunk@48031 - --- ide/customformeditor.pp | 4 ++-- ide/main.pp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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;