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

2024-07-12 16:54:10 +08:00
parent e22aaa53e6
commit 17a55d2a44
5 changed files with 7 additions and 7 deletions
@@ -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";