简单问题，怎么读出set of char 集合里的字符，解决多给分

Question

我现在要用到set of char 集合里的字符，怎么读出？？？

Answer 1

我怎么把它包含进去？？具体一点好吗？
如现有
set1:set of char;
aa:array of char;
怎么把set1读入aa?

Answer 2

一个最简单的办法，用流来处理或者是试试move这个函数。

Answer 3

GetEnumValue,GetEnumName函数：uses typeinfo;procedure TForm1.Button1Click(Sender: TObject);
var
  c : TFieldType;
begin
  c := ftString;
  //根据enum得到字符串
  showmessage(GetEnumName(Typeinfo(TFieldType),Ord(c)));
  // 根据字符串得到枚举类型
  c := TFieldType(GetEnumValue(Typeinfo(TFieldType),'ftInteger'));
  showmessage(GetEnumName(Typeinfo(TFieldType),Ord(c)));
end;

Answer 4

如果真是这样的话，就……你连里面的元素是什么有什么都不知道，怎么取？只能猜了！先看你最想要得元素在不在集合内if a1 in set1 then ……
一般这样的问题只有搞什么算法的才有吧，问一句楼主再搞什么呀？哈哈

Answer 5

修正以下
我有一个最奔的方法
也是最简单的方法
因为Char本来就是一个集合0..255
所以
var
  a : Set of char;
  b : array[0..255] of char;
  i : integer;
begin
  for i := 1 to 255 do
  begin
     if Char(i) in a then
       b[i] := Char(i);
  end;
end;
大致算法就是这样了