With this code:
procedure SortBufDataSet(DataSet: TBufDataSet; const FieldName: string);
var
  Index_Name: string;
begin
  Index_Name := FieldName + '__IdxA';
  if (DataSet.IndexDefs.Find(Index_Name)Nil) then
...
the last line throws an exception if the index does not exist;
corresponding db.pas code:
function TIndexDefs.Find(const IndexName: string): TIndexDef;
begin
  Result := (inherited Find(IndexName)) as TIndexDef;
  if (Result=Nil) Then
    DatabaseErrorFmt(SIndexNotFound, [IndexName], FDataSet);
end;

However, the documentation states:
Find...returns Nil if no matching index definition was found.

Not a Delphi guy - should the implementation or the documentation be fixed?

Thanks,
Reinier

I'll have a look tomorrow.
Normally, the (unwritten) convention is that 'Find' returns nil. 'Get' raises an exception.

Michael.

Reinier Olislagers wrote / napísal(a):

Delphi documentation says, that exception is raised http://docwiki.embarcadero.com/Libraries/XE2/en/Data.DB.TIndexDefs.Find

May be, that IndexOf can be used to find index without raising exception. -Laco.