基本-レコード型

レコード型

  • レコード型は、配列のように複数の要素を持つことができます。
  • 異なる型が格納できます。
  • 各要素に名前が付けられます。

【書式】

Type
<レコード型名> = 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;

【実行結果】

ren9

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です