Как создать 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;
Взято с Delphi Knowledge Base: http://www.baltsoft.com/

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...