Discussion :

[bvsud]

Bonjour à tous

J'ai ce message-là :

et l'erreur, en pas-à-pas, ici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TStrings.Error(const Msg: string; Data: Integer);
 
  function ReturnAddr: Pointer;
  asm
          MOV     EAX,[EBP+4]
  end;
 
begin
  raise EStringListError.CreateFmt(Msg, [Data]) at ReturnAddr;
end;

La Form vient juste de s'ouvrir, et la TStringList n'est pas même encore utilisée ! Pas de Lst := TStringLIst.Create : rien !

D'où ça peut provenir ?

Merci !

[ShaiLeTroll]

TStrings ça peut être aussi un Items d'un TComboBox, Lines d'un TMemo
Vérifie tes OnClick si l'un d'entre eux ne se produit pas lors d'un changement du ItemIndex ...

[bvsud]

Bonjour.

On dirait que ça se produit très en amont :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm2.FormActivate(Sender: TObject);
begin

      Sleep(30); // DEBUG : point d'arrêt ici, et l'erreur se produit AVANTt d'arriver là
      Ouverture;

end;

Je ferais peut-être mieux de repartir à zéro. J'ai viré le .DOF, pour voir, mais ça continue...

[ShaiLeTroll]

le DOF !
Vieux Delphi genre le 7 !

Cela peut être un problème durant la lecture du DFM
Peut-être un OnChange d'un combo vide, ...

met le CreateForm ou le Create dans un TryExcept,
si l'exception est là, c'est un event problablement qui ne gère pas une liste vide (genre Items[Items.Count-1] ou Strings[List.Count-1] sans vérifier le count avant)
Si l'exception n'est durant le Create, c'est un autre code qui ne fonctionne pas mais ça devient plus dur de t'aider sans le code !

[bvsud]

Bon, alors c'est résolu sans l'être... avec un JvListBox des Jedi ! :/

Jamais vu ça... Le ListBox standard faisait tout foirer ? Apparemment oui. Le bug vient de moi, forcément : pas des librairies standards. Mais où ? Mystère.

[ShaiLeTroll]

J'ai des souvenirs qu'en D7, une TListBox, TListView ou TTreeView avec des éléments présents dans la DFM provoquait un plantage lors du rechargement du DFM par Delphi (perte complète de la DFM si l'on faisait pas gaffe, JEDI VCS m'a sauvé la vie à ce sujet)
Du coup, même si j'avais du contenu en dur pour une présentation particulière, je le codais au lieu de le conserver en DFM

[Paul TOTH]

je n'ai pas souvenir d'un tel bug...

meilleurs solution: cocher la case "utiliser les DCU de debug", lancer le projet et mode debug et regarder dans la pile d'appel ce qui a provoqué l'erreur.

[bvsud]

Bonjour Paul Toth. :hello:

C'est ce que je fais systématiquement. J'écris toujours avec les DCU de débogage. Et c'est bien en mode trace que j'ai aperçu ce bug.

Je vous tien au courant. J'ai repris à zéro, avec, donc, ce JVListBox. Mais là encore, un autre bug. Et cette fois, ça vient bien de moi : l'erreur ne se situe plus au même endroit. Je cherche...

[guillemouze]

Je pense que si tu reviens quelques lignes avant dans ta pile d'appel, tu va tomber sur la ligne en question qui fait foirer !
A quelque chose près, tu vas avoir dans ta pile d'appel :

Code :

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

1
2
3
4
TStrings.Error('...')
TStrings.Error($xxxxx, -1)
TStringList.Get(-1)
TaFonctionQuiProvoqueLeProbleme

[bvsud]

Bonsoir.

Je pense que c'était viral. Tout bêtement. Ca s'est mis à foirer un peu partout, puis j'ai eu ce message à l'appel de Delphi:



Il ne se lançait plus ni rien.

Vive Acronis !... et la patience : Avast ne me signalait rien, MBAM non plus.