掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数ポインタがうまく渡せないです。 (ID：13419)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは。この度は、質問があって参りました。 関数ポインタがうまく渡せないのです。 type TFunction = function(x: Real): Real; pTFunctinon = ^TFunction; function Foo(Func: pTFunction; x: Real): Real; begin Result:= Func^(x); end; procedure Button1Click(Sender: TObject); function Half(x: Real): Real; begin Result:= x/2; end; begin ShowMessage( FloatToStr( Foo( @Half , 1 ) ) ); end; Button1 を押すと、Half の x = 1 に対する値が表示される意図のプログラムを書いたのですが、 「アドレス xxxxxxxx でアドレス xxxxxxxx に対する読み込み違反が起きました。」 という例外が発生してしまいます。 どなたか、ご教授よろしくお願いいたします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.