又一个比较容易得分的问题。（在线等待）

Question

在以下程序段中：
var
NewTableName:String;
AllTables:Tstrings;
a:integer;
begin
  try
    AllTables := TstringList.Create;
    connMain.GetTableNames(AllTables,False);//connMain是一个TSQLConnection实例,
　　　　　　　　　　　　　　　　　　　　　　//目的用于提取数据库中所有表名并存入AllTables
    NewTableName:=trim(InputBox('新建表','请输入新表的名称:',''));
　　　　　　　　　　　　　　　　　　　　　　//用于输入一个表名
    a:=alltables.IndexofName(NewTableName);
　　　　　　　　　　　　　　　　　　　　　　//查找输入的表名在alltables中的位置，
.........但是程序没有达到预期的目标，无论输入的表名是否存在，a均等于-1。请问这是为什么？？？

Answer 1

to ： delphi_han(呵呵) 
应该不为空。
因为我用：
lbTables.items:=AllTables;
语句就能将库中所有的表名加入到lbTables(一个Listbox实例）。

Answer 2

可能区分大小写吧，用都化成大写的试下，再换成小写的试下
要不用ANSYCOMPARETEXT来比较一下lbTables中的每个值和和INPUT输入 的值 是否相等，

Answer 3

用错了吧， 应该是Indexof而不是IndexOfName