我現在都是在 TTable 或 TSql 元件按滑鼠右鍵, 選擇 Add All Fields 方式， 去增加所有的 TField,然後再去我要的欄位(例如 Price )設定 EditMask。 我如果只有單純的增加一個 TField (Price )，那其他的 Field 就無法使用了。 有沒有辦法動態方式去設定 Price 這個欄位，讓他在DBEdit上顯示 32.00 這 樣的格式?? (沒有設定的話，他會顯示 32.0123243556這樣的數據)

Hi 海星,    試試

procedure TForm1.Button7Click(Sender: TObject);
begin
  TFloatField(Query1.FieldByName('Price')).DisplayFormat := '#0.00';
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: Hi 海星, 試試

procedure TForm1.Button7Click(Sender: TObject);
begin
  TFloatField(Query1.FieldByName('Price')).DisplayFormat := '#0.00';
end;

< face="Verdana, Arial, Helvetica"> 這個方式我早上就有試過了，我是放在 TQuery 的 AfterOpen 事件裡面， 不過好像沒有效，我看到的數據依然是浮點位數一大串. 發表人 - 海星 於 2004/11/04 13:46:45

Hi 海星,    怪哉！我在 Delphi 中測試一切正常啊

procedure TForm1.Query1AfterOpen(DataSet: TDataSet);
begin
  TFloatField(DataSet.FieldByName('Price')).DisplayFormat := '#0.00';
end;

你的 Price 欄位是 TFloatField !? ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

我有進一步的發現了!!如果你的價錢是比一元還大，那顯示就不會出問題， 但是價錢比一元還小，那就會出問題了. 所以..我的問題還沒解決..嗚嗚嗚  原始碼如下: < class="code"> void __fastcall TDM::QGoodsAfterOpen(TDataSet *DataSet) { TFloatField( QGoods->FieldByName("Price")).DisplayFormat = "#0.00"; } 圖片說明. 發表人 - 海星 於 2004/11/08 09:25:37

Hi 海星,    這幾篇討論你參考一下    http://delphi.ktop.com.tw/topic.php?topic_id=19440 http://delphi.ktop.com.tw/topic.php?topic_id=46584 看看是否有幫助！ ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: Hi 海星, 這幾篇討論你參考一下 http://delphi.ktop.com.tw/topic.php?topic_id=19440 http://delphi.ktop.com.tw/topic.php?topic_id=46584 看看是否有幫助！ < face="Verdana, Arial, Helvetica"> 我剛有去看過了..這兩個例子都是使用 BDE，不過我的資料庫是使用 Mysql, 完全沒透過 BDE 跟 ODBE，所以沒有 ENABLE BCD 這個屬性可以使用. 目前唯一能完全解決的方案是在設計時期 Add All Fields 這種是最爛的方法，卻又是讓顯示可以正常的方案， 不過我不大喜歡用，因為這樣的話 TQurty 就必須放很多個， 如果不需要預先 Add All Fields 這個方式，我在做查詢時，就可以只取出 我要的欄位就好，也就是在執行階段，更改 SQL 的內容，來讓資料量傳輸量 變小.