集合与字符的互換

一）首先列出用到的几個関数

　　・用「GetEnumValue」関数取出字符在枚挙型中対応的枚挙値(Integer型)。
      　function GetEnumValue(TypeInfo: PTypeInfo; const Name: String): Integer;

　　・用「GetEnumName」関数取出枚挙値在枚挙型中対応的枚挙名。
　　　function GetEnumName(TypeInfo: PTypeInfo; Value: Integer): String;

　　・用「Include」関数向集合挿入元素、相当于 S := S + [I]
　　　procedure Include(var S: set of T; I:T);

二）挙例
     為了直観的顕示出集合中的内容、以Delphi中存在的「TMsgDlgButtons」集合為例。

　　・把一個字符串挿入某集合中。
　　如：　'mbYes, mbNo, mbOK, mbCancel, mbIgnore'　→　[mbYes, mbNo, mbOK, mbCancel, mbIgnore]

　　・把集合中的内容以字符串的形式表示出来。
　　如：　[mbYes, mbNo, mbOK, mbCancel, mbIgnore]　→　'mbYes, mbNo, mbOK, mbCancel, mbIgnore'

点撃此処 Show Code

// 「TMsgDlgButtons」在Delphi中的定義
type
  TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp);
  TMsgDlgButtons = set of TMsgDlgBtn;

var
  Form1: TForm1;

implementation
{$R *.dfm}

uses
  TypInfo;

// String→集合
procedure TForm1.Button1Click(Sender: TObject);
var
  StrList: TStringList;
  MsgDlgBtns: TMsgDlgButtons;
  Str: String;
  i: Integer;
begin
  Str := 'mbYes, mbNo, mbOK, mbCancel, mbIgnore';
  StrList := TStringList.Create;
  try
    ExtractStrings([','], [' '], PChar(Str), StrList);

    for i:=0 to StrList.Count-1 do
      Include(MsgDlgBtns, TMsgDlgBtn(GetEnumValue(TypeInfo(TMsgDlgBtn), StrList.Strings[i])));

    MessageDlg('確認',mtConfirmation, MsgDlgBtns, 0);
  finally
    StrList.Free;
  end;
end;

// 集合→String
procedure TForm1.Button2Click(Sender: TObject);
var
  MsgDlgEnum: TMsgDlgBtn;
  MsgDlgBtns: TMsgDlgButtons;
  Str: String;
begin
  MsgDlgBtns := [mbYes, mbNo, mbOK, mbCancel, mbIgnore];

  for MsgDlgEnum := Low(TMsgDlgBtn) to High(TMsgDlgBtn) do
    if MsgDlgEnum in MsgDlgBtns then
      Str := Str + GetEnumName(TypeInfo(TMsgDlgBtn), Ord(MsgDlgEnum)) + ',';

  ShowMessage(Str); 
end;

注：此程序在Delphi7上編集通過的。

<script> function toggle(e) { if (e.style.display == "none") { BtnSpan.innerText = "Hide Code"; e.style.display = ""; } else { BtnSpan.innerText = "Show Code"; e.style.display = "none"; } } </script>