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

Previous  Top  Next

    
 

 

 

Данная процедура полезна для создания временных таблиц :

Code:

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;

 

 

 

©Drkb::02705

       

Взято с http://delphiworld.narod.ru