首页 > 代码库 > array of TVarRec 动态数组使用

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;

 

array of TVarRec 动态数组使用