From 8363352c192ddd04653d55769f0adb99699260f5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= Date: Sat, 27 Jul 2024 08:26:21 +0200 Subject: [PATCH] * Fix copy and paste error. Fixes issue #40863 (cherry picked from commit 963a55db527b89ce0d0a3d5d9229c533aeefc360) --- packages/vcl-compat/src/system.ansistrings.pp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/vcl-compat/src/system.ansistrings.pp b/packages/vcl-compat/src/system.ansistrings.pp index bd58090b93..2e720ac726 100755 --- a/packages/vcl-compat/src/system.ansistrings.pp +++ b/packages/vcl-compat/src/system.ansistrings.pp @@ -773,12 +773,12 @@ end; function ExcludeTrailingBackslash(const S: AnsiString): AnsiString; begin - Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExcludeLeadingPathDelimiter(S); + Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExcludeTrailingBackslash(S); end; function ExcludeTrailingPathDelimiter(const S: AnsiString): AnsiString; begin - Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExcludeLeadingPathDelimiter(S); + Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExcludeTrailingPathDelimiter(S); end; function ExpandFileNameCase(const FileName: AnsiString; out