DataGridのバインディングの巻（その２）

一応、意地になってみます。じゃー、パブリックなプロパティがあれば良いの勝手なわけで、

type
  TMyBook = class
  private
    Fsample1: String;
    Fsample2: String;
  public
    property sample1:String read Fsample1 write Fsample1;
    property sample2:String read Fsample2 write Fsample2;
  end;

で、クラスを定義して、

procedure TWinForm.Button4_Click(sender: System.Object; e: System.EventArgs);
var
  wkBooks :array[0..9] of TMyBook;
  wkBook : TMyBook;
  i : integer;
begin
  //テストデータ作成
  for i := 0 to 9 do
  begin
    wkBook := TMyBook.create;
    wkBooks[i] := wkBook;
  end;
  DataGrid1.DataSource := wkBooks;
end;

で、表示してみる。って、前と一緒じゃーんっ。相変わらず、レコードはできるが、列ができない。もしかして、DataGridは自分で列を定義せねばならんのか・・また、挑戦する。負けないもん。