EDIT框中计算功能的实现

發文回覆瀏覽次數：712

推到 Plurk!

推到 Facebook!

答題得分者是：h@visli

ntjrr
高階會員

發表：240
回覆：312
積分：110
註冊：2005-04-24

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-09-17 17:39:39

IP:222.184.xxx.xxx 未訂閱

如图所示：

如何能实现如下功能：在优惠后金额中填入某数字后，自动算出优惠比例，如果填入的是优惠比例，那么自动算出优惠后的金额。

------
我的编程起步于ktop，我将永远支持ktop

h@visli
資深會員

發表：103
回覆：429
積分：431
註冊：2004-02-13

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-09-17 22:53:28

IP:222.248.xxx.xxx 未訂閱

假設從上至下使用Edit1、Edit2和Edit3作輸入框可以在Edit2與Edit3組件的OnKeyPress事件中完成或在OnExit事件中實現。如：

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #13) and (Edit2.Text <> '') then
    Edit3.Text := Format('%.2f', [StrToFloat(Edit2.Text) / StrToFloat(Edit1.Text) * 100]);
end;    procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #13) and (Edit3.Text <> '') then
    Edit2.Text := Format('%.2f', [StrToFloat(Edit1.Text) * (StrToFloat(Edit3.Text) / 100)]);
end;

---------------------------- 於Delphi K.Top之上博采眾家之長, 奉獻綿薄之力 --------------------------- 發表人 - h@visli 於 2005/09/17 23:03:24

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

系統時間：2024-07-05 1:18:10

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！

EDIT框中&#35745;算功能的&#23454;&#29616;

EDIT框中计算功能的实现