我想完成一个if大于6小于9为合格的程序
if (i<6) or (i<9)；
stringgrid1.cells[j+2，i]:='合格'
else
stringgrid1.cells[j+2，i]:='不合格'
我想问问你第一句哪里错了，改怎么写
另外
for i := 1 to ADOQuery2.RecordCount do
begin
for j := 0 to ADOQuery2.FieldCount - 1 do
begin
StringGrid1.Cells[j
+3
,i]:=ADOQuery2.Fields.Fields[j].AsString;
StringGrid1.Cells[j+1,i]:='线路扭曲'
//advstringgrid1.HideColumn(1);
end;
ADOQuery2.Next;
end;还有这个我想实现i从1到最大，应该加一个什么程序

不懂额，弱弱的问一句，i到底是小于6还是小于9，j的定义呢

IF后面要一个括号把条件都括起来

if ( (i>6) and (i<9) ) then
stringgrid1.cells[j+2，i]:='合格' ;
else
stringgrid1.cells[j+2，i]:='不合格' ;

楼主要大于6，自己写代码小于6了。