DBEditで数値のカンマ編集 (ID:23031)

名前

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

本文 Field の OnGetText, OnSetText あたりで、なんとかできます。 データセットを開いた後、 Dataset.Fields[1].OnGetText := OnGetText; Dataset.Fields[1].OnSetText := OnSetText; procedure TForm1.OnGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin Text := Format('%0.0n', [Sender.AsDouble]); //Sender.AsInteger * 1.0 のほうがいいのか？ end; procedure TForm1.OnSetText(Sender: TField; const Text: String); begin //Textから「,」を削り取って数値化 Sender.AsInteger := てきとうな関数？(Text); end; 記憶を頼りにしたのでちょっと曖昧ですが、こんな感じです。