Create a dBase database at runtime (Views: 28)
Problem/Question/Abstract: Create a dBase database at runtime Answer: The following procedure may be especially useful for temporary tables: 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; |