array of TVarRec 动态数组使用

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;