git_admin/Virtual-File-System
1
0
Fork 0
mirror of https://github.com/CloudDelphi/Virtual-File-System synced 2025-12-19 18:03:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

Compare commits

base: git_admin:master
Branches Tags
git_admin:master
git_admin:v1.0.4
git_admin:v1.0.3
git_admin:v1.0.2
git_admin:v1.0.1
git_admin:v1.0.0
...
compare: git_admin:v1.0.4
Branches Tags
git_admin:master
git_admin:v1.0.4
git_admin:v1.0.3
git_admin:v1.0.2
git_admin:v1.0.1
git_admin:v1.0.0

1 Commits
master ... v1.0.4

Author SHA1 Message Date
Berserker
84c569935d Fixed Externalize functions to always return allocated buffer, even if source is empty string 2019-06-13 00:24:19 +03:00
1 changed files with 4 additions and 12 deletions
Show Stats Expand all files Collapse all files

16
VfsExport.pas
View File

@ -26,22 +26,14 @@ exports
function Externalize (const Str: AnsiString): {O} pointer; overload;
begin
result := nil;
if Str <> '' then begin
GetMem(result, Length(Str) + 1);
Utils.CopyMem(Length(Str) + 1, pointer(Str), result);
end;
GetMem(result, Length(Str) + 1);
Utils.CopyMem(Length(Str) + 1, pchar(Str), result);
end;
function Externalize (const Str: WideString): {O} pointer; overload;
begin
result := nil;
if Str <> '' then begin
GetMem(result, (Length(Str) + 1) * sizeof(WideChar));
Utils.CopyMem((Length(Str) + 1) * sizeof(WideChar), pointer(Str), result);
end;
GetMem(result, (Length(Str) + 1) * sizeof(WideChar));
Utils.CopyMem((Length(Str) + 1) * sizeof(WideChar), PWideChar(Str), result);
end;
function MapDir (const VirtPath, RealPath: PWideChar; OverwriteExisting: boolean; Flags: integer = 0): LONGBOOL; stdcall;