SoloCodigo

para utilizar la base de datos sólo debes intercambiar informacion alfanumerica sobre la informacion que deseas compartir, es decir el nombre de tabla y el valor de  la clave primaria de los registros que quieras referenciar. no es necesario enviar nada mas porque la informacion esta en la base de datos.

Existe una función "SelectDirectory" en la unidad FileCrt. te adjunto un ejemplo.

#include <FileCtrl.hpp>
const SELDIRHELP = 1000;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString Dir = "C:\Program Files\MyApp";
  if (SelectDirectory(Dir, TSelectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt,SELDIRHELP))
    Label1->Caption = Dir;
}

ya me cuentas si te ha valido.

Suerte

En ese código te falta buscar los elementos el código deberia ser:

  while (fgets(linea,sizeof(linea),OutFile) != NULL )
  {
  c = linea[0];
  if (c == "X") {
    indice = indice + 1;
    if (indice = index)   {
       AnsiString sLinea;
       fgets(linea,sizeof(linea),OutFile);
       while (linea[0] != "X"){
          sLinea = (!sLinea.Length()?AnsiString(linea):sLinea + "n"+ AnsiString(linea));
          fgets(linea,sizeof(linea),OutFile);
       }
       ShowMessage(sLinea);
       break;
    }
  }

Debes utilizar TOpenDialog para seleccionar el fichero origen y TSaveDialog para seleccionar el fichero destino.

Una vez tengas los nombres de los dos ficheros utilizas la funcion Copyfile

Suerte

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();
}
//////////////////////////////////////////

pon un poco más de código sobre como abres el fichero, y lees datos.

Saludos

Lo que tienes que hacer es:


AnsiString identificador= num_ansi + AnsiString(".csv");
fich(identificador.c_str(), ios::out);

de todas formas si con esto no te aclaras dime con que instruccion tratas de abrir el fichero si es del compilador(fopen,...) o si es propia tuya dime la sintaxis por lo menos.

Saludos.

Para visualizar las figuras que creas utilizaras algun componente visual (TImage, TBitMap, ...) casi todos los componentes tienen dos eventos: OnMouseDown, OnMouseUp. Los cuales toman como parametros las coordenadas X,Y del raton cuando pichas y sueltas. Capturando esos eventos podras pintar los elementos al tamaño que deseas.

Suerte.

Lo primero que tienes que decir es que formato esta la tabla, si es dbase debes trabajar con los componente TTable,TQuery,... y no puedes utilizar SQL, mientras si el formato es otro(Access,MySQL,...) debes trabajar con componenete como TADOTable,TADOQuery,... y si puedes utilizar SQL.

Sobre tu codigo fuente deberias hacerlo asi:

AnsiString sTexto = AnsiString("insert into Historial_detalle values ") + _
                     AnsiString(saldo) + AnsiString(",") + _
                     AnsiString(cap_pagado) + AnsiString(",") + _
                     AnsiString(monto_pagar) + AnsiString(",") + _
                     AnsiString(capital) + AnsiString(",") + _
                     AnsiString(cod_p) + AnsiString(",") + _
                     AnsiString(cod_pres) + AnsiString(")");
Qhistorico->SQL->Add(sTexto);
Qhistorico->ExecSQL();

aunque no obstante es mejor hacer con TTable o TADOTable utilizando los metodos Append (añade registro en blanco),Post(salva el registro en la base de datos.)

Hola, tienes que utilizar los componentes ADO(TADOQuery, TADOConnection, TADOTable, ...), todos se conectan a traves de una cadena de conexion (atributo ConnectionString) la  cual te permite seleccionar el tipo de base datos que quieras.

Espero que sirva.