paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ missing unicodestring version of ExpandUNCFileName

Browse Source 
* make ansistring version of ExpandUNCFileName call the unicodestring version

git-svn-id: branches/cpstrrtl@25045 -
This commit is contained in:
Jonas Maebe 2013-07-04 22:28:24 +00:00
parent 8368f7dba5
commit ab9036ecbf
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/wince/sysutils.pp
View File

@ -97,10 +97,19 @@ begin
end; end;
end; end;
function ExpandUNCFileName (const filename:string) : string; function ExpandUNCFileName (const filename:string) : string;
var
u: unicodestring;
begin
u:=ExpandUNCFileName(unicodestring(filename));
widestringmanager.Unicode2AnsiMoveProc(punicodechar(u),result,DefaultRTLFileSystemCodePage,length(u));
end;
function ExpandUNCFileName (const filename:unicodestring) : unicodestring;
{ returns empty string on errors } { returns empty string on errors }
var var
s : widestring; s : unicodestring;
size : dword; size : dword;
rc : dword; rc : dword;
buf : pwidechar; buf : pwidechar;