有关在窗体上如何动态生成DBEdit控件，显示数据

Question

var
  DBEDIT :TDBedit;
begin
   dbedit := TDBedit.Create(self);
   dbedit.Parent := Form1;
  ... //设置相应的属性
   dbedit .left := ..
   dbedit .top := ..
   dbedit.DataSource := ...
   dbedit.DataField := ..
end;

Answer 1

dbedit1:=tdbedit1.create(form1);
dbedit1.left:=5;
dbedit1.top:=5;
dbedit1.parent:=self;
dbedit1.datasource;=
dbedit1.datafield:=...

Answer 2

dbedit1:=tdbedit1.create(form1);
dbedit1.left:=5;
dbedit1.top:=5;
dbedit1.parent:=self;
dbedit1.datasource;=
dbedit1.datafield:=...

Answer 3

用数组
var
  aDBEdit: array[0..99] of TDBEdit; //最多100个字段
...  for i := 0 to Dataset.Fieldcount - 1 do
  begin
    aDBEdit[i] := TDBEdit.Create(Self);
    aDBEdit[i].DataSource := DataSource1;
    aDBEdit[i].DataField := Fld1;
    ...
  end;

Answer 4

用数组
var
  aDBEdit: array[0..99] of TDBEdit; //最多100个字段
...  for i := 0 to Dataset.Fieldcount - 1 do
  begin
    aDBEdit[i] := TDBEdit.Create(Self);
    aDBEdit[i].DataSource := DataSource1;
    aDBEdit[i].DataField := Fld1;
    ...
  end;