Discussion :

[f5jcg_Lulu]

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

[jurassic pork]

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

[f5jcg_Lulu]

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
uMainform.pdf

[BeanzMaster]

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

[Jipété]

Bonjour,

Je sais dans quelle procédure cela se passe

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.

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.

[f5jcg_Lulu]

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

umainunit.pas

[Jipété]

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 :

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.

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…

[f5jcg_Lulu]

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

[tourlourou]

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

[f5jcg_Lulu]

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.

[Jipété]

Bonsoir,

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

Alors que ce n'est pas résolu ?


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 , va se dire Chouette ! et paf, , 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,

[f5jcg_Lulu]

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

[tourlourou]

Que donne le remplacement par :

Code :

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

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

[f5jcg_Lulu]

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.

[jurassic pork]

hello,
tu peux aussi essayer au lieu de :

Code :

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

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

mettre :

Code :

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

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

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

Ami calmant, J.P

[f5jcg_Lulu]

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
Bonne journée
Cordialement