下面这段vb语句怎么改为delphi，虽然不完整小弟我就是想学学delphi中case语句的用法

下面这段vb语句如何改为delphi，虽然不完整我就是想学学delphi中case语句的用法。
If NumFeeds > 0 Then
   
  For d = 1 To NumFeeds
   
  Select Case .Name
  Case "Ca"
  .Supplied = .Supplied + ((Feed(d).Ca / 100) * Feed(d).DMFed)
   
  If AnimalType <> "Young Calf" Then
  .Absorbable = .Absorbable + (((Feed(d).Ca / 100) * Feed(d).DMFed) * (Feed(d).CaBio))
  Else
  .Absorbable = .Absorbable + ((Feed(d).Ca / 100) * Feed(d).DMFed)
  End If
   
  Case "Mg"
  .Supplied = .Supplied + ((Feed(d).Mg / 100) * Feed(d).DMFed)
   
  If AnimalType <> "Young Calf" Then
  .Absorbable = .Absorbable + (((Feed(d).Mg / 100) * Feed(d).DMFed) * (Feed(d).MgBio))
  Else
  .Absorbable = .Absorbable + ((Feed(d).Mg / 100) * Feed(d).DMFed)
  End If
   


[解决办法]
字符串 用 if 来吧.. delphi case 要整数型.
[解决办法]
delphi中的case不能用于字符串的判断，所能你只能用

法...then
else if... then
else
这样的语句
[解决办法]
枚举类型也可以用在case里
[解决办法]
delphi xe2 版本也可以用字符串了
[解决办法]
case integer when
0:begin end;
1:begin end;
这样，只能integer
要用字符串要想办法转换
[解决办法]

探讨

case integer when
0:begin end;
1:begin end;
这样，只能integer
要用字符串要想办法转换

[解决办法]
用IF ELSEIF就行了...

写程序别纠结用那个方法, 能完成任务就成了.
[解决办法]
case是多分支语句
case integer when
0:begin end;
1:begin end;
这样，只能integer
要用字符串要想办法转换
[解决办法]
该说大家都说了，你结帖吧，做人要厚道

查看更多 下一篇