array of TVarRec 动态数组使用

FDQuery.AppendRecord()里是一个array of TVarRec。我们一般都是直接用[Var1,Var2,...]。这样手工输入，但如果增加的元素我们预先不知道，就要声明一个array of TVarRec的动态数组，然后赋值了。我一直找不到方面，经QDAC的作者指点。做了以下实例：

procedure TForm1.btn1Click(Sender: TObject);var  cSQL:string;  cList:TStringList;  cRec:array of TVarRec;  cText:Variant;  i:Integer;begin  cList:=TStringList.Create;  cList.Add('01001');  cList.Add('原材料');  SetLength(cRec,cList.Count);  for I := 0 to cList.Count-1 do    begin      cText:=cList.Strings[i];      cRec[i+1].VVariant:=Addr(cText);    end; // FDQuery1.AppendRecord(cRec);end;