Как создать dBASE таблицу во время выполнения
Материал из DRKB
Как создать dBASE таблицу во время выполнения[править | править код]
Данная процедура полезна для создания временных таблиц :
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;
Source: Взято с http://delphiworld.narod.ru
ID: 02705