|
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Create DB file at runtime
This problem is not so difficult. See example below.
procedure TForm1.Button1Click(Sender: TObject);
begin
with Table1 do
begin
Active:=False;
DatabaseName:='DBDEMOS';
TableType:=ttParadox;
TableName:='NewTable';
with FieldDefs do
begin
Clear;
Add('Field1',ftInteger,0,True);
Add('Field2',ftString,30,False);
end;
with IndexDefs do
begin
Clear;
Add('','Field1',[ixPrimary,ixUnique]);
end;
CreateTable;
end;
end;
-
More for developers
