Type
TIntSet = Set of 1..255;
var
IntA : TIntSet;
begin
IntA = [100, 200];
end;
請問我如何取得 IntA 第一個值，也就是 100

Set不是這樣用的, Set內的member並沒有先後次序的, 只是有或是沒有, 例如:
if 100 in IntA then ....
或
if [100, 200] <= IntA then ....

以你要求來說, 應該便用TList或是array才適合.

查一下TypeInfo..我記得是可以取得Enumerated Type or Set的Name

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

John Wong 兄，Set 的用法我知道，因為我程式一開始宣告了很多
IntA : TIntSet;
IntB : TIntSet;
IntC : TIntSet;
....
....
並給值，
IntA = [50];
IntB = [2, 4, 6];
IntC=[11, 22, 33];
...
...
其中有幾個集合數是只有一個的，
這時需要判斷該集合裡是那個數字，
Coffee 提到的 TypeInfo 我也有查到，但看不太懂他的用法，不知是否能指導一下

<textarea class="delphi" rows="10" cols="60" name="code"> unit TestMain; interface uses Forms, Controls, StdCtrls, Classes; type TInt = 1..255; TIntSet = Set of TInt; TIntArray = array of Integer; TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; procedure Button1Click(Sender: TObject); public function CountOf(ASet: TIntSet): Integer; function Set2Array(ASet: TIntSet): TIntArray; end; var Form1: TForm1; IntA: TIntSet = [100, 200]; implementation {$R *.dfm} uses SysUtils; { TForm1 } function TForm1.CountOf(ASet: TIntSet): Integer; var L: TInt; begin Result := 0;//Element Count of Set for L := Low(TInt) to High(TInt) do begin if ASet = [] then Break else if L in ASet then begin Inc(Result); ASet := ASet - [L]; end; end; end; function TForm1.Set2Array(ASet: TIntSet): TIntArray; var I: Integer; L: TInt; begin SetLength(Result,CountOf(ASet));//Set-Length of Elements of Set if (ASet <> []) and (Length(Result)>0) then begin I := 0; for L := Low(TInt) to High(TInt) do if ASet = [] then Break else if L in ASet then begin Result[I] := L; ASet := ASet - [L]; Inc(I); end; end; end; procedure TForm1.Button1Click(Sender: TObject); var I: Integer; A: TIntArray; begin A := Set2Array(IntA); try for I := 0 to Length(A)-1 do ListBox1.Items.Add(IntToStr(A[I])); finally A := nil; end; end; </textarea> 太久沒來,這裡好像變熱鬧了...