freepascal - 如何在 Pascal 中输出 Set 的内容？

Question

我正在使用 Pascal 中的简单集合，并且只想输出集合的内容。每次运行代码时，我都会收到以下错误消息:“project1.lpr(17,13) 错误:无法读取或写入这种类型的变量”。

这是我的代码:

  program Project1;

{$mode objfpc}{$H+}

uses
  sysutils;

type TFriends = (Anne,Bob,Claire,Derek,Edgar,Francy);
type TFriendGroup = Set of TFriends;

Var set1,set2,set3,set4:TFriendGroup;    x:integer;

begin
set1:=[Anne,Bob,Claire];
set2:=[Claire,Derek];
set3:=[Derek,Edgar,Francy];
writeln(set1);
readln;
end.

是否有特殊的方法/功能来输出集合？

谢谢

Answer 1

Free Pascal 允许在没有显式 typinfo 调用的情况下对枚举进行 write/writeln()。

所以

{$mode objfpc}  // or Delphi, For..in needs Object Pascal dialect iirc.
var Person :TFriends;

 for Person in Set1 do
    writeln(Person);

工作正常。

使用 WriteStr这也可以写入字符串。 (writestr 函数类似于 write/writestr，但随后是字符串。最初是为 ISO/Mac 方言实现的)