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