如何利用QUERY组件得到数据库中某一值？

Question

如何利用QUERY组件得到数据库中某一值？
比如：
Edit1.text:=.....
谢谢了。

Answer 1

edit1.text:=query1.fieldByName('...').value;

Answer 2

query1.sql.clear;
query1.sql.add('select table_id from table_name ');
if not query1.prepared then query1.prepare
querry1.open;
if not query1.IsEmpty then
  Edit1.Text:=query1.FieldByName('table_id').AsStrin;
query1.close;

Answer 3

with query1 do
begin
  close;
  sql.clear;
  sql.text := 'select * from tablename where ..';
  open;
  edit1.text := fieldbyname('fieldname').asstring;
end;