在Delphi中,如何从接口类型数据初始化一个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);