Как создать DBase базу данных?

Previous  Top  Next

    
 

 

 

Code:

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;

©Drkb::02693

Взято с Delphi Knowledge Base: http://www.baltsoft.com/