var
I : Integer;
bFlag : Boolean;
begin
bFlag := False;
with ADOQuery1 do
begin
Close;
SQL.Text := 'SELECT * FROM Table';
Open;
for I := 0 to Fields.Count - 1 do
begin
if '字段名' = Fields[I].FieldName then
begin
bFlag := True;
Break;
end else Continue;
end;
end;