可否动态增加DBGrid的Column，并设置它的属性？

Question

可否动态增加DBGrid的Column，并设置它的属性？

Answer 1

看到你的题目后，我实践了一遍，望你能成功。以后方法是可行的，但算法不太行
var
  ints:integer;
  str:string; //输入你要新增的列数
begin
  str:=InputBox('提示信息','请输入你要添入的列数,只能是整型!',str);  for ints:=0 to DBGrid1.Columns.Count-1 do  //此循环完成删除原来的列数
  begin
    DBGrid1.Columns.Delete(0);
  end;
  for ints:=0 to StrToInt(str)-1 do         //此循环完成新增的列并赋值
  begin
    DBGrid1.Columns.Add;
    DBGrid1.Columns[ints].FieldName:='第'+inttostr(ints)+'列';
    //DBGrid1.Columns[ints].Field:='你所对应的数据表列名';
  end;
end;

Answer 2

dbgrid1.Columns.Add.FieldName := '列名';