【结贴】[请求]类型不匹配

FBO

你断点断在field := Connection1.Meta.GetFieldList(Edit1.Text);  
一句一句看下。

zklbx

你用的X3是哪个版本？

中尉

最初由 FBO 发布
[B]你断点断在field := Connection1.Meta.GetFieldList(Edit1.Text);  
一句一句看下。 [/B]

就是在field := Connection1.Meta.GetFieldList(Edit1.Text);  报错,说类型不匹配。

中尉

版本号：3.0.6.3088

FBO

Connection1.Meta.GetFieldList(Edit1.Text)得出来的是什么

中尉

最初由 FBO 发布
[B]Connection1.Meta.GetFieldList(Edit1.Text)得出来的是什么 [/B]

编译都无法都通过，无法调试。但是把”field :=“去掉的话，写成
procedure TMainForm.Button2Click(Sender: TObject);
var
i : integer;
field : array of TFieldRec;
begin
                                     //先获取ListBox1的当前选中索引，得到表名，接着获取表的字段。
for i := low(Connection1.Meta.GetFieldList(Edit1.Text)) to 9999 do
    begin
      Memo1.Lines.Add(field.Name);
    end;
end;
编译通过

中尉

我查了Connection1.Meta.GetFieldList(Edit1.Text))函数的返回类型与field声明的是一样的。

FBO

你不要赋值给field，直接拿Connection1.Meta.GetFieldList(Edit1.Text)放进去用用看行不行

中尉

最初由 FBO 发布
[B]你不要赋值给field，直接拿Connection1.Meta.GetFieldList(Edit1.Text)放进去用用看行不行 [/B]

procedure TMainForm.Button2Click(Sender: TObject);
var
i : integer;
field : array of TFieldRec;
begin
                                     //先获取ListBox1的当前选中索引，得到表名，接着获取表的字段。
for i := low(Connection1.Meta.GetFieldList(Edit1.Text)) to high(Connection1.Meta.GetFieldList(Edit1.Text))do
    begin
      Memo1.Lines.Add(field.Name);
    end;
end;


出错：
在计算表达式的时候产生异常，类型：“Exception”，内容：

中尉

编译通过，运行到for i := low(Connection1.Meta.GetFieldList(Edit1.Text)) to high(Connection1.Meta.GetFieldList(Edit1.Text))do 报错