delphi 2007 paradox

[vroa74]

estoy desarrollando una aplicación por motivos practico me he topado con la necesidad de usar tablas paradox.

yo me preguntaba si hay alguna forma desde delphi crear por si solo la tabla paradox. Por si en dado caso la tabla no esta en en la ubicación, el sistema la crea y guarde la información.

necesito que la tabla contenga datos varchar o string, date y un entero llave AutoIncremental. espero que me puedan ayudar.

[[newtron]]

Hola.

Yo no uso paradox pero si he usado tablas dbf con bde y creo que también dan la posibilidad de usar tablas de paradox. Solamente tienes que instalar el bde en la máquina en la que vayas a usar la aplicación y crear y manipular las tablas desde el programa. En la pestaña BDE del ide tienes los componentes necesarios.

Saludos

[Aleca]

puedes hacerlo de esta forma.

Código Delphi [-]
procedure GeneroTabla(cName: String);
var
  NewTabla: TTable;
  NewIndexOptions: TIndexOptions;
begin
  NewTabla := TTable.Create(Application);
  NewIndexOptions := [ixPrimary];
  NewTabla.Active := False;
  NewTabla.DatabaseName := cMensPath;
  NewTabla.TableName    := cName;
  NewTabla.TableType    := ttDBase; //ttParadox
  NewTabla.FieldDefs.Clear;
  NewTabla.FieldDefs.Add('CAMPO1',      ftString,  50, False );
  NewTabla.FieldDefs.Add('CAMPO2',   ftDate,     0, False );
  NewTabla.FieldDefs.Add('Campo3', ftMemo,     0, False );
  ....
  NewTabla.IndexDefs.Create(NewTabla);
  NewTabla.IndexDefs.Clear;
  NewTabla.IndexDefs.Add('CAMPO', 'CAMPO', []);
  NewTabla.CreateTable;
  NewTabla.Destroy;
end;

Saludos