レコード型
- レコード型は、配列のように複数の要素を持つことができます。
- 異なる型が格納できます。
- 各要素に名前が付けられます。
【書式】
Type
<レコード型名> = record
<要素1>: <型1>;
<要素2>: <型2>;
・・・
end;
<レコード型名> = record
<要素1>: <型1>;
<要素2>: <型2>;
・・・
end;
レコード型のサンプルを書いてみました。
Gender型をそのまま出そうとしたら、エラー攻撃に合いました。
文字列じゃないから、Memo1にそのまま入れちゃダメだったのね。
サンプルプログラムを見て作った、アンケートを参考に書き直しました。
procedure TfrmMain.btnJikkouClick(Sender: TObject); Type Gender = (male, fmale); tMember = record Name : String; Age : Integer; Sex : Gender; end; var Member : tMember; begin Memo1.Clear; with Member do begin Name := 'Jeanluc'; Age := 10; Sex := male; end; Memo1.Lines.Add('名前= ' + Member.Name); Memo1.Lines.Add('年齢= ' + IntToStr(Member.Age)); if (Member.Sex = male) then Memo1.Lines.Add('性別=男性') else Memo1.Lines.Add('性別=女性'); end;
【実行結果】