4 respuestas en este tema

[TiammatMX]

... ¿alguien tiene algún código que me permita crear una tabla Paradox a partir de los contenidos de una matriz de datos?

En ésa matriz tengo los nombres de los campos, el tipo es el mismo para todos y la tabla será destruida completamente una vez que termine su utilidad...

Espero que sabrán perdonar mi sencillez en la petición, pero es algo que tiene AÑOS que no hago y ya se me olvidó cómo hacerlo.     

[Sergio]

Yo uso TDBF para esto http://tdbf.sourceforge.net/

[TiammatMX]

Yo uso TDBF para esto http://tdbf.sourceforge.net/

Gracias, Sergio..., lo revisaré.

Añadido: Gracias por tu interés, Sergio, pero no es lo que necesito. Requiero necesariamente el código para crear una tabla Paradox. Éste componente sólo trabaja para dBase en todas sus versiones.

[andres1569]

Hola TiammatMX,

Aquí te pongo el código adaptado de una aplicación que hacía algo parecido:

delphi

var
  i: Integer;
begin
  with TTable.Create(nil) do
    TRY
      DataBaseName := 'DATOS_EPA';  // Alias al que apunta la tabla
      TableName := 'Filtetiq';
      TableType := ttParadox;
      for i:=0 to NElementos - 1 do  // recorremos la matriz
        FieldDefs.Add(Matriz[i], dtString,   30,    FALSE);
        //            NombreCampo   Tipo   Tamaño  Requerido
      CreateTable;
    FINALLY
      Free;  // la tabla ya ha sido creada, destruimos el objeto TTable
    end;
end;
[/i]

Saludos

[TiammatMX]

Hola TiammatMX,

Aquí te pongo el código adaptado de una aplicación que hacía algo parecido:

delphi

var
  i: Integer;
begin
  with TTable.Create(nil) do
    TRY
      DataBaseName := 'DATOS_EPA';  // Alias al que apunta la tabla
      TableName := 'Filtetiq';
      TableType := ttParadox;
      for i:=0 to NElementos - 1 do  // recorremos la matriz
        FieldDefs.Add(Matriz[i], dtString,   30,    FALSE);
        //            NombreCampo   Tipo   Tamaño  Requerido
      CreateTable;
    FINALLY
      Free;  // la tabla ya ha sido creada, destruimos el objeto TTable
    end;
end;
[/i]

Saludos

Gracias, Andrés..., es justo lo que necesitaba. Muy agradecido por tu participación...