数据转换的问题

Question

我用ADOQuery查询一表的a列字段有唯一的值，a列的数据类型为numeric数据类型，如何把该值显示在Edit中。
      StrSQL2:='select a from 表名 where hospcode=%s';
      StrSQL2:=Format(StrSQL2,[edit1.Text]);
      form1.ADOQuery3.SQL.Add(StrSQL2);
      form1.ADOQuery3.Open;
捎带问一下在datagrid显示表的控件中如何让所有列都在框内显示出来，不用下面的滚动条。因为有些字段的长度设置的长，有很大的空白。后面无法直接显示。如何让最后一列的边限制不出控件右边框 。

Answer 1

if ADOQuery3.recordcount > -1 then
  edit1.text := ADOQuery3.Fields[0].asString;

Answer 2

edit1.text := floattostr(fieldbyname('a').asfloat);

Answer 3

可以读取某一列最长的字段的长度，动态设置列宽读取字段长度TCanvas.TextWidth(Text:String):Integer;

Answer 4

for i:=0 to Form1.DBGrid1.Columns.Count-1 do Form1.DBGrid1.Columns.Items[i].Width:=80;或
Form1.DBGrid1.Columns.Items[0].Width:=100;
Form1.DBGrid1.Columns.Items[1].Width:=200;
...