Club Builder

[ely]

mi codigo es el siguiente ::


TForm1::LeeHistoricos(TDateTime fecha_hora_inicial,TDateTime fecha_hora_final,unsigned short entrada,unsigned char tipo_entrada)
{

TQuery * TablaDatos = new TQuery(NULL) ;
String consulta;
String select;

try
{
try
{
// TablaDatos->Close();
consulta = " fechahora >= '" + fecha_hora_inicial.FormatString("mm/dd/yyyy hh:nn") + "' and fechahora <= '" + fecha_hora_final.FormatString("mm/dd/yyyy hh:nn") + "' and NUMEROENTRADA = " + IntToStr(entrada) ; // + " order by fechahora " ;
TablaDatos->SQL->Clear();
select = "select * from 'F:\\ely\\PROYECTOS ELY\\PROYECTO REMOTA\\ERU\\BASEDATOS\\DTA.db' where " + consulta ;
TablaDatos->SQL->Add(select);
TablaDatos->ExecSQL();
TablaDatos->Open();
if (!TablaDatos->Eof) TablaDatos->First();
while (!TablaDatos->Eof)
{
TablaDatos->Next();
}
// TablaDatos->Close();
}
catch(Exception &e)
{

int i = 0 ;
//TablaDatos->Close;
// delete TablaDatos;
// TQuery * TablaDatos = new TQuery(NULL) ;
}
}
__finally
{
TablaDatos->Close();
Sleep(500);
delete TablaDatos;
}




}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (int i = 0;i<500;i++)
{
LeeHistoricos((TDateTime) "13/05/2004 08:00",(TDateTime) "13/05/2004 09:00",2,2);
Edit1->Text = i;
Application->ProcessMessages();
}

ShowMessage("ZA CABO") ;
}



cuando i = 251 me da un error de too many open files

el builder es el 5 y la base datos paradox

por que

[Manolo(er_lolo)]

Creo recordar que tenias que cambiar algo del BDE, prueba con la propiedad MAXFILESHANDLE, este error ya lo tube hace tiempo pero no me acuerdo exactamente como lo solucione.


Salu2.

[ely]

Muchas gracias por la respuesta , pero lo que me dices , lo habia probado y habia cambiado el valor pero sigo con el problema , podrias intentar recordar como lo solucionaste , me harias un gran favor.