Criar arquivo em tempo de execução

{Criar um arquivo em tempo de execução é relativamente simples, vc tem que criar uma instancia do objeto TTable, esse objeto (de uma lida no Help TTable e suas propriedades e métodos) tem um método de criação e um de Criar tabela.

Depois disso é só definir as propriedades da nova tabela ...}

DatabaseName := 'c:lista';

TableName := 'Produtos.dbf';

TableType := ttDbase;

os campos da tabela ...

Add('codigo', ftString,7, false);

Add('Nome', ftString, 45, false);
e os indices ...

Add('prod1', 'codigo', []);

Add('prod2', 'Fornecedor', []);

com todos os dados devidamente setados ...

CreateTable;

Procedure TMainForm.Inicializa;

var

Table1 : TTable;

begin

{ Criar componente TTable }

Table1 := TTable.create(Application);

{ Definições de Campos e criação do arquivo }

with Table1 do

begin

DatabaseName := 'c:lista';

TableName := 'Produtos.dbf';

TableType := ttDbase;

with FieldDefs do

begin

Clear;

Add('codigo', ftString,7, false);

Add('Nome', ftString, 45, false);

Add('Fornecedor', ftString, 5,false );

Add('Custo', ftCurrency, 0, false );

Add('Venda', ftCurrency, 0, false );

end;

with IndexDefs do

begin

Clear;

Add('prod1', 'codigo', []);

Add('prod2', 'Fornecedor', []);

end;

CreateTable;

end;

end;

{Utilizando o tipo ftCurrency, formato de valores do sistema financeiro o Delphi cria um campo Dbase com N,20,4}