From 922b9dc022062ed25e06525f98bee197549f44b4 Mon Sep 17 00:00:00 2001 From: JianjunLiu Date: Mon, 20 Mar 2023 09:32:54 +0800 Subject: [PATCH] =?UTF-8?q?=E7=BC=96=E8=BE=91=E5=99=A8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 调试 echo打印 --- designer/utslvcldebuger.tsf | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/designer/utslvcldebuger.tsf b/designer/utslvcldebuger.tsf index 2c4efaf..b2e7966 100644 --- a/designer/utslvcldebuger.tsf +++ b/designer/utslvcldebuger.tsf @@ -939,7 +939,8 @@ type TTslDebuga=class(TCustomControl) if 0x0401=recvtype then begin //owner.echoAppendString(d["errmsg"]); - ExecuteCommand("showeval",d["errmsg"]); + //ExecuteCommand("showeval",d["errmsg"]); + ExecuteCommand("echo",d["errmsg"]); return; end if recvtype <> 0x402 then @@ -1200,6 +1201,15 @@ type TTslDebuga=class(TCustomControl) FShowText.Text += "ans="+tostn(p)+"\r\n"; FShowText.ExecuteCommand(FShowText.ecGotoXY,array(100000,1)); end + "echo" : + begin + if ifstring(p) then + begin + FShowText.Text += p; + Ls := FShowText.Lines; + FShowText.ExecuteCommand(FShowText.ecGotoXY,array(ls.length(),10000000)); + end + end "dbgcreatechannel": begin if not FConnectchannel then