query以后如何得到数据库纪录如何写入listview的问题！在线！急(50分)

给你标准写法:
VAR str1:string;
begin
Query1.Close;
Query1.SQL.Clear;
str1:=format('select %s,%s,%s from %s where %s=1 group by %s ',[s1,s2,s3,s4,s5,s6]);
//若不能返回查询结果,请检查此处!
Query1.Prepare;
Query1.open;//一定要用open!!!;检查查询结果,若正常则是下面的问题!
lt.Caption:=query1.fieldbyname('a1').asstring;//查询后才能赋值!若查询没问题,请检查it对象实例是否创建了!
end;

爽了吧?!!???[]

明天回公司试试！今天没有环境可以测试了！太高兴了，好人多啊！
这个题目本来应该给100的！

你用
fields[0].asstring 代替 fieldbyname('字段1').asstring
fields[1].asstring 代替 fieldbyname('字段2').asstring
fields[2].asstring 代替 fieldbyname('字段3').asstring
.....
试试

委屈大家了！下次一定给多点！

[]忘记点 [blue]接受答案，并分配积分[/blue] 了 再来