2
0
Exilon 5 жил өмнө
parent
commit
b6be4b64a2

+ 5 - 2
Quick.Commons.pas

@@ -7,7 +7,7 @@
   Author      : Kike Pérez
   Author      : Kike Pérez
   Version     : 2.0
   Version     : 2.0
   Created     : 14/07/2017
   Created     : 14/07/2017
-  Modified    : 22/06/2020
+  Modified    : 14/07/2020
 
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
 
@@ -788,9 +788,12 @@ function NewGuidStr : string;
 var
 var
   guid : TGUID;
   guid : TGUID;
 begin
 begin
+  {$IFDEF DELPHIRX10_UP}
+  Result := TGUID.NewGuid.ToString;
+  {$ELSE}
   guid.NewGuid;
   guid.NewGuid;
   Result := guid.ToString
   Result := guid.ToString
-  //GUIDToString(guid);
+  {$ENDIF}
 end;
 end;
 
 
 function IsLike(cText, Pattern: string) : Boolean;
 function IsLike(cText, Pattern: string) : Boolean;