如何在Delphi中从Interface类型数据初始化一个TGUID的const数组?

前端之家收集整理的这篇文章主要介绍了如何在Delphi中从Interface类型数据初始化一个TGUID的const数组?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我想初始化一个像这样的数组 –
Const MyArray : Array[0..0] Of TGUID = (IInterface);

但它导致 –

[DCC Error] Test.pas(10): E2010 Incompatible types: 'TGUID' and 'string'

那么为了看看会发生什么我试过这个 –

Const MyArray : Array[0..0] Of String = (IInterface);

结果就是这个!

[DCC Error] Test.pas(10): E2010 Incompatible types: 'string' and 'TGUID'

多么奇怪!当然,IInterface是一个或另一个,但似乎顽固地转变为错误的类型.

解决方法

您可以从接口声明中提取GUID并将它们声明为(字符串)常量.然后,您可以在接口声明和数组常量声明中使用这些常量.编译器接受有效的GUID字符串,其中包含TGUID.无效的字符串导致E2204“不正确的GUID语法”编译错误.
const
  MyGuid1 = '{99BDAB12-B1B6-41B0-9BF1-2C1DB3D8EC70}';
  MyGuid2 = '{8C7CD303-8D81-469B-99ED-E1F163E9036F}';

type
  IMyInterface1 = interface
    [MyGuid1]
  end;

  IMyInterface2 = interface
    [MyGuid2]
  end;

const
  MyArray: array[0..1] of TGUID = (MyGuid1,MyGuid2);

猜你在找的Delphi相关文章