Problème de delete TIniFile
Bonjour,
J'utilise un TIniFile pour enregistrer des adresse IP.
Je l'utilise comme suit :
Code:
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
| BSTR TGestionnaireCOMImpl::findAvailableServer()
{
AnsiString texte;
WideString strTmp;
TIniFile * iniFile = new TIniFile(ChangeFileExt(Application->ExeName,".INI"));
TStringList * section = new TStringList;
iniFile->ReadSection("serverAddress", section);
if(section->Count != 0)
{
strTmp = iniFile->ReadString("serverAddress", section->Count-1, "");
iniFile->DeleteKey("serverAddress", section->Count-1);
iniFile->Free();
texte = "Remove: ";
texte += strTmp;
Form3->Memo1->Lines->Add(texte);
}
else
{
strTmp = "";
texte = "Pas de serveur dispo";
texte += strTmp;
Form3->Memo1->Lines->Add(texte);
}
delete section;
delete iniFile;
return strTmp;
} |
A l'exécution, le programme plante ici au niveau du :
Je ne comprend pas pourquoi.
Utiliserais-je mal cette classe?