FormatCurr関数

解決

---

DBEditの(データーはInteger型)表示形式を
カンマ区切りとするのですが・・
(1234→1,234)

Procedure Dtm1.Table1Field1GetText
(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
    Text := FormatCurr('#.###;"▲"#,###',Sender AsField1);
end;

これで、
CurrencyとTFiledには互換性がありませんのエラー・・
何かまちがっていますか？
又、DBEdit等のプロパティーで
何か簡単に設定はできないのでしょうか？

編集    削除

---

FormatCurrの第２引数はCurrencyです。
TFieldではありません。
まずは、FormatCurr関数と、TFieldクラスについてヘルプで調べてみてください。

TFieldクラスには、金額だけでなくいろいろな情報(フィールド名やサイズなど)があり、TField=金額ではありません。

> 又、DBEdit等のプロパティーで
> 何か簡単に設定はできないのでしょうか？

TFieldの基本的な使い方がわかれば、いかに簡単か解ると思います。

編集    削除

---

にしのさんレスありがとうございます。

TFieldについて勉強します。
なんとなくわかってきました。

編集    削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。