16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル
"RE:eval:関数電卓つきグリッド(300行)"
この発言は #00561 熊谷秀武 さんのeval:関数電卓つきグリッド(300行) に対するコメントです
》 静的項目を作って、OnSetText イベントに次のように記述すると関数電卓
付
》きのDBグリッドやDBエディットになります。
procedure TForm1.Table1MIN_SALARYSetText(Sender: TField;
const Text: String);
begin
Sender.asFloat := eval(text);
end;
これだけでは ValidChars でキー入力がはねられてしまうので、デルファイ
2以降であれば、事前に静的項目の ValidChars に次のようにセットしておけ
ばよさそうです。(Satobe さん ありがとうございました)。
Table1MIN_SALARY.ValidChars := [#0..#255];
デルファイ1ではちと、難しそう。
−−
デルファイ2以降なら Power も標準のものが使えるでしょう。(らせん企
画の佐々木さん ありがとうございました)。
98/6/12(Fri) GGB03124 熊谷秀武
Original document by 熊谷秀武 氏 ID:(GGB03124)
ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。
Copyright 1996-2002 Delphi Users' Forum
|