数组定位的问题，谢谢！

━━━━━━━━━━━━━━━━━━━━━  
首部  function AnsiMatchText(const AText: string; const AValues: array of string): Boolean; $[StrUtils.pas
功能  返回字符串数组AValues中是否包含字符串AText
说明  不区分大小写
参考  function StrUtils.AnsiIndexText
例子  CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);
━━━━━━━━━━━━━━━━━━━━━  
首部  function AnsiIndexText(const AText: string; const AValues: array of string): Integer; $[StrUtils.pas
功能  返回字符串AText在字符串数组AValues中的位置
说明  不区分大小写;如果不包含则返回-1
参考  function SysUtils.AnsiSameText
例子  SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);
━━━━━━━━━━━━━━━━━━━━━