delphi 設計多個edit進行計算時出現的問題,求解!

2025-06-02 04:20:20 字數 1159 閱讀 3161

1樓:邦淺魔千

procedure button1click(sender: tobject);

beginif '%then ms:=strtoint(else if '元' then ms:=strtoint(else showmessage('請選擇單位');

hzs:=strtoint(;

sys:=strtoint(;

dp:=strtoint(;

sj:=strtoint(;

cb:=ms+hzs+sys+dp+sj;

flaottostr(cb);

end;//將畢扒櫻上邊那個end 移動到這,手叢加上分號。

end. /注意這個end. 應該是這個單元裡最後的那個end至於if else

這個和vb裡的是不一樣的,不要end,如果你要加end,則需要加begin end;這兩個是配對使此仿用。

if x=1 then

beginy=100

end else if x=2 then

beginy=200

endelse y=1000

end//這個是不要的,y=1000;加分號。

如果你要要後邊這個end,則這樣。

if x=1 then

beginy=100;

end else if x=2 then

beginy=200;

endelse

beginy=1000;

end;不要end的**如下。

if x=1 then

y=100 //如果這裡有多條語句,則必須要begin endelse if x=2 then

y=200else

y=1000;//最後乙個有分號,

2樓:網友

edit1的值而且 edit2-6不能小租沒於0 還有襪襪個問題就是當edit的值為空就會報#0; end; /告型激這裡是計算部分 procedure : tobject)

3樓:網友

你手寫的**錯誤很多,看的我很糾結,簡彎猛能把你鬧辯在程式裡面的**考乙份嗎?

還有就是提示報的是什麼錯誤。

底下那個if else的問題攔橋,如果條件語句中只有一行**執行,則可以不用begin end,否則必須要用的。

網頁設計高手進基礎問題, 求助 網頁設計高手進 基礎問題

這叫廠形佈局嗎?用框架是比較簡單的,但是不靈活。用div css js就可以搞定,左邊一個大層放標題,右邊一個大層放每個標題對應的內容 兩個大層都設定浮動屬性 float left 每個內容用一個小層裝著,設定第一個小層的display屬性為block 其它小層都設定為none 通過js控制,當點選...

大設計院跳去小設計院,怎麼進設計院

這個倒也沒有必要擔心,小設計院是這樣的,你可能要比以前多做一些事情,不過不會也沒有關係,活到老學到老,大院分工細,都是熟練作業,畢竟你越熟練對公司越好,所以基本都是叫你做呢最熟悉的,小院的話,人可能沒有那麼多,什麼工程來了做什麼,什麼急做什麼,其實這也是好事,你接觸到以前你接觸不到的東西,對個人發展...

茶葉包裝的問題設計達人進

一般正常的茶葉包裝是裱糊紙盒內附鋁箔包裝,如果你是要設計木盒或者鐵盒,則要麻煩一些,裱糊紙盒可以通過自己做盒子外面貼數碼快印的銅版紙來達到效果,木包裝盒在 上買得到,不算貴,二十左右能買到,不過木盒上的花紋需要自己拿到絲印的店裡進行絲印logo和圖案 就是一般製作噴繪橫幅的美工店,做一個估計收你30...