Explorar o código

[commons] small fix

Exilon %!s(int64=5) %!d(string=hai) anos
pai
achega
b6be4b64a2
Modificáronse 1 ficheiros con 5 adicións e 2 borrados
  1. 5 2
      Quick.Commons.pas

+ 5 - 2
Quick.Commons.pas

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