帮忙指出错误

[datree]

代码如下：
//选取标准圆角半径
function biaozhunyuanjiao(R:real):real;
var
min1,max1,t:real;
begin
ADOConnection1.open;
ADOQuery1.Connection:=ADOConnection1;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT min, max FROM yuanjiaobiaozhun where R between min and max');
ADOQuery1.Open;
min1:= ADOQuery1.fields[min].value;
max1:= ADOQuery1.fields[max].value;
t:=(min1+max1)/2;
if R>=t then
biaozhunyuanjiao:=max1
else
biaozhunyuanjiao:=min1;
end;
主要报错：Undeclared identifier 'ADOconnection' 和Missing operator or simicolon
谢谢！

[kernelj]

ADOconnection 没有声明,搜索代码中的 ADOconnection 然后改为 ADOconnection1

[xinmeng08]

ADOconnection这个没定义阿，是不是把ADOconnection1，这里忘记了这个“1”，自己查查看，你贴出来的代码中没看到这个问题

[datree]

主要报错：Undeclared identifier 'ADOconnection1' 和Missing operator or simicolon
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
已经声明了的

[7年]

if R>=t then
begin//没写
biaozhunyuanjiao:=max1
else
biaozhunyuanjiao:=min1;
end;
还有ADOConnection1应该在另一个界面里，引用下那个界面。

[xmfan2000]

ADOConnection没有声明，把ADOConnection1改成ADOConnection

[jadeluo]

min1:= ADOQuery1.fields[min].value;
max1:= ADOQuery1.fields[max].value;
这两行有问题, 按Fields属性(TFields类)的要求, min和max应该是两个整数类型的常量或者变量, 在代码中未见这两个标识符在何处进行了申明。

建议修改成：
min1:= ADOQuery1.FieldByName('min').Value;
max1:= ADOQuery1.FieldByName('max').Value;

[datree]

知道是什么原因了
ADOQuery要加前缀Form1

谢谢各位的回答

[datree]

[Quote=引用 6 楼 jadeluo 的回复:]
min1:= ADOQuery1.fields[min].value;
max1:= ADOQuery1.fields[max].value;
这两行有问题, 按Fields属性(TFields类)的要求, min和max应该是两个整数类型的常量或者变量, 在代码中未见这两个标识符在何处进行了申明。

建议修改成：
min1:= ADOQuery1.FieldByName('min').Value;
max1:= ADOQuery1.FieldByName('max').Value;
[/Quote]

不错，学习了！

[阿三]

解决了就结贴吧，呵