怎样用代码在DBGRID1中增加一列？

Question

假设在：DBGRID1中增加！请明示！

Answer 1

如果与DBGrid连接的DataSet为ds1则
ds1.insert即可

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  TyourCol: TColumn;
begin
  TyourCol := DBGrid1.Columns.Add;
  TyourCol.Title.Caption := '列名';
  TyourCol.Width := 100;  //宽度end;

Answer 3

sorry，看错问题。
应该是
with DBGrid1 do
begin
  Columns.Add;
  Columns[x].FieldName := 'MCode';
  Columns[x].Title.Caption := '物料编码';
  Columns[x].Title.Alignment := taCenter;
  Columns[x].Width := 80;
end;
其中Columns[x]中的x代表加入的Columns的编号