【搞定】有关Variant类型的代码问题，急.

shiyg

procedure FillCDS(T, F: TDataSet;KeyFields: string;ikeyCount : integer);
var
  LocateVariant: Variant;
  j: integer;
begin
  LocateVariant := VarArrayCreate([0, iKeyCount - 1], varVariant);
  F.First;
  while not F.Eof do
  begin
    with T do
    begin
      for j := 0 to iKeyCount - 1 do
        LocateVariant[j] := F.Fields[j].Value;
最后一行有什么问题吗？x3提示[错误]: Missing operator or semicolon

shiyg

帖子沉了，顶一下

lixy

unit MainForm;

interface

uses
  Business.System, Business.Forms;

type
varArrs = Array of variant;

  TMainForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TMainForm.Button1Click(Sender: TObject);
var
  LocateVariant: varArrs;
  j: integer;
begin
     LocateVariant := varArrs (Business.System.Variants.VarArrayCreate([0, 5], Business.System.System_.varVariant));
      for j := 0 to 6 - 1 do
        LocateVariant[j] :=j;
     button1.Caption:= objecthelper.ToString( LocateVariant[3]);

end;
end.

lixy

楼主请回馈

shiyg

ok搞定了，谢谢：）