انشاء قاعدة بيانات في وقت التنفيذ

[kachwahed]

السلام عليكم
جرب شيء مثل:

PHP كود :

with TTable.create(self) do begin
  DatabaseName := 'C: emp';
  TableName := 'FOO';
  TableType := ttParadox;
  with FieldDefs do Begin
    Add('Age', ftInteger, 0, True);
    Add('Name', ftString, 25, False);
    Add('Weight', ftFloat, 0, False);
  End;
  IndexDefs.Add('MainIndex','IntField', [ixPrimary, ixUnique]);
  CreateTable;
End;