請問一下喔～ 我用十個0~9的button，和一個edit 在button裡面的程式碼，我是寫edit.text:='1'; 可是當我在執行時，按1，在edit顯示出來的，只可以出現一個1，不能出現很多個1，這是為什麼呢@@? 還有，我要怎麼做加的運算呢?因為只有一個edit，我不曉得該怎麼做>< 麻煩大家幫幫我....謝謝喔

您好！您在button的事件裏面寫的只是edit.text:='1';當然按下一次的時候edit裏面的值又被重新賦值為1了所以不能出現很多1。 procedure TForm1.Button1Click(Sender: TObject); begin if (Edit1.Text='') then edit1.Text:='1' end else Edit1.Text:=Edit1.Text '1'; end; 做加運算的時候，可以先聲明全局變量， var OldVal,NewVal:real; 你可以在一個' '的button裏面寫: procedure TForm1.Button2Click(Sender: TObject); begin OldVal:=StrToFloat(edit1.text); edit1.clear; end; '='的button裏面寫： procedure TForm1.Button3Click(Sender: TObject); begin NewVal:=StrToFloat(edit1.text); edit1.text:=FloatToStr(OldVal NewVal); end; 以上方法參考一下，沒有調試。 發表人 - oktony 於 2005/07/19 14:59:23

謝謝喔~ 你的方法可以用了，可是因為你有寫 edit1.clear; 所以執行時，edit上面不能出現"3 9"的畫面~ 我想要執行的時候，edit上面能出現這樣的畫面~ 另外，你的: edshow.text:=FloatToStr(oldvalue newvalue) 加法是寫在"等於裡面" 那萬一是減、乘、除，要怎麼知道是跑 還是-還是*還是除呢?? 麻煩你了喔~謝謝

yingfan28 您好:做小算盘,站内有很多既成的实例可供参考: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=42077 http://delphi.ktop.com.tw/topic.php?topic_id=22859 有完整的代码可供参照来写 另您可利用查找功能,查找关键字:计算器或小算盘等 <> ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

您好，您可以再設置一個全局變量呀，比如按下加，減，乘，除可以分別讓這個全局變量等於1，2，3，4，然後在'='號的事件中再根據這個變量來判斷就可以了。 我的辦法比較笨吧呵呵，您可以參照deity兄提供的鏈接找到更好的辦法吧！

謝謝大家喔～ deity提供的網址我有去看了～可是它的寫法比較複雜，我比較看不懂>< 我只會用比較普通的寫法寫而已@@ 總之，謝謝大家喔，我在試看看

請問一下～ 我設兩個變數～oldvalue和newvalue，可是只能做１＋２ 卻不能做１＋２＋３～我該怎麼做呢＠＠

可以在一個' '的button裏面寫: procedure TForm1.Button2Click(Sender: TObject); begin OldVal:=StrToFloat(edit1.text); edit1.clear; end; 請問依下為何OldVal:=StrToFloat(edit1.text); 可以做加法 那如果減法 乘 除法ㄋ