Discussion :

[Papy214]

Bonjour

Je continue les tests fonctionnels après migration de mon appli de D6 à XE10.
Aujourd'hui, crash fatal même pas intercepté par le try except qui contient le code.
Il s'agit d'un composant de la JVCL : TJvComboBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
  cbxNom.Items.BeginUpdate;
  try
    cbxNom.Items.Clear;
    cbxNom.Items.Add('');

Et là, badaboum .... Tout fonctionne si je remplace cbxNom.Items.Add(''); par cbxNom.Items.Add('-');

Quand je dis gros crash, ce n'est pas rien! Extrait journal événements Windows :

Faulting application name: AppView.exe, version: 1.0.0.0, time stamp: 0x5c8683ad
Faulting module name: KERNELBASE.dll, version: 10.0.14393.2791, time stamp: 0x5c5a43dc
Exception code: 0xc0000005
Fault offset: 0x000c7684
Faulting process id: 0x76c
Faulting application start time: 0x01d4d82a8b501cb9
Faulting application path: D:\Apps\AppView.exe
Faulting module path: C:\Windows\System32\KERNELBASE.dll
Report Id: ec8c77d9-703b-4369-aca1-7f581e2b5785
Faulting package full name:
Faulting package-relative application ID:


Ce composant a-t-il un mauvais karma ?


Complément : J'ai extrait le code et le composant pour voir si ça ne venait pas d'un autre pan de l'application et c'est pareil, mais avec un peu de détails

---------------------------
Notification des exceptions du débogueur
---------------------------
Le projet Test.exe a déclenché la classe d'exception $C0000005 avec le message 'access violation at 0x76630bc9: write of address 0x0040a514'.
---------------------------
Arrêter Continuer Aide
---------------------------

---------------------------
Notification d'erreur du débogueur
---------------------------
Echec du projet D:\Tests.exe avec le message : 'system exception (code 0xc000041d) at 0x76630bc9'. Processus arrêté. Utilisez Pas-à-pas ou Exécuter pour continuer.
---------------------------
OK
---------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  cbx.items.BeginUpdate;
  try
    cbx.Items.Clear;
    cbx.Items.Add('');
  except on E: Exception do
    ShowMessage(E.Message);
  end;
  cbx.items.EndUpdate;
end;