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

lazutils: added GetPhysicalFilename

Browse Source 
git-svn-id: trunk@45241 -
This commit is contained in:
mattias 2014-05-30 12:20:17 +00:00
parent f194fdc351
commit 0d7fcf4e66
3 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/lazfileutils.pas
View File

@ -107,6 +107,10 @@ function GetFileDescription(const AFilename: string): string;
function ReadAllLinks(const Filename: string;
ExceptionOnError: boolean): string; // if a link is broken returns ''
function TryReadAllLinks(const Filename: string): string; // if a link is broken returns Filename
type
TPhysicalFilenameOnError = (pfeException,pfeEmpty,pfeOriginal);
function GetPhysicalFilename(const Filename: string;
OnError: TPhysicalFilenameOnError): string;
{$IFDEF Unix}
function GetUnixPhysicalFilename(const Filename: string;
ExceptionOnError: boolean): string; // if a link is broken returns ''

8
components/lazutils/unixlazfileutils.inc
View File

@ -122,6 +122,14 @@ begin
Result:='';
end;
function GetPhysicalFilename(const Filename: string;
OnError: TPhysicalFilenameOnError): string;
begin
Result:=GetUnixPhysicalFilename(Filename,OnError=pfeException);
if (Result='') and (OnError=pfeOriginal) then
Result:=Filename;
end;
function GetUnixPhysicalFilename(const Filename: string;
ExceptionOnError: boolean): string;
var

7
components/lazutils/winlazfileutils.inc
View File

@ -250,6 +250,13 @@ begin
Rslt.Name:=SysToUTF8(Rslt.Name);
end;
function GetPhysicalFilename(const Filename: string;
OnError: TPhysicalFilenameOnError): string;
begin
if OnError=pfeEmpty then ;
Result:=Filename;
end;
function GetAppConfigDirAnsi(Global: Boolean; Create: boolean = false): string;
begin
Result := SysToUTF8(SysUtils.GetAppConfigDir(Global));