将 Delphi Set 命令转换为 C++Builder

Question

我正在将下面看到的 Delphi 表达式转换为 C++Builder。我的 C++Builder 代码生成错误消息 E2299。我把这个错误描述的全文放在下面。您能否建议更改我的 C++ 代码以使其正常工作。

//Delphi
TYPE
Regions   = (North,South,East,West);
RegionSet = SET OF Regions;

//C++Builder
enum Regions { North, South, East, West };
typedef Set<Regions, North, West> RegionSet;

E2299 无法从“Set”生成模板特化

您需要在程序中添加一个属性。

属性的声明指定了名称和类型，并至少包含一个访问说明符。属性声明的语法是：

property propertyName[indexes]：类型索引整数常量说明符；

在哪里：

propertyName 是任何有效的标识符

[indexes] 是可选的，是由分号分隔的参数声明序列

每个参数声明的形式为 identifier1, ..., identifiern: type

type 必须是预定义的或先前声明的类型标识符。也就是说，像 property Num: 0..9 ... 这样的属性声明是无效的。

索引 integerConstant 子句是可选的。

specifiers 是一系列读、写、存储、默认（或无默认），并实现了说明符。

每个属性声明必须至少有一个读或写说明符。

在下面编辑：

问题是下面看到的 typedef 不能在 C++Builder 函数中编译。我在 CheckRegion 函数中设置了 typedef。

void __fastcall TForm1::CheckRegion( bool visible ){ 
//C++Builder 
enum Regions { North, South, East, West }; 
typedef Set<Regions, North, West> RegionSet; 
}    

解决方案是将 typedef 移动到主窗体的顶部，就在 TForm1 *Form1;如下所示。

//--------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
// use "typedef" here
enum RegionsCpp {NorthCpp, SouthCpp, EastCpp, WestCpp };
typedef Set<RegionsCpp, NorthCpp, WestCpp> RegionSetCpp;
//--------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{

Answer 1

你在错误的地方使用了typedef Set ...。

如果您使用不本地enum Regions

，则可以使用typedef Set <...

//---------------------------------------------------------------------------
void __fastcall TForm1::FormClick(TObject *Sender)
{
 enum Regions {North, South, East, West };
 // You can use "enum" here, but not "typedef Set <..."
 typedef Set<Regions, North, West> RegionSet;
 // next typedef is OK
 typedef int NumberOfParts;
}

Delphi 你可以在这里毫无问题地使用 TYPE

procedure TForm1.FormClick(Sender: TObject);
TYPE
 Regions = (North, South, East, West );
 RegionSet = SET OF Regions;
begin
 [...]
end;

以下 C++ Builder 将起作用

#include <vcl.h>
#pragma hdrstop
#include "Enum.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
enum Regions {North, South, East, West };
// use "typedef" here
typedef Set<Regions, North, West> RegionSet;
// also works
// typedef System::Set<Regions, North, West> RegionSet;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClick(TObject *Sender)
{
  [...]
}

如果您使用全局enum Regions，则可以使用typedef Set <...

#include <vcl.h>
[...]
TForm1 *Form1;
enum Regions {North, South, East, West };
[...]
//--------------------------------------------------------------
void __fastcall TForm1::FormClick(TObject *Sender)
{
 typedef Set<Regions, North, West> RegionSet;
}