Delphi中如何将set of AnsiChar类型转换为字符数组？

完全可以实现这类转换，核心思路是遍历AnsiChar的所有可能取值，检查每个字符是否存在于目标集合中，将符合条件的字符收集到动态数组里。以下是具体实现步骤：

1. 定义所需类型 #

先确保有字符数组的类型定义（已有可跳过）：

type
  TCharSet = set of AnsiChar;
  TAnsiCharArray = array of AnsiChar; // 动态Ansi字符数组，适配任意长度的集合

2. 编写转换函数 #

实现遍历集合并生成字符数组的函数：

function CharSetToAnsiCharArray(const ACharSet: TCharSet): TAnsiCharArray;
var
  C: AnsiChar;
  CurrIndex: Integer;
begin
  SetLength(Result, 0);
  CurrIndex := 0;
  // 遍历AnsiChar的全部取值范围（#0到#255）
  for C := Low(AnsiChar) to High(AnsiChar) do
  begin
    if C in ACharSet then
    begin
      // 扩展数组长度并添加当前字符
      SetLength(Result, CurrIndex + 1);
      Result[CurrIndex] := C;
      Inc(CurrIndex);
    end;
  end;
end;

3. 调用示例 #

结合你提供的遗留代码，调用方式如下：

const
  North = 'F';
  Pay = 'P';
  Lynk = 'L';  

var
  MySet: TCharSet;
  CharArray: TAnsiCharArray;
  I: Integer;
begin
  MySet := [North, Pay, Lynk];
  CharArray := CharSetToAnsiCharArray(MySet);
  
  // 测试输出数组内容（可选）
  for I := 0 to High(CharArray) do
    ShowMessage(CharArray[I]);
end;

与枚举集合转换的区别 #

你提供的枚举集合转字符串代码，核心是遍历枚举类型的取值范围；而AnsiChar本身就是有序类型，直接遍历Low(AnsiChar)到High(AnsiChar)即可覆盖所有可能出现在集合中的字符，无需借助GetEnumName这类枚举相关函数。

内容的提问来源于stack exchange，提问作者mano