请问下面的有代码有什么不对！

Question

各位好，我在判断数据库有相同的字段，采用下面的方法，但不对，请问能有更好的
方法吗？谢谢！function TadduserF.checkpactno(telphone:string):boolean;
begin   try
    ADOQuery1.Close;
    ADOQuery1.SQL.Add('select telphone from telphone where telphone=:telphone ');
     ADOQuery1.FieldByName('telphone').AsString;
    ADOQuery1.Open;    if not ADOQuery1.Eof then
         result :=false
         else
         result :=true;
     ADOQuery1.Close;
     ADOQuery1.Free;    except
     result:=false;
    end;

Answer 1

ADOQuery1.FieldByName('telphone').AsString;??这条语句什么意思？
ADOQuery1.SQL.Add('select * from telphone where telphone=telphone ');

Answer 2

那是我设置的一个全局变量：
  var
  telphone :string;

Answer 3

ADOQuery1.FieldByName('telphone').AsString;??是不是应该先sql.clear?    ADOQuery1 := TADOQuery.Create(nil);
    ADOQuery1.SQL.Add('select Count(*) as Count from telphone where telphone=:telphone ');
    ADOQuery.Open;
    if ADOQuery1.FieldsByName('Count').asinteger > 0 then
      Result := True
    else
      Result:= false;
    ADOQuery1.Close;
    ADOQuery1.Free;

Answer 4

ADOQuery1.FieldByName('telphone').AsString;=telphone;

Answer 5

var StringList: TStringList;
begin
ADOConnection1.GetFieldNames(表名,StringList);
if StringList.IndexOf(字段名)>0 then
   showmessage('有字段名')
 else
   showmessage('无字段名');

Answer 6

应该这样
function TadduserF.checkpactno(telphone:string):boolean;
begin   try
    ADOQuery1.Close;
    adoquery1.sql.clear;
    ADOQuery1.SQL.Add('select telphone from telphone where telphone=:a ');
       ADOQuery1.Parameters.ParamByName('a').value:=telphone;
// 或 ADOQuery1.Parameters.ParamByName('a').asstring:=telphone;   ADOQuery1.Open;    if not ADOQuery1.Eof then
         result :=false
         else
         result :=true;
     ADOQuery1.Close;
     ADOQuery1.Free;    except
     result:=false;
    end;