Erreur à l'exécution "Invalid variant type cast"

Bonjour à tous,
Mon appli de base de données (mais peu importe en fait) fonctionne mais quand je lance une certaine commande (créer un fichier ADIF à partir d'une multi-sélection du DBGrid) j'ai une erreur "Invalid variant type cast". Je sais dans quelle procédure cela se passe mais je n'identifie pas le problème. Le code est trop long pour l'afficher dans le message. Ma question est juste : dans quels cas généraux ce genre d'erreur se produit ? En fonction de vos réponses je chercherai ensuite à résoudre cette erreur.
Le même code sous Delphi fonctionne parfaitement. Vous me direz "Restez sous Delphi !" Certes mais je voudrais tout de même savoir par curiosité intellectuelle...
Merci.
Cordialement

hello,
cela dépend du contexte. Par exemple cela peut être dû à une valeur "Null" (on ne peut pas déterminer le type). Il faut alors tester si la valeur est nulle avant de l'utiliser. Si ce n'est pas ton cas mets nous au moins la ligne de code où cela plante.
Ami calmant, J.P

Le problème est que je n'arrive pas à déterminer la ligne qui plante. Comme il n'y a aucun secret, je joins le PDF du code dans sa totalité. Il pourra servir pour d'autres réponses éventuelles.
PS : mon 1er ordinateur était aussi un ZX81 en kit en 1982 !
Merci. Cordialement
Pièce jointe 604321

Salut dur de te répondre, sans code (ton pdf ne s'affiche pas chez moi) donnes nous plutôt le .pas) Tu n'as pas le numero de ligne qui s'affiche dans le message d'erreur ?

A+
Jérôme

Bonjour,

Citation:

---

Envoyé par f5jcg_Lulu

Je sais dans quelle procédure cela se passe

---

Citation:

---

Envoyé par f5jcg_Lulu

Le problème est que je n'arrive pas à déterminer la ligne qui plante.

---

Essaye en pas-à-pas, avec un point d'arrêt au début de la procédure concernée.

Citation:

---

Envoyé par f5jcg_Lulu

Comme il n'y a aucun secret, je joins le PDF du code dans sa totalité. Il pourra servir pour d'autres réponses éventuelles.]

---

Ennuyeux, ça, car si on veut faire un copier/coller d'un bout de code, il faut donc d'abord enregistrer le pdf puis récupérer par sélection le code qu'on veut voir de près, en espérant qu'il n'est pas sur deux pages, ce qui est parfois délicat pour la sélection.
Le .pas serait directement exploitable.

Bonjour à tous,
J'ai essayé un pas-à-pas. D'abord je n'ai pas le n° de ligne où se produit le problème, juste la fenêtre de débogage. Pour moi c'est un mélange d'hébreu et de sanscrit ! Je joins cette capture et le fichier .pas. La procédure TButtonClick est un copier-coller de la procédure correspondante sous Delphi, qui fonctionne parfaitement. Problème de compilateur ?
Merci pour vos efforts.
Cordialement

Pièce jointe 604384

Pièce jointe 604385

Citation:

---

Envoyé par f5jcg_Lulu

J'ai essayé un pas-à-pas. D'abord je n'ai pas le n° de ligne où se produit le problème, juste la fenêtre de débogage.

---

et pourtant :

Citation:

---

Envoyé par Jipété

Essaye en pas-à-pas, avec un point d'arrêt au début de la procédure concernée.

---

J'ai écrit ça car tu as dit dans ton premier post que tu connaissais la procédure concernée -- sinon, je me serais abstenu.

Pour mettre le point d'arrêt, tu te places au tout début de la procédure concernée, tu cliques et tu fais F5, la ligne passe en rouge.
Puis tu lances le prog avec F9, normalement il va s'arrêter sur cette ligne et là tu avances avec F8.

Citation:

---

Envoyé par f5jcg_Lulu

Pour moi c'est un mélange d'hébreu et de sanscrit !

---

Pour moi aussi, et pour beaucoup d'entre nous, si ça peut te rassurer.

Hé oui, quand on soulève le capot, on tombe sur des trucs horribles et incompréhensibles, c'est la vie… :mouarf:

Alors, après F5, F9, F8, résultat : ça bloque à la ligne ExportToAdif etc... de la procédure ATButtonClick. Si je mets cette ligne en commentaire, évidemment le traitement ne se fait pas mais il n'y a plus de blocage. Ce qui voudrait dire (selon moi, bien sûr !) que le problème se situerais dans la procédure ExportToAdif.
Donc F5 sur la procédure ExportToAdif, F9, F8. Et là ça bloque sur la 19e ligne "HeadTable := HeadTable + DBGrid1.Columns[I].Field.Value;" Serait-ce un problème avec Columns[I].Field.Value. Je sais, pour être allé sur des forums, que cette forme est dépréciée, mais je n'en sais pas plus.
Cordialement

Bonjour,
Entourer cet accès d'un try except permettrait pê de déboguer.
Ou tester si nul, comme le suggérait jurassic pork.

J'ai toujours le même message d'erreur. Je vais laisser décanter quelques jours, essayer d'autres solutions et peut-être tenter le même code avec CodeTyphon que j'ai également installé. Il n'y a pas de raison pour que l'erreur ne se reproduise pas.
Vous avez assez donné de votre temps, je vous en remercie. Je reviendrai dans quelques jours. Je mets tout de même en résolu.
Cordialement et merci encore.

Bonsoir,

Citation:

---

Envoyé par f5jcg_Lulu

Je mets tout de même en résolu.

---

Alors que ce n'est pas résolu ?
:koi:

Imagine quelqu'un faisant des recherches (comme nous tous) pour le même problème que toi dans 6 mois ou 2 ans ou plus, et qui voit :resolu:, va se dire Chouette ! et paf, :aie:, non, il n'y a rien de résolu…
Alors reclique sur le bouton pour enlever le tag, et tu recliqueras quand ça sera vraiment résolu, merci pour nous tous.

Oui je sais, il manque, ici comme dans tous les autres forums, les tags Clôturé, Abandonné, En suspens et plein d'autres, ah !, la vie est mal faite, :mrgreen:

Et pan sur le bec... Merci et à bientôt, je viendrai d'un pas résolu !

Que donne le remplacement par :

Code:

---

1 2 3 4

if VarIsNull(DBGrid1.Columns[I].Field) then HeadTable := HeadTable + '' // ou 'NULL' ou ' ' else HeadTable := HeadTable + DBGrid1.Columns[I].Field.Value;

---

Tout d'abord je suis obligé d'écrire Field.Value après le if et j'ai ensuite toujours le message à la même ligne, après le Else. C'est rageant... Et comme il fallait s'y attendre, même erreur avec CodeTyphon.

hello,
tu peux aussi essayer au lieu de :

Code:

---

HeadTable := HeadTable + DBGrid1.Columns[I].Field.Value;

---

mettre :

Code:

---

HeadTable := HeadTable + DBGrid1.Columns[I].Field.AsString;

---

sinon de quel type de champ est la colonne qui plante ?

Ami calmant, J.P

Bonjour à tous,
Bingo Jurassic Pork, c'est la solution de remplacer Value par AsString. Tout fonctionne et j'obtiens mon fichier conforme au format ADIF. Je vais pouvoir avancer maintenant.
Merci Jurassic et merci à tous. Je peux mettre en résolu cette fois :mrgreen:
Bonne journée
Cordialement