array of TVarRec 动态数组使用

时间：2014-12-19 21:53:59 收藏：0 阅读：342

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;