Советы по Delphi. Версия 1.4.3 от 1.1.2001

{ Вот кухня, где все это происходит. Я скопировал эту функцию из исходников VCL и затем изменил ее для использования DbiCreateInMemoryTable вместо DbiCreateTable. Поскольку InMemory-таблицы не поддерживают индексы, я удалил весь соответствующий код. }

procedure TInMemoryTable.CreateTable;

var

 I: Integer;

 pFieldDesc: pFLDDesc;

 szTblName: DBITBLNAME;

 iFields: Word;

 Dogs: pfldDesc;

begin

 CheckInactive;

 if FieldDefs.Count = 0 then for I := 0 to FieldCount - 1 do with Fields[I] do if not Calculated then FieldDefs.Add(FieldName, DataType, Size, Required);

 pFieldDesc := nil;

 SetDBFlag(dbfTable, True);

 try

  AnsiToNative(Locale, TableName, szTblName, SizeOf(szTblName) - 1);

  iFields := FieldDefs.Count;

  pFieldDesc := AllocMem(iFields * SizeOf(FLDDesc));

  for I := 0 to FieldDefs.Count - 1 do with FieldDefs[I] do

  begin

   EncodeFieldDesc(PFieldDescList(pFieldDesc)^[I], Name,DataType, Size);

  end;

  { тип драйвера nil, т.к. поля логические }

  Check(DbiTranslateRecordStructure(nil, iFields, pFieldDesc, nil, nil, pFieldDesc));

  { здесь hCursor получает свое значение }

  Check(DbiCreateInMemTable(DBHandle, szTblName, iFields, pFieldDesc, hCursor));

 finally

  if pFieldDesc <> nil then FreeMem(pFieldDesc, iFields * SizeOf(FLDDesc));

  SetDBFlag(dbfTable, False);

 end;

end;

end.

{Данный код взят из файлов помощи Ллойда!}

Поиск

FindKey для нескольких полей

Delphi 1 

with Table1 do

begin

 SetKey;

 FieldByName('State').AsString := 'CA';

 FieldByName('City').AsString := 'Scotts Valley';

 GotoKey;

end;

Вы не можете использовать Findkey с файлами DBase более чем для одного поля. 

oEmetb.indexName:='PrimaryKey';

if oEmeTb.findkey([prCLient,prDiv,prEme]) then

где findkey передаются параметры для Primary Keyfields.

Я обращаю ваше внимание на то, что имя индекса (Index) чувствительно к регистру, так что будьте внимательны.

Вы можете также воспользоваться oEmeTb.indexfieldnames, но убедитесь в том, что ваш список ключевых полей в точности соответствуют ключевым полям, которые вы ищете. 

oEmetb.indexfieldNames:='EmeClient;EmeDiv;EmeNo';

if oEmeTb.findkey([123,'a',96]) then 

Поиск существующей записи перед тем, как она будет вставлена

Если вы находитесь в режиме редактирования (Edit) или вставки (Insert), то при изменении режима вы автоматически делаете постинг записи. И, естественно, при наличие дубликата (неуникальности) записи, вы получите ошибку. Способ обойти это – использовать другой компонент TTable, связанный с той же таблицей, и осуществляющий по ней поиск. Этот путь самый простой и эффективный.

Воспользуйтесь двумя компонентами TTable (оба должны указывать на одну и ту же таблицу). Используйте один для поиска, а второй для редактирования.

Ваша «ключевая» таблица BDE будет автоматически генерировать исключения, если пользователь будет пытаться послать созданный им дублирующий ключ. Для установки таблицы используйте Database Desktop.

Создайте на основе поля первичный индекс (Primary Index). Затем создайте какой-то обработчик DB-исключения для нашего «нарушения уникальности».