下面这段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
要用字符串要想办法转换
[解决办法]
该说大家都说了，你结帖吧，做人要厚道