クラス内の関数を関数テーブルにして、それをコールするときの注意点 (ID：11855)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

「無効なポインタ操作」が出てしまいます。

type
  TFunc = function(): integer; of object;

type
  PStateTbl = ^TStateTbl;
  TStateTbl = record
  pFunc  :TFunc;
end;

type
  TState = array of TStateTbl;

と、宣言し、クラス内でpublic宣言している関数を
関数テーブルにしています。

type
  TModel = class(TObject)
  private
  public
    constructor Create;
    destructor Destroy; override;
    function SetTbl(var Tbl:TState): integer;

function func01: integer;
    function func02: integer;
    function func03: integer;
end;

function TModel.SetTbl(var Tbl: TState): integer;
var
  i       : integer;
  nTblSize: integer;
begin
  i := 0;
  nTblSize := 4;  //テーブル数
  SetLength(Tbl, nTblSize);

Tbl[i].pFunc  := nil;
  Inc(i);

Tbl[i].pFunc  := func01;
  Inc(i);
  :
  :
end;

こんな感じです。
そして、別のスレッドで以下のように宣言して

FModelType: TObject;
FStateTbl : TState;

以下のように生成、テーブルを作成しています。
FModelType := TModel.Create;
TModel(FModelType).SetTbl(FStateTbl);

使うときは、
State := FStateTbl[1];
FFuncExec := State.pFunc;
nRes := FFuncExec();

などというように使っています。
どこか問題ありますでしょうか？

どこかで「無効なポインタ操作」というエラーが出てしまいます。
どこが問題でこのようなエラーが出るのか知識が足りなく追うことができません。
以前は、この関数テーブルをクラス内のpublic関数ではなく、
グローバル？関数で作っていて、そのときはエラーがでなかったので、
問題はこの関数テーブル辺りかなと踏んでいるのですが先に進めなく
困っています。

どなたかご教授お願い致します。

やりたいことは、
・スレッド内から関数テーブルをコールしたい。
・関数テーブルにする関数は、とあるクラス内の関数。
・この、とあるクラスというのは、複数種類があって、
  入れ替えることができる。
  →Ａクラスの関数とＢクラスの関数を入れ替えることができる。

説明下手で申し訳ないのですがご理解いただけますでしょうか・・・

←解決時は質問者本人がここをチェックしてください。

戻る