Criando tabelas em tempo de execução 2

{Criar um arquivo em tempo de execução é relativamente simples, você tem que criar uma instância do objeto TTable, esse objeto(de uma lida no Help TTable e suas propriedades e metodos) 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 índices:


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}