如何读写“SET OF”使用 BinaryWriter 输入文件？

Question

这是针对德尔福棱镜的。

假设我有以下枚举 SET 类型，我想将其保存到二进制文件中。

Fruit = (Apple, Banana, Mango, Cherry, Grapes, BlueBerry);
Fruits = set of Fruit;

FruitBasket:Fruits;

with Fruit do
  FruitBasket := [Apple, Mango];

BinaryWriter thefile := new BinaryWriter(File.Create("test.dat"));

thefile.write(FruitBasket);   //<<< raises Error - There is no overloaded method "Write" with these parameters 

thefile.Close;

如何使用 BinaryWriter 将枚举 SET Type(Fruit) 读写到二进制文件中？我以为我在另一个 Stackoverflow 问题中找到了问题的答案，但没有。

我想，我主要必须循环遍历它的元素，但我需要知道是否有更简单的方法来做到这一点。

更新：在第一个答案之后，我尝试并得出了一个快速结论，这对我来说是一个巨大的错误。一旦我解决了程序中的其他问题和错误，我的编译器就会根据 CK 的第一个也是唯一一个答案的建议对我所做的更改提出错误。我只能写，但不能读回来。编译器不断提示 - “类型不匹配，无法将 System.SByte 分配给 Groups.TFeature 集”

顶部的代码只是一个示例。下面是实际的代码：

这是枚举类型：

  TFeature = (tfUnit,tfSignal,tfAlarm,tfControl,tfMaker,tfViewer,tfTrend,
              tfComm,tfSystem,tfScan,tfShutdown,tfPID,tfMagiKal);

这是 SET OF 类型：

  TFeatures = set of TFeature;

这是类：

  TGroup = class
    name:string;
    rwFeatures:TFeatures;
    roFeatures:TFeatures;
    levels:TLevels;
  private

  public
    constructor;
    Method ReadAGrp(bgreader:BinaryReader);
    Method ReadOld(bgreader:BinaryReader);
    Method WriteAGrp(bgwriter:BinaryWriter);
  end;

  TGroupList = class(ArrayList)
  private

  public
    Method ReadGroups(fname:string);
    Method WriteGroups(fname:string);
    Method AddGroup(group1:TGroup);
    Method DeleteGroup(group1:TGroup);
    Method FindGroup(gname:string):TGroup;
  end;

这是我尝试使用 Binarywriter 将 SET OF 类型读取和写入二进制文件的方法：

procedure TGroup.ReadAGrp(bgreader:BinaryReader);
begin
  name:=bgreader.ReadString;
  rwFeatures := TFeature(bgreader.ReadSByte);
  roFeatures := TFeature(bgreader.ReadSByte);
  levels := TLevels(bgreader.readsbyte);
end;

procedure TGroup.ReadOld(bgreader:BinaryReader);
begin
  name:=bgreader.ReadString;
  rwfeatures := TFeature(bgreader.ReadSByte);
  roFeatures := TFeature(bgreader.ReadSByte);
  levels :=TLevels(bgreader.readsbyte);
end;

procedure TGroup.WriteAGrp(bgwriter:BinaryWriter);
begin
  bgwriter.Write(name);
  bgwriter.Write(rwFeatures.toarray);
  bgwriter.Write(roFeatures.ToArray);
  bgWriter.Write(levels.toarray);
end;

如果您可以用示例回答代码或实际代码，我将不胜感激。

如果你没有注意到，我开始为这个问题提供赏金。我真的需要一个可行的答案。谢谢，

谢谢，

Answer 1

您可以将其序列化为字节数组；在 FruitBasket 上调用 .ToArray 来获取它，然后使用 new Fruits(myarrayofbyte) 将其作为集合返回。像这样的东西：

  var lData := mySet.ToArray();
  bw.Write(lData.Length); // write the length
  bw.Write(lData); // write the bytes

  // Reading:
  var lData := bw.ReadBytes(bw.ReadInt32());
  var newSet := new Fruits(lData);

Answer 2

基于示例代码（FruitBasket），代码如下。

编写：

thebinarywriter.write(FruitBasket.ToArray);

阅读：

Fruits FruitBasket := new Fruits(thebinaryReader.ReadSByte);

代码已经过测试。