窗体中有10个动态数组的label,edit，如何寻其进行数据更新，其中的label与数据库中的字段名称相同，分不足可以再加

Question

窗体中有10个动态数组的label,edit，如何寻其进行数据更新，其中的label与数据库中的字段名称相同
 
DataSource1.DataSet.Append;
  while edits[i].Handle >0 do
    begin
     DataSource1.DataSet.FieldByName(labels[i].Caption).Value:=edits[i].Text;
     i:=i+1;
    end;
  DataSource1.DataSet.Post;

Answer 1

DataSource1.DataSet.Append;
i := 0;
  while edits[i].Handle >0 do
    begin
     DataSource1.DataSet.FieldByName(labels[i].Caption).AsString:=edits[i].Text;
     i:=i+1;
    end;
  DataSource1.DataSet.Post;