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('');

  cList.Add('原材料');

  SetLength(cRec,cList.Count);

  for I :=  to cList.Count- do

    begin

      cText:=cList.Strings[i];

      cRec[i+].VVariant:=Addr(cText);

    end;

 // FDQuery1.AppendRecord(cRec);

end;

XE10后发生了一些变成，不知是什么原因原来的代码不可以用了。改了一下代码。

procedure TForm3.SpeedButton1Click(Sender: TObject);

var

  cList:TStringList;

  cRec:array of TVarRec;

  i:Integer;

begin

  if not  FDMemTable1.Exists then  FDMemTable1.CreateDataSet;

  cList:=TStringList.Create;

  cList.Add('');

  cList.Add('原材料');

  SetLength(cRec,cList.Count);

  for I :=  to cList.Count- do

    begin

      cRec[i].VAnsiString:=Pointer(cList.Strings[i]);

      cRec[i].VType:=;

    end;

  cList.Free;

  Self.FDMemTable1.AppendRecord(cRec);

end;

巴特西

array of TVarRec 动态数组使用

最新文章

热门文章