The author posted a question in Programming
Delphi. How do I programmatically create a PARADOX 7 table with multiple fields and delete it after use is complete? and got a better answer
Response from
Response from 0[+]
Table1.Active:=false; Table1.DatabaseName:=C:MyDatabase; Table1.TableName:=Form2.Edit25.Text; Table1.TableType:=ttParadox; Table1.FieldDefs.Clear; Table1.FieldDefs.AddNaimenovanie,ftString,40,Tr ue ; Table1.FieldDefs.AddVsego,ftInteger,0,False ; Table1.FieldDefs.AddPens,ftInteger,0,False ; Table1.FieldDefs.AddOdinPens,ftInteger,0,False ; Table1.FieldDefs.AddInval,ftInteger,0,False ; Table1.FieldDefs.AddOdinInval,ftInteger,0,False ; Table1.FieldDefs.AddSemInval,ftInteger,0,False ; Table1.FieldDefs.AddSemPens,ftInteger,0,False ; Table1.CreateTable; Table1.Active:=true; end;
Table1.Active:=false; Table1.DatabaseName:=C:MyDatabase; Table1.TableName:=Form2.Edit25.Text; Table1.TableType:=ttParadox; Table1.FieldDefs.Clear; Table1.FieldDefs.AddNaimenovanie,ftString,40,Tr ue ; Table1.FieldDefs.AddVsego,ftInteger,0,False ; Table1.FieldDefs.AddPens,ftInteger,0,False ; Table1.FieldDefs.AddOdinPens,ftInteger,0,False ; Table1.FieldDefs.AddInval,ftInteger,0,False ; Table1.FieldDefs.AddOdinInval,ftInteger,0,False ; Table1.FieldDefs.AddSemInval,ftInteger,0,False ; Table1.FieldDefs.AddSemPens,ftInteger,0,False ; Table1.CreateTable; Table1.Active:=true; end;