修正编译命令行 -libpath 可能出现的问题

designer/ctl_mgr/t_compile_config.tsf

@@ -423,10 +423,10 @@ type t_compile_config=class(tdcreateform)
     function format_build_params(d);
     begin
         r := d["build"]+"="+format('"%s" ',d["buildfile"]);
-        if d["libpath"] and ifstring(d["libpath"]) then 
-        begin 
-            r+="\r\n-libpath "+d["libpath"]+" ";
-        
+        lbp := d["libpath"];
+        if lbp and ifstring(lbp) then 
+        begin             
+            r+='\r\n-libpath "'+lbp+'" ';        
         end else 
             r+="\r\n-libpath ."+ioFileseparator()+" ";     
         r+="\r\n";           

designer/utslcodeeditor.tsf

@@ -5050,10 +5050,10 @@ type TEditerEchoWnd=class(TSynMemoNorm) //
     function format_build_params(d);
     begin
         r := d["build"]+"="+format('"%s" ',d["buildfile"]);
-        if d["libpath"] and ifstring(d["libpath"]) then 
+        lbp := d["libpath"];        
+        if lbp and ifstring(lbp) then 
         begin 
-            r+="-libpath "+d["libpath"]+" ";
-        
+            r+='-libpath "'+lbp +'" ';
         end else 
             r+="-libpath ."+ioFileseparator()+" ";                
         r += f_b_a_param(d,"exports");