集合型を保存 (ID:16941)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 procedure TForm1.Button1Click(Sender: TObject); type Ta =( aa,bb,cc); //順序型を定義 Tas= set of ta; //集合型を定義 var a:Tas; //集合型変数 v:array[0..31] of byte absolute a; //集合型がとり得る最大値 //32Byteの配列を集合型変数と //同一アドレスに割り当て Ix:integer; //制御変数 begin for Ix:=0 to Sizeof(Tas) -1 do // V[ix] を保存する手続きを定義。V[Ix]はByte型の数値; end;