ParadoxParadox - criando tabela em runtime via table

// criando table em runtime

if FileExists('c:\contatos\contatos.db')=false then

begin

  TableContatos.Close;

  TableContatos.DatabaseName:='c:\contatos';

  TableContatos.TableName:='Contatos';

  TableContatos.TableType:=ttParadox;

  TableContatos.FieldDefs.Clear;

  TableContatos.FieldDefs.Add('Cod',ftAutoInc,0,false);

  TableContatos.FieldDefs.Add('Contato',ftString,50,false);

  TableContatos.FieldDefs.Add('Telefone',ftString,12,false);

  TableContatos.FieldDefs.Add('Curso',ftString,20,false);

  TableContatos.FieldDefs.Add('Observacao',ftMemo,100,false);

  TableContatos.IndexDefs.Clear;

  TableContatos.IndexDefs.Add('iCod','Cod',[ixPrimary,ixUnique]);

  TableContatos.IndexDefs.Add('iContato','Contato',[ixUnique]);

  TableContatos.CreateTable;

  TableContatos.Open;

  ShowMessage('As tabelas foram criadas com êxito!');

end

else

begin

  TableContatos.Close;

  TableContatos.DataBaseName:='C:\contatos';

  TableContatos.TableName:='contatos.db';

  TableContatos.Open;

end;