Delphi изнутри - блог программера

  Многие сталкивались и немногие находили разумное решение создания базы таблиц, при выполнении какого-нибудь процесса. Я был послан к вам чтобы помочь в этому.

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

 
procedure MakeDataBase;
begin
   with TTable.Create(nil) do
   begin
     DatabaseName  := ‘c:\temp’;  (* 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;

Если есть какие-то дополнения велком в комменты