* Путь к rtzcad.po

zamtmn · Jan 12, 2025 · 60a1bee · 60a1bee
1 parent 8a98b53
commit 60a1bee
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cad_source/zcad/commands/uzccommand_updatepo.pas b/cad_source/zcad/commands/uzccommand_updatepo.pas
@@ -51,8 +51,8 @@ function UpdatePO_com(const Context:TZCADCommandContext;operands:TCommandOperand
            +#13#10'File zcadrt.po must be rewriten. Confirm?';
                if ZCMsgCallBackInterface.TextQuestion('UpdatePO',s)=zccbNo then
                  exit;
-               RunTimePO.SaveToFile(expandpath(PODirectory + ZCADRTBackupPOFileName));
-               actualypo.SaveToFile(expandpath(PODirectory + ZCADRTPOFileName));
+               RunTimePO.SaveToFile(expandpath(ConcatPaths([PODirectory,ZCADRTBackupPOFileName])));
+               actualypo.SaveToFile(expandpath(ConcatPaths([PODirectory,ZCADRTPOFileName])));
                ZCSysParams.saved.updatepo:=false
           end;
      end