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

Советы » DBASE и DBF » Как создать 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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com