線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:919
推到 Plurk!
推到 Facebook!

小算盤相關問題

答題得分者是:P.D.
stu904022
一般會員


發表:2
回覆:1
積分:0
註冊:2012-03-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-03-21 04:10:43 IP:203.64.xxx.xxx 訂閱

intX :double;

procedure TForm1.btnx7Click(Sender: TObject);
begin
intX := 7;
if strShow = '0' then
strShow := floatToStr(intX)
else
strShow:= floatToStr(intX) strShow;
edit1.text := strShow;
end;

這是我小算盤數字鍵的程式
edit新按的數字會加在原顯示的數字的前面

ex
正確
原數字1
按2 →12
錯誤
原數字1
按2 →21


P.D.
版主


發表:571
回覆:3887
積分:3677
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-03-21 18:27:32 IP:123.240.xxx.xxx 未訂閱
完全看不懂你定義 inx:=7 的目的, 也看不懂你寫的code
給你一個參考吧
procedure TForm1.btnx7Click(Sender: TObject);
var intx: double;
begin
try
intx:= StrtoIntDef(btnx7.caption,0);
if intx=0 then edit1.text:= '7'
else edit1.text:= edit1.text btnx7.caption;
except
end;
end;

===================引 用 stu904022 文 章===================

intX :double;

procedure TForm1.btnx7Click(Sender: TObject);
begin
intX := 7;
if strShow = '0' then
strShow := floatToStr(intX)
else
strShow:= floatToStr(intX) strShow;
edit1.text := strShow;
end;

這是我小算盤數字鍵的程式
edit新按的數字會加在原顯示的數字的前面

ex
正確
原數字1
按2 →12
錯誤
原數字1
按2 →21


系統時間:2017-12-12 8:38:53
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!