delphi 中TDBEdit显示字段的格式问题????

Question

delphi 中TDBEdit显示字段的格式问题
比如TDBEdit中要显示“17.00”，但是他显示是17,请教如何能够设置显示为17.00

Answer 1

在query的字段里有个formatstring的属性

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s : String;
begin
 s:=  Format('%d.00',[17]);
 ShowMessage(s);
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject); 
var 
  s : String; 
begin 
s:=  Format('%d.00',[17]); 
ShowMessage(s); 
end;

Answer 4

在Adoquery里设置字段的DisplayFormat为0.00

Answer 5

问题是我的Adoquery中是动态的SQL语句也

Answer 6

這樣應該基本可以符合了
if TADOQuery(Self.Components[i]).Fields[j].DataType=ftfloat then
TADOQuery(Self.Components[i]).Fields[j].Displayformat:='0.00';