delphi 判断有关问题~

delphi 判断问题~！？
我在VB 里程序是这样的~
If Text8.Text = "6.5" Then
Text16 = "0.260"
Label36 = "1"
ElseIf Text8.Text = "8" Then
Text16 = "0.395"
Label36 = "2"
ElseIf Text8.Text = "Φ10" Then
Text16 = "0.617"
Label36 = "3"
ElseIf Text8.Text = "Φ12" Then
Text16 = "0.888"
Label36 = "4"
ElseIf Text8.Text = "Φ14" Then
Text16 = "1.210"

在delphi 里怎么写？
if ComboBox1.Text='6.5' then
label4.Caption:='0.260'
label5.Caption:='01' //加上这句就出错，不加可以运行~，搞不懂~ 请高手指点？
else if ComboBox1.Text='8' then
label4.Caption:='0.395'
else if ComboBox1.Text='10' then
label4.Caption:='0.617'
else if ComboBox1.Text='12' then
label4.Caption:='0.888'
else if ComboBox1.Text='14' then
label4.Caption:='1.210'

[解决办法]

探讨
Delphi(Pascal) code
if ComboBox1.Text='6.5' then
begin
label4.Caption:='0.260';
label5.Caption:='01' ;//加上这句就出错，不加可以运行~，搞不懂~ 请高手指点？
end
else if ComboBox1.Text='8' then
label4.Caption:='0.395'
……

delphi 判断有关问题~

热点推荐