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...