gtk

更新
2023-12-01 18:39:34 +08:00
parent b60fdfdc3e
commit 6dd3e015b9
3 changed files with 31 additions and 15 deletions
@@ -653,7 +653,8 @@ type TTslDebuga=class(TCustomControl)
        begin
            ExecuteCommand("dbgcreatechannel");
            ExecuteCommand("showstr","调试程序:"+FDebugExe);
-            ExecuteCommand("showstr","命令行参数:"+exestr);
+            if ifarray(exestr) then exestr := array2str(exestr," "); 
+            ExecuteCommand("showstr","调试命令行:"+exestr);
            if FConnectchannel then
            begin
                dbgattachwait(FConnectchannel);