Le code si dessous est sensé lire dans un fichier une liste (se son des pays) et les mettres dans Mysql mais pour une réson que j'ignore au 49eme pays j'ai une erreur "guillemet droit manquant".

Si quelqu'un voie se qui fait buguer mersi d'avance pour sa solution.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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);
}