[DELPHI] DEVEXPRESS BOUND 모드 연결.

procedure TForm1.Button1Click(Sender: TObject);

var

  iFieldCnt : Integer;

  I: Integer;

  fItems : TcxCustomGridTableItem;

  iRecCnt : Integer;

begin

  iFieldCnt := Table1.FieldCount;

  Try

    cxGrid1TableView1.BeginUpdate;

    cxGrid1TableView1.ClearItems;

    for I := 0 to iFieldCnt - 1 do

    begin

      fItems := cxGrid1TableView1.CreateItem;

      fItems.Name := cxGrid1TableView1.Name + Table1.Fields[i].FieldName;

      if Table1.Fields[i].DataType in [ftGraphic, ftBlob, ftTypedBinary ] Then

      begin

        fItems.PropertiesClass := TcxImageProperties;

        TcxImageProperties( fItems.Properties ).GraphicClass := TBitmap;

      end;

      fItems.Caption := Table1.Fields[i].FieldName;

    end;

    With Table1 do

    begin

        First;

      while not Eof do

      begin

        Inc( iRecCnt );

        cxGrid1TableView1.DataController.RecordCount := iRecCnt;

        for I := 0 to iFieldCnt - 1 do

          cxGrid1TableView1.DataController.Values[ iRecCnt - 1 , i ] := Fields[i].Value;

        Next;

      end;

    end;

  Finally

    cxGrid1TableView1.EndUpdate;

  End;

end;