掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
クラスの定義方法について（arrayなクラス） (ID:43712)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは、お世話になります。 クラスを作ったことがなくて今勉強しているのですが、 本を見て下記のようにすれば出来ることがわかりました。 次にこのクラスを Seito[1].Name := '山田'; Seito[2].Name := '佐藤'; Seito[3].Name := '鈴木'; のように、array として扱えるようにしたいのですが、 それはどう定義すれば良いでしょうか？ 教科書からさらに一歩、と思うと、情報をなかなか見つけられません。 よろしくお願いいたします。 //----------------------------- //implementation 部 type TSeiseki = record Eigo: integer; //英語の成績 Kokugo: Integer; //国語の成績 Sugaku: Integer; //数学の成績 end; TSeito = class Name: String; Seiseki: TSeiseki; end; //----------------------------- procedure TForm1.Button1Click(Sender: TObject); var Seito: TSeito; begin Seito := TSeito.Create; Seito.Name := '山下'; Seito.Seiseki.Eigo := 80; Seito.Seiseki.Kokugo := 60; Seito.Seiseki.Sugaku := 40; ShowMessage(Seito.Name +'の成績の合計は' +IntToStr(Seito.Seiseki.Eigo +Seito.Seiseki.Kokugo+Seito.Seiseki.Sugaku)); Seito.Free; end; //-----------------------------
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.