Array
(
)

como criar tabelas paradox em runtime...

Salsa
   - 04 jan 2006

Como crio tabelas paradox em run time...

queria criar a tabela e adicionar os campos....

alguem sabe pode me dar um exemplo de como fazer isso?


valeu :)


Edilcimar
   - 04 jan 2006

Table1 := TTable.Create(Self);
Table1.TableName := NomeTemp ;
Table1.TableType := ttParadox;
With Table1.FieldDefs do
Begin
Clear;
Add(´Campo1´,ftAutoInc,0,False);
Add(´Campo2´,ftString,13,False);
Add(´Campo3´,dtFloat,0,False);
Add(´Campo4´,ftInteger,0,False);
End;
Table1.CreateTable;