Как создать dBASE таблицу во время выполнения

Данная процедура полезна для создания временных таблиц :

procedure
 MakeDataBase;
 begin

   with
 TTable.Create(nil
) do

   begin

     DatabaseName  := 'c:	emp';  (* alias *)
     TableName     := 'test.dbf';
     TableType     := ttDBase;
     with
 FieldDefs do

     begin

       Add('F_NAME', ftString,20,false
);
       Add('L_NAME', ftString,30,false
);
     end
;
     CreateTable;
     { create a calculated index }
     with
 IndexDefs do

     begin

       Clear;
       { don't forget ixExpression in calculated indexes! }
       AddIndex('name','Upper(L_NAME)+Upper(F_NAME)',[ixExpression]);
     end
;
   end
;
 end
;

Другое по теме:

• DBASE - Индексы выражений
• DBFSeek и DBFLocate
• DBase и особые случаи BDE