Creating a table using code

Creating a table using code

Hi,Each time l try to create a table using code-not the database explorer, i get an error message:access violation at address 0042f540 read of address 7466654c.Whats the problem, how can l create a table using delphi code only?

The only reason I can think of that explains this is that you’re not instantiating the TTable variable. For instance,


alone will not work. You have to set up the database, tablename, and tabletype, and fielddefs properties. Here’s a code snippet that I know works:

var  tbl, sTbl : TTable;  typStr : String;  ch : Char;begin  {Create and set up the Destination Table}  tbl := TTable.Create(Application);  with tbl do begin    SessionName := ThrSes.SessionName;    DatabaseName := ExtractFilePath(TblName);    TableName := ExtractFileName(TblName);    TableType := ttParadox;    FieldDefs.Add('Field1', ftString, 10, False);    FieldDefs.Add('Field2', ftString, 25, False);    CreateTable;    Free;  end;

This is something that I pulled out from one of my own programs, and I know that it works – though I’ve edited it a bit for simplicity. You can use this code as a template.

See also  How to Create and Deploy QR Codes Online: A Comprehensive Guide

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist