liujianjun/tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

编辑器

Browse Source 
调试 echo打印
This commit is contained in:
JianjunLiu
2023-03-20 09:32:54 +08:00
parent 6bbdab900d
commit 922b9dc022
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
designer/utslvcldebuger.tsf
+11 -1
View File
@@ -939,7 +939,8 @@ type TTslDebuga=class(TCustomControl)
if 0x0401=recvtype then if 0x0401=recvtype then
begin begin
//owner.echoAppendString(d["errmsg"]); //owner.echoAppendString(d["errmsg"]);
ExecuteCommand("showeval",d["errmsg"]); //ExecuteCommand("showeval",d["errmsg"]);
ExecuteCommand("echo",d["errmsg"]);
return; return;
end end
if recvtype <> 0x402 then if recvtype <> 0x402 then
@@ -1200,6 +1201,15 @@ type TTslDebuga=class(TCustomControl)
FShowText.Text += "ans="+tostn(p)+"\r\n"; FShowText.Text += "ans="+tostn(p)+"\r\n";
FShowText.ExecuteCommand(FShowText.ecGotoXY,array(100000,1)); FShowText.ExecuteCommand(FShowText.ecGotoXY,array(100000,1));
end 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": "dbgcreatechannel":
begin begin
if not FConnectchannel then if not FConnectchannel then