Foros Club Delphi - Imprimir Estructura DBF's

Cita:

object Table1CODIGO: TStringField
FieldName = 'CODIGO'
Size = 7
end
object Table1NOMBRE: TStringField
FieldName = 'NOMBRE'
Size = 40
end
object Table1NIF: TStringField
FieldName = 'NIF'
Size = 10
end
object Table1CALLE: TStringField
FieldName = 'CALLE'
Size = 40
end
object Table1POBLACION: TStringField
FieldName = 'POBLACION'
Size = 25
end
object Table1CPOSTAL: TStringField
FieldName = 'CPOSTAL'
Size = 5
end
object Table1PROVINCIA: TStringField
FieldName = 'PROVINCIA'
end
object Table1TELEFONO: TStringField
FieldName = 'TELEFONO'
Size = 15
end
object Table1CONTADO: TBooleanField
FieldName = 'CONTADO'
end
object Table1REQUIVALEN: TBooleanField
FieldName = 'REQUIVALEN'
end
object Table1RUTA: TStringField
FieldName = 'RUTA'
Size = 1
end
object Table1FACTURAMES: TBooleanField
FieldName = 'FACTURAMES'
end
object Table1ULTFACTURA: TDateField
FieldName = 'ULTFACTURA'
end

Esto lo he sacado de manera artesanal.
1.-Pongo un Ttable sobre un formulario y lo conecto a una tabla DBase.
2.-Hago doble clic sobre el Ttable y abro el editor de campos.
3.-Pulso botón derecho y le digo añadir todos.
4.-Selecciono todos los campos le digo copiar.
5.-Abro un procesador de textos y pego el resultado, también te vale el bloc de notas.

Mejor que nada ya es.

Mas laborioso sería hacerse un programa propio que dada una ruta y un nombre de tabla te extrajera estos datos.

Un Saludo.