1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
| void __fastcall TForm_accueil::Button_ModifierClick(TObject *Sender)
{
double temps=timeGetTime();
String pays;
char *fichier;
int lon=194,numero;
int FileHandle = FileOpen ("liste des pays sans la fin.txt", fmOpenRead);
if (FileHandle >= 0 )
{
int FileSize = FileSeek (FileHandle, 0, 2);
FileSeek( FileHandle,0,0 );
fichier = new char[FileSize+1];
FileRead(FileHandle, fichier, FileSize); //lecture du fichier
FileClose (FileHandle);
}
String Stfichier=AnsiString(fichier);
int i=0,pivo=0;
int NbCaract = Stfichier.Length();
bool test=false;
bool Sortie=false;
for(numero=0;numero<=lon;)
{
do
{
test=Stfichier.IsDelimiter("\n", i);
if (test == true )
{
pays = Stfichier.SubString( pivo+1,i-pivo-2 );
pivo=i;
Sortie=true;
}
i++;
}while( Sortie != true && i <= NbCaract);
numero++;
Query1_MIL->Close();
Query1_MIL->SQL->Clear();
Query1_MIL->SQL->Add("INSERT INTO pays(Numero,Liste_Pays)"
" VALUES ( '"+AnsiString(numero)+"','"+pays+"')");
Query1_MIL->ExecSQL();
test=false;
Sortie=false;
}
delete [] fichier;
double temps2=timeGetTime();
Label_temps->Caption=AnsiString(temps2-temps);
} |
Partager