SoloCodigo

hola a todos... necesito ayuda con lo siguiente:
estoy haciendo una aplicacion con ficheros dbf, ya he logrado leer dbf, pero ahora tengo que crear uno y no tengo ni idea de como hacer, si alguien sabe como se hace o tiene informacion sobre el tema se lo agradecere mucho... desde ya gracias por su tiempo, saludos sullivan

gracias kabern, por la respuesta... pero lamentablemente no es lo que busco... a lo mejor no me supe explicar bien, la cuestion es la siguiente:
estoy haciendo el proyecto final de programacion III, en el cual debo trabajar con ficheros estructurados y con ficheros que tengan encabezado, lo que debo hacer es una aplicacion que lea un fichero estructurado creado por mi y lo convierta a dbf, que es un fichero con encabezado, ahora bien ya he podido, crear ficheros estructurados, es decir leerlos y escribirlos, y ademas he logrado hacer una aplicacion que lee ficheros de extencion .dbf, la cuestion esta en que no se como hacer un dbf con mis datos, claro sin usar ningun gestor de base, solo creando yo mismo el encabezado y por supuesto poniendo mis datos... no se si me explico...
En resumen necesito crear un dbf pero sin usar ningun gestor de base, de todas formas gracias por tu ayuda y si te hace falta informacion sobre el trabajo con ficheros me avisas para publicar algunos ejemplos que tengo por aca... saludos y suerte... sullivan

Aqui tienes un ejemplo de creación.

Yo no lo he ejecutado pero esto te debe de funcionar.

Suerte, pon si tienes alguna duda o si funciona.

/// la variable Table1 es del tipo TTable
//////////////////////////////////////////
if (!Table1->Exists) // Don't overwrite an existing table

{

  Table1->Active = false; // The Table component must not be active

  // First, describe the type of table and give it a name
  Table1->TableType = ttDBase;
  Table1->TableName = "c:\a.dbf";

  // Next, describe the fields in the table

  Table1->FieldDefs->Clear();
  TFieldDef *pNewDef = Table1->AddFieldDef();
  pNewDef->Name = "Field1";
  pNewDef->DataType = ftInteger;

  pNewDef->Required = true;

  pNewDef = Table1->AddFieldDef();

  pNewDef->Name = "Field2";
  pNewDef->DataType = ftString;

  pNewDef->Size = 30;

  // Next, describe any indexes

  Table1->IndexDefs->Clear();
  /* the 1st index has no name because it is a Paradox primary key */
  Table1->IndexDefs->Add("","Field1", TIndexOptions() <<ixPrimary << ixUnique);

  Table1->IndexDefs->Add("Fld2Index","Field2", TIndexOptions() << ixCaseInsensitive);

  // Now that we have specified what we want, create the table

  Table1->CreateTable();
}
//////////////////////////////////////////