FormatCurr関数

解決

Kikumi 2003-01-30 10:57:53 No: 2721 IP: 192.*.*.*

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 11:50:28 No: 2722 IP: 192.*.*.*

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

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

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

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

編集削除

Kikumi 2003-01-30 15:21:46 No: 2723 IP: 192.*.*.*

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

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

編集削除