编辑器

调试 echo打印
2023-03-20 09:32:54 +08:00
parent 6bbdab900d
commit 922b9dc022
1 changed files with 11 additions and 1 deletions
@@ -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