掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数の呼び出しについて (ID:7442)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
先ほどの通りすがりさんとは別の通りすがりです(^^; 以前、こんなのを見たことがあります。 type TForm1 = class(TForm) ... private procedure CallProc(ProcName: string); published procedure kansu_1; procedure kansu_5; end; ... type TProc = procedure of object; procedure TForm1.CallProc(ProcName: string); var Method: TMethod; Proc: TProc; begin Method.Data := Self; Method.Code := MethodAddress(ProcName); if not Assigned(Method.Code) then Exit; Proc := TProc(Method); Proc; end; procedure TForm1.kansu_1; begin ShowMessage('kansu_1'); end; procedure TForm1.kansu_5; begin ShowMessage('kansu_5'); end; procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin i := StrToIntDef(Edit1.Text,1); CallProc(Format('kansu_%d',[i])); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.