修正编辑器,调试器选择

2024-07-04 15:27:34 +08:00
parent 08d81e052f
commit 0db9c5a249
4 changed files with 42 additions and 41 deletions
@@ -71,7 +71,11 @@ type t_func_finder_register = class(tsl_c_api_const) //
        end         
        fhooks[length(fhooks)] := f; 
        if not fhookptr then fhookptr := makeinstance(thisfunction(find_HOOK));
-        if not fhookseted then TSL_InterpSetFindFunctionHook(fhookptr); 
+        if not fhookseted then 
+        begin
+            TSL_InterpSetFindFunctionHook(fhookptr); 
+            fhookseted := true;
+        end 
    end 
    function del_hook(f);
    begin