paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 03:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix copy and paste error. Fixes issue #40863

Browse Source 
(cherry picked from commit 963a55db52)
This commit is contained in:
Michaël Van Canneyt 2024-07-27 08:26:21 +02:00
parent d78e289701
commit 8363352c19
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/vcl-compat/src/system.ansistrings.pp
View File

@ -773,12 +773,12 @@ end;
function ExcludeTrailingBackslash(const S: AnsiString): AnsiString; function ExcludeTrailingBackslash(const S: AnsiString): AnsiString;
begin begin
Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExcludeLeadingPathDelimiter(S); Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExcludeTrailingBackslash(S);
end; end;
function ExcludeTrailingPathDelimiter(const S: AnsiString): AnsiString; function ExcludeTrailingPathDelimiter(const S: AnsiString): AnsiString;
begin begin
Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExcludeLeadingPathDelimiter(S); Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExcludeTrailingPathDelimiter(S);
end; end;
function ExpandFileNameCase(const FileName: AnsiString; out function ExpandFileNameCase(const FileName: AnsiString; out