修正编辑器,调试器选择

designer/teditorform.tsf

@@ -41,7 +41,7 @@ type teditorform = class(TVCform) //
     const c_m_close_min = "关闭时最小化";
     const c_m_lang = "语言";
     const c_m_run = "运行";
-    const c_m_editor = "编辑器";
+    const c_m_editor = "ĬÈÏ";
     const c_m_exer = "当前执行程序";
     const c_m_help = "帮助";
     const c_m_tsl_help = "tsl语言帮助";

designer/utslvcldebuger.tsf

@@ -1336,18 +1336,16 @@ type TTslDebuga=class(TCustomControl)
     function getdebuger(pms); //获得调试程序
     begin
         p := static pluginpath();        
-        //FDebugExe := inireadstring("",p+"localediter.ini","debug","debuger","");
         global g_debug_chooser;
         if g_debug_chooser="当前执行程序" then 
         begin
             FDebugExe := "1";        
         end else 
         begin
-        
+            FDebugExe := inireadstring("",p+"localediter.ini","debug","debuger","");
+            if not ifstring(FDebugExe) then FDebugExe := "";
         end 
         pms := " ";      
-        //if FDebugExe="1" then //默认获取参数
-       // begin
         ps := owner.getexecuteparams(FRuningfile);
         if ps then
         begin
@@ -1380,7 +1378,6 @@ type TTslDebuga=class(TCustomControl)
                 idx++;
             end
         end      
-        //end
         if(FDebugExe="1")and cmdexe then
         begin
             FDebugExe := cmdexe;

funcext/tvclib/utssvr_api_c.tsf

@@ -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