|
@@ -192,7 +192,7 @@ const
|
|
|
{ for safe as operator support }
|
|
{ for safe as operator support }
|
|
|
IObjectInstance: TGuid = '{D91C9AF4-3C93-420F-A303-BF5BA82BFD23}';
|
|
IObjectInstance: TGuid = '{D91C9AF4-3C93-420F-A303-BF5BA82BFD23}';
|
|
|
|
|
|
|
|
-function GUIDToString(const GUID: TGUID): string; overload;
|
|
|
|
|
|
|
+function GUIDToString(const GUID: TGUID): string; external name 'rtl.guidrToStr';
|
|
|
|
|
|
|
|
{*****************************************************************************
|
|
{*****************************************************************************
|
|
|
Init / Exit / ExitProc
|
|
Init / Exit / ExitProc
|
|
@@ -292,11 +292,6 @@ asm
|
|
|
return s1.toLowerCase() == s2.toLowerCase();
|
|
return s1.toLowerCase() == s2.toLowerCase();
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
-function GUIDToString(const GUID: TGUID): string; assembler;
|
|
|
|
|
-asm
|
|
|
|
|
- return rtl.guidrToStr(GUID);
|
|
|
|
|
-end;
|
|
|
|
|
-
|
|
|
|
|
function ParamCount: Longint;
|
|
function ParamCount: Longint;
|
|
|
begin
|
|
begin
|
|
|
if Assigned(OnParamCount) then
|
|
if Assigned(OnParamCount) then
|
mattias