簡単なVertex Buffer - Delphi

続いて非常に簡単なVertexBufferを試してみます。先ほどの初期化プログラムのコードに追加します。initVertexBufferというメソッドと OnCreateVertexBuffer メソッドを作ります。コード全体は下の図のようになります。

　プログラムを実行すると、３角形が表示されます。（下図参照）

　補足としては、前回delphi8でこの処理を作ったときは、マルチキャストのところをいい加減に書いていましたが、今回はincludeを使っています。これはイベントに代入しようとしてくれたところ、コンパイラが「代入できません、Include/Excludeを使ってください」と言ってくれたため、改善することができました、地味に親切です。また前回はCustomVertex.TransFormedColored.Createはうまくいかなかったのですが、今回は、きちんと動くようになっています。