各位好: type src=(A,B,C,D); Stype=set of Src; var ss:Stype; ss:=[C,D]; 請問如何實作function GetMyItem 可得到 ss 中的第i 個item? function GetMyItem(i:integer;S1:Stype):Stype s.t GetMyItem(0,ss) ==> [C] GetMyItem(1,ss) ==> [D] 謝謝大家 !!

I don't think there is any index like information in a set. The best you can do is    

if C in SType then begin
end;

function GetMyItem(i:integer;S1:Stype):Stype;
var j : src;
begin
  result := [];
  for j := low(src) to high(src) do
  begin
    if j in S1 then inc(i,-1);
    if i = 0 then
    begin
      include(result,j);
      exit;
    end;
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  ss:=[C,D];
  ShowMessage(BoolToStr(GetMyItem(1,ss) = [C],true));
  ShowMessage(BoolToStr(GetMyItem(2,ss) = [D],true));
end;

不過如 william 版主所說, set 內裡沒 index 機制,所以無論你用 ss := [C,D]; 或 ss := [D,C]; 結果都一樣 : GetMyItem(1,ss); // C GetMyItem(2,ss); // D 簡化 funtion 發表人 - Justmade 於 2003/06/13 11:07:10

感謝 William 和 Justmade 的回答    謝了