Var
  AA:String;
begin
  AA:= Formatfloat('0.00',1.1);
  Showmessage(aa) ;

引言: Hi: 還有一個方式，直接在 DataSet 的欄位中定義該欄位 DisplayFormat 為 0.00 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 -------------------------------- < face="Verdana, Arial, Helvetica"> 好像ADO才有DisplayFormat如果你要秀在dbgrid裡面 還是DisplayFormat比較方便 BDE的話我就不知道該怎ㄇ處理，若一定要用BDE只好請其他高手幫忙 sql的table就如你設定的阿[decimal](28, 2) 不過需要那ㄇ多位數ㄇ ~~應無所住而生其心~~ 發表人 - Terrychen 於 2004/01/17 14:51:51

引言: 您好：

Var
  AA:String;
begin
  AA:= Formatfloat('0.00',1.1);
  Showmessage(aa) ;

~~應無所住而生其心~~

Var
  AA:String;
begin
  AA:= Formatfloat('0.##',1.1);
  Showmessage(aa) ;

引言: 好像ADO才有DisplayFormat如果你要秀在dbgrid裡面 還是DisplayFormat比較方便 BDE的話我就不知道該怎ㄇ處理，若一定要用BDE只好請其他高手幫忙 sql的table就如你設定的阿[decimal](28, 2) 不過需要那ㄇ多位數ㄇ ~~應無所住而生其心~~ 發表人 - Terrychen 於 2004/01/17 14:51:51

引言: 還有一招,用滑鼠dblclick dataset元件(不管是bde或是ado),在欄位檢視器裡面選擇該筆欄位(如果沒有請按滑鼠右鍵 add all fields),在該筆欄位的ongettext事件,寫程式碼設定,這樣也可以達成你的目的...

    Var
  AA:String;
begin
  AA:= Formatfloat('0.00',1.1);
  Showmessage(aa) ;    

procedure TForm1.Query1sale_numGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text:= formatfloat('0.00',query1.fieldbyname('sale_num').AsInteger);
end;