掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
構造体（record）を用いた関数を使うには？ (ID：10608)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
type human = record age : Integer; name : String; end; var A, B : human; [省略] procedure input_human(obj : human; mage : Integer; mname : String); begin obj.age := mage; obj.name := mname; end; procedure TmyClass.input_go(); begin input_human(A, 21, 'kana'); input_human(B, 22, 'nana'); end; procedure TmyClass.get_data(); begin ShowMessage(IntToStr(A.age)); ShowMessage(IntToStr(B.age)); end; ------------------------------------------------ このような場合（実際作成中のプログラムは全く違いますが構成は似ています）、他ユニットにてinput_go()とget_dataを実行。 すると、ShowMessageにて出てくる文字が0になってしまいます。 結果的にA.ageには21、B.ageには22が入っていて欲しいのですが。 どこに問題があるのかがわかりません。 どなたか分かる方宜しくお願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.