如何删除警告W1000 Symbol＆＃39; AnsiIndexText＆＃39;在delphi 2006中已弃用

Question

如何删除警告W1000符号＆＃39; AnsiIndexText＆＃39;在delphi 2006中已弃用以下代码

StartName : string;
case AnsiIndexText(StartName, ['FSB2', 'FSB3', 'FSB4', 'FSB7']) of 0,1,2,3:

Answer 1

将AnsiIndexText替换为IndexText