如何判断一个SQL Server 表中的指定列是否为标识列, 即自增长列? (Delphi代码实现，不要SQL脚本)

Question

请教: 如何判断一个SQL Server 表中的指定列是否为标识列, 即自增长列? (Delphi代码实现，不要SQL脚本)
多谢！

Answer 1

在sqlserver端写个函数或存储过程，然后delphi调用函数或过程，这样行不？
create function hyc(@tbl varchar(100))
returns varchar(100)
as
begin
declare @ret varchar(100)
select @ret=name from syscolumns where id=object_id(@tbl)
and status=0x80
return @ret
end
delphi:
var S:string;
begin
   S:='Select dbo.hyc(''Table_name'')';
   ...
   ...
   ...
   Qry.SQL.add(S);
   Qry.SQL.open;
   ...
   ...
end;