FormatCurr関数

解決

Kikumi 2003-01-30 19:57:53 No: 2721

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

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

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

にしの 2003-01-30 20:50:28 No: 2722

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

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

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

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

Kikumi 2003-01-31 00:21:46 No: 2723

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

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