Y
youou
Unregistered / Unconfirmed
GUEST, unregistred user!
type
//枚举类型:
TTestItem=(tiBuWu,tiPurRed,tiPurGreen,tiCutoffRaster,tiWhiteBright,tiWindowBright,
tiRaster,tiBalance93K,tiBalance65K);
// 集合类型:
TTestItems=set of TTestItem;
//================================
var
tis:TTestItems;
//=================================
procedure TForm2.Button1Click(Sender: TObject);
var
tis : TTestItems;
ti : TTestItem;
i : integer;
begin
tis:=[tiBuWu,tiBalance93K,tiBalance65K]
ti:=
end;
//1.如何取得集合中的每一个值?
//2.取出后怎样赋给枚举类型?
对于枚举类型可以运用GetEnumValue及GetEnumName
那集合该如何操作?
//枚举类型:
TTestItem=(tiBuWu,tiPurRed,tiPurGreen,tiCutoffRaster,tiWhiteBright,tiWindowBright,
tiRaster,tiBalance93K,tiBalance65K);
// 集合类型:
TTestItems=set of TTestItem;
//================================
var
tis:TTestItems;
//=================================
procedure TForm2.Button1Click(Sender: TObject);
var
tis : TTestItems;
ti : TTestItem;
i : integer;
begin
tis:=[tiBuWu,tiBalance93K,tiBalance65K]
ti:=
end;
//1.如何取得集合中的每一个值?
//2.取出后怎样赋给枚举类型?
对于枚举类型可以运用GetEnumValue及GetEnumName
那集合该如何操作?