レコード型
- レコード型は、配列のように複数の要素を持つことができます。
- 異なる型が格納できます。
- 各要素に名前が付けられます。
【書式】
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;
【実行結果】
