paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 17:58:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Added GetLazNormalizedFilename

Browse Source
This commit is contained in:
Martin 2024-12-10 16:56:01 +01:00
parent 72a834edba
commit f856a8cc8c
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazutils/lazfileutils.pas
View File

@ -37,6 +37,7 @@ function CompareFileExt(const Filename, Ext: string): integer;
function FilenameExtIs(const Filename,Ext: string; CaseSensitive: boolean=false): boolean;
function FilenameExtIn(const Filename: string; Exts: array of string;
CaseSensitive: boolean=false): boolean;
function GetLazNormalizedFilename(const Filename: string): string;
function DirPathExists(DirectoryName: string): boolean;
function DirectoryIsWritable(const DirectoryName: string): boolean;
@ -471,6 +472,18 @@ begin
Result := False;
end;
function GetLazNormalizedFilename(const Filename: string): string;
begin
{$IFDEF CaseInsensitiveFilenames}
Result:=UTF8UpperCase(Filename);
{$ELSE}
Result:=Filename;
{$ENDIF}
{$IFDEF darwin}
Result := GetDarwinNormalizedFilename(Result);
{$ENDIF}
end;
{$IFDEF darwin}
function GetDarwinSystemFilename(Filename: string): string;
var