各位告诉我怎样判断一个索引是否存在

[25475360]

我想用鼠标在列标题上按下时按本列排序可是我的这种错误是不对的.

我想:
1,先建好索引,敲列标题时再判断这个字段名的索引是否存在.
2.不管这前是否有索引,若没有时则新建索引
请大侠们帮我做出这段程序.
先谢了

procedure TGPDMForm.DBGrid1TitleClick(Column: TColumn);
var
I: Integer;
begin
if column<>nil then
begin
with Table1 do
begin
for I := 0 to IndexFieldCount - 1 do
begin
if column.FieldName=IndexFields[I].FieldName then
begin
table1.IndexFieldNames:=column.FieldName;
break;
end;
end;
end;
end;
end;

[25475360]

这是一个DELPHI问题

[25475360]

怎么大家对DELPHI不感冒？

[weizhi]

呵呵,我建议你用Query,然后使用Sql来完成
如:select * from ATab order by colName
你可以在单击后以新的ColName构造SQL语句,然后将Query重新打开一次