paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-31 08:00:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added TGUID.Empty. Fix issue #39241

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-11-07 12:49:56 +01:00
parent 0dc7a141c6
commit 5b8684ea63
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl/sysutils.pas
View File

@ -676,6 +676,7 @@ Type
// Class Function Create(A: Integer; B: SmallInt; C: SmallInt; D, E, F, G, H, I, J, K: Byte): TGUID; overload; static; // Class Function Create(A: Integer; B: SmallInt; C: SmallInt; D, E, F, G, H, I, J, K: Byte): TGUID; overload; static;
Class Function Create(A: Cardinal; B: Word; C: Word; D, E, F, G, H, I, J, K: Byte): TGUID; overload; static; Class Function Create(A: Cardinal; B: Word; C: Word; D, E, F, G, H, I, J, K: Byte): TGUID; overload; static;
Class Function NewGuid: TGUID; static; Class Function NewGuid: TGUID; static;
Class Function Empty: TGUID; static;
Function ToByteArray(DataEndian: TEndian = CPUEndian): TBytes; Function ToByteArray(DataEndian: TEndian = CPUEndian): TBytes;
Function ToString(SkipBrackets: Boolean = False): string; Function ToString(SkipBrackets: Boolean = False): string;
end; end;
@ -5558,6 +5559,11 @@ begin
CreateGUID(Result) CreateGUID(Result)
end; end;
class function TGuidHelper.Empty: TGUID;
begin
Result:=Default(TGUID);
end;
function TGuidHelper.ToByteArray(DataEndian: TEndian): TBytes; function TGuidHelper.ToByteArray(DataEndian: TEndian): TBytes;
Var Var