From fc447c098288beb4745eb3642b70cf83bcb9d15c Mon Sep 17 00:00:00 2001
From: Nikolay Kuznetsov <adasoft@gmail.com>
Date: Tue, 12 Aug 2025 15:48:29 +0300
Subject: [PATCH] [ALL][PAS] Update PABCSystem.pas -- fix ExtractFilePath() for
 support platform Directory Separator Char
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Добавляем в конец строки пути к файлу символ в соответствии с платформой на которой запущена программа.
---
 bin/Lib/PABCSystem.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index 66212961c..36ebc885e 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -9226,7 +9226,7 @@ function ExtractFilePath(fileName: string): string;
   var fi := new System.IO.FileInfo(fileName);
   Result := fi.DirectoryName;
   if (Result.Length > 0) and (Result[Result.Length] <> '\') and (Result[Result.Length] <> '/') then
-    Result += '\';
+    Result += System.IO.Path.DirectorySeparatorChar;
 end;
 
 function ExtractFileDir(fileName: string): string;