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

lazutils: wince: fixed compilation

Browse Source 
git-svn-id: trunk@46265 -
This commit is contained in:
mattias 2014-09-20 12:35:29 +00:00
parent 256196bcd2
commit cccbde05f6
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazutils/winlazfileutils.inc
View File

@ -146,6 +146,13 @@ begin
Result:=Filename; Result:=Filename;
end; end;
function GetPhysicalFilename(const Filename: string;
OnError: TPhysicalFilenameOnError): string;
begin
if OnError=pfeEmpty then ;
Result:=Filename;
end;
// ******** Start of AnsiString specific implementations ************ // ******** Start of AnsiString specific implementations ************
{$ifndef WinCE} {$ifndef WinCE}
@ -250,13 +257,6 @@ begin
Rslt.Name:=SysToUTF8(Rslt.Name); Rslt.Name:=SysToUTF8(Rslt.Name);
end; 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; function GetAppConfigDirAnsi(Global: Boolean; Create: boolean = false): string;
begin begin
Result := SysToUTF8(SysUtils.GetAppConfigDir(Global)); Result := SysToUTF8(SysUtils.GetAppConfigDir(Global));