...
var
sl: TStrings;
begin
sl:= Tstringlist
.
Create;
Table
GetFieldNames(sl);
if
sl
IndexOf(
'FieldName'
) >
0
then
..
// есть в таблице поле FieldName
else
// нету такого поля
Free;
end
;
Я не понял Вашего вопроса, но всё же Вам на него отвечу!