Как создать 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