Question

delphi7 edit1，edit2，edit3输入自然数后,label1要显示“10×60×3“格式

edit1，edit2，edit3输入自然数后,label1要显示“10×60×3“

label1.Caption:=IntToStr((strtoint(edit1.Text)-88)div 2+20)+'×'label2.Caption:=IntToStr((strtoint(edit2.Text)-88)div 2+20-44)+'בlabel1.Caption:=IntToStr((strtoint(edit3.Text)-88)div 2+20)这样怎么不行呢，请高手指教

Answer 1

一周年：纸婚
二周年：棉婚
三周年：皮婚、皮革婚
四周年：毅婚、花果婚
五周年：木婚
六周年：铁婚、糖婚
七周年：铜婚、毛婚
八周年：陶器婚、铜婚
九周年：柳婚、陶婚
十周年：锡婚
十一周年：钢婚
十二周年：绕仁婚、丝婚
十三周年：花边婚
十四周年：象牙婚
十五周年：水晶婚
二十周年：搪瓷婚、磁婚
二十五周年：银婚
三十周年：珠婚、珍珠婚
三十五周年：珊瑚婚
四十周年：红宝石婚
四十五周年：蓝宝石婚、青玉婚
五十周年：金婚
五十五周年：翡翠婚
六十周年：钻石婚、金钢钻婚
七十周年：白金婚
七十五周年：钻石婚

【可能有点乱，但还算蛮全的，愿对你有用！
——by田】

Answer 2

label1.Caption:=IntToStr((strtoint(edit1.Text)-88)div 2+20) + '×' + IntToStr((strtoint(edit2.Text)-88)div 2+20-44) + 'ב + IntToStr((strtoint(edit3.Text)-88)div 2+20);

Answer 3

label1要显示“10×60×3“

跟你下面的代码有什麽关系