FieldのDisplayFormatを有効にするには? (ID:39891)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつもお世話になっております。 Delphi2010+XP SP3で開発しております。 Queryコンポーネントの項目の追加でDisplayFormatが設定できるのですが プロパティ等の設定をなるべくプログラム内で行いたいので、 色々と調べながら以下のプログラムを作成したのですがDisplayFormatが どうしても有効になりません。 何か足りない設定や処理があるのかもしれませんので、どなたか分かる方 がいらっしゃいましたらご教授して頂けると助かります。 procedure TfrmTest.FormCreate(Sender: TObject); var TKingaku:TField; TFltKin:TFloatField; begin Query1.FieldDefs.Add('KINGAKU',ftFloat); TKingaku:= Query1.FieldDefs.Find('KINGAKU').CreateField(nil); TFltKin:=TFloatField.Create(TKingaku); TFltKin.FieldName:='KINGAKU'; TFltKin.DisplayFormat:='#,###'; Query1.Fields.Add(TFltKin); end; 本当はフィールドがいっぱいありますが、動作確認の為に１つのフィールド でテストを行っております。 金額を表示するので、カンマを入れたいです。 データベースの『KINGAKU』はフィールド名です。 以上、宜しくお願い致します。