关于cxGrid问题，动态增加删除行、列

Question

我使用的cxGrid是5.0的，在DELPHI7中新建工程，拉了一个cxGrid进去，增加了一个Table，是Table不是DB Table，我要实现的功能就是用代码实现增加、删除行和列

Answer 1

for i := 0 to AdoTable1.Fields.Count - 1 do
    begin
      FieldName := AdoTable1.Fields[i].FieldName;        AdoTable1.Fields[i].DisplayLabel := FieldName;
        FColumn := cxGridDBTableView.CreateColumn;
        FColumn.DataBinding.FieldName := FieldName;
        FColumn.MinWidth := 100;
      end;
   end;给分吧

Answer 2

var
  i: Integer;
  FieldName,DisplayName: string;
  FColumn: TcxGridDBColumn;

Answer 3

TO liangyong007a
我这个动态增加列删除行列和数据库无关的

Answer 4

procedure TForm1.btnAddRowColumnClick(Sender: TObject);
var
  Column: TcxGridColumn;
begin
  Column:= cxGrid1TableView1.CreateColumn;
  Column.Caption := 'Test';
  cxGrid1TableView1.DataController.AppendRecord;
  cxGrid1TableView1.DataController.Values[0, 0] := 'ABC';
  cxGrid1TableView1.DataController.Post;
end;procedure TForm1.btnDelRowColumnClick(Sender: TObject);
begin
  cxGrid1TableView1.DataController.DeleteRecord(0);
  cxGrid1TableView1.Columns[0].Free;
end;

Answer 5

TO cncharles(旺仔):
我之前也是用你的办法来实现删除和增加列行
现在的情况是
我第一次增加列行到TableView中很正常
第二次（没有关闭程序）删除了所有行再删除列，再增加列行，数据显示正常
但就是会发现鼠标点击TableView的格子时，就会出现读地址错误这个异常，如下
Access violation at address 00659874 in module test.exe'. Read of address 0000004C
肯定是什么资源释放问题

Answer 6

我的都不会出现那种错误呀, 你完全用我的代码测试一下.我的cxGrid5.12, BDS2006+update2

Answer 7

我完全用你代码测试了一下，还是报那个错，我的是汉化版的5.0 ＋Delphi7
你MSN 邮件多少，我给你发一个我写好的程序你看看，多谢了

Answer 8

附上源代码
E-Mail: [email protected]