掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数ポインタがうまく渡せないです。 (ID：13420)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じでは？ type TFunction = function(x: Real): Real; function Foo(Func: TFunction; x: Real): Real; begin Result:= Func(x); end; procedure TForm1.Button1Click(Sender: TObject); function Half(x: Real): Real; begin Result:= x/2; end; begin ShowMessage( FloatToStr( Foo( @Half , 1 ) ) ); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.