From 4a1345e0f6a57815089798f8dcf7f669db6f0e30 Mon Sep 17 00:00:00 2001 From: mattias Date: Fri, 4 Dec 2015 16:05:44 +0000 Subject: [PATCH] IDE: debugger: using TProcessUTF8 git-svn-id: trunk@50602 - --- debugger/processdebugger.pp | 3 +++ debugger/processlist.pas | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/debugger/processdebugger.pp b/debugger/processdebugger.pp index 799168c1e3..1ade43386d 100644 --- a/debugger/processdebugger.pp +++ b/debugger/processdebugger.pp @@ -115,11 +115,14 @@ begin SetState(dsInit); FProcess := TDBGProcess.Create(nil); try + ShowMessage('AAA1 FileName='+FileName); TDBGProcess(FProcess).OnDestroy := @ProcessDestroyed; GetDefaultProcessList.Add(FProcess); FProcess.Executable := FileName; SplitCmdLineParams(Arguments,FProcess.Parameters); + ShowMessage('AAA2 Params='+FProcess.Parameters.Text); + ShowMessage('AAA3 WorkingDir='+WorkingDir); FProcess.CurrentDirectory := WorkingDir; FProcess.Environment.Assign(Environment); if ShowConsole diff --git a/debugger/processlist.pas b/debugger/processlist.pas index 2a1dca46c8..c4ba0d6e32 100644 --- a/debugger/processlist.pas +++ b/debugger/processlist.pas @@ -34,7 +34,7 @@ type zombies. } TProcessList = class private - FItems: TList; // list of TProcess + FItems: TList; // list of TProcessUTF8 FFreeing: Boolean; // set wehn freeing stopped processes function GetCount: integer; function GetItems(Index: integer): TProcessUTF8;