Message d'erreur avec TreeView1.LoadFromFile(NomFichier) ?

Bonjour,

J'ai le message d'erreur suivant :

Citation:

---

Le projet Treeview.exe a provoqué une classe d'exception ETreeViewError avec le message 'Niveau incorrect (6) pour l'élément "Test.tpe". Processus stoppé. Utiliser Pas-à-pas ...

---

:mrgreen:

Et le compilo pointe la ligne :

Code:

---

try TreeView1.LoadFromFile(NomFichier);

---

... alors qu'il s'agit d'un fichier créé au préalable avec TreeView1.SaveToFile(NomFichier);
... et comme je n'ai pas accès au code du TTreeView.LoadFromFile() impossible d'y utiliser le "Pas-à-pas".
... l'erreur se produit avec le fichier créé à partir du Disque D:\ mais ne se produit pas avec un fichier créé à partir du dique C:\

Quelqu'un pourrait-il me mettre sur la piste de ce bug ???

A+. :D

Delphi Perso, tu n'a pas les sources, diffcile de debugguer !
Si tu as un Delphi Pro ou plus, active les DCU de Débogage, tu pourras descendre dans le code !

Delphi combien d'ailleurs ?
Tu n'as pas mis d'espace au début d'un libellé ? ni un retour charriot d'ailleurs ! Il n'y a aucune protection la dessus !
Ton fichier n'est pas tronqué ?
Normalement, ton erreur ne peut se produire que si tu passe directement du niveau 4 au niveau 6
Le même fichier sur C et sur D, le premier fonctionne et le second échoue, c'est fort !

Peux tu donner un extrait du fichier, là ou se trouve "Test.tpe"

normalement tu peux avoir (. = tab)

Code:

---

1 2	.....Parent ......Test.tpe

---

ou

Code:

---

1 2	......Frère ......Test.tpe

---

ou

Code:

---

1 2 3 4 5 6

.....Parent ......Frère .......Petit-Fils ........Arrière-Petit-Fils ......Test.tpe

---

Je n'ai jamais utilisé le SaveToFile d'un TTreeView, je n'ai jamais eu besoin de ça, en général mes Tree était généré par DB
Mais j'ai aidé dans ce sujet :

Gestion complète d'une TreeView: ajout de noeuds, records et sauvegarde du tout
Le but était de sauvegarde Node et Data !
Méthode brutale en utilisant le système de Flux (~DFM)
Je ne l'ai jamais utilisé moi même, je ne sais pas si petitprince, l'a finalement utilisé dans son appli et si cela a tenu depuis sans soucis de décalage des Data !

EDIT
J'ai lu le code de SaveTreeToStream de la VCL, c'est limite honteux !

Code:

---

1 2	NodeStr := ''; for i := 0 to ANode.Level - 1 do NodeStr := NodeStr + TabChar;

---

Nettement plus rapide et en plus en utilisant des fonctions standards ! c'est un stagiaire de Borland qui fait ce code ?

Code:

---

1 2 3 4

if ANode.Level > 0 then NodeStr := StringOfChar(TabChar, ANode.Level) else NodeStr := '';

---

Salut

Citation:

---

Envoyé par Gilbert Geyer

... l'erreur se produit avec le fichier créé à partir du Disque D:\ mais ne se produit pas avec un fichier créé à partir du disque C:\

---

Je ne saisi pas bien cette remarque !
Si tu fais des SaveToFile/LoadFromFile vers/depuis C:\ c'est OK, et à l'inverse ça plante avec D:\.

C'est ça ?

Bonjour,

Merci pour ces pistes.

A ShaiLeTroll

Citation:

---

Delphi combien d'ailleurs ?

---

... J'ai uniquement Delphi-5 Standard.

Citation:

---

Tu n'as pas mis d'espace au début d'un libellé ? ni un retour charriot d'ailleurs ! Il n'y a aucune protection la dessus !

---

... les libellés sont directement copiés sur le disque avec SearchRec.Name ... mais du coup je vais essayer avec Trim(SearchRec.Name)

Citation:

---

Ton fichier n'est pas tronqué ?

---

... je ne sais pas et comment le savoir ?

Citation:

---

Normalement, ton erreur ne peut se produire que si tu passe directement du niveau 4 au niveau 6 ...
normalement tu peux avoir (. = tab)

---

... ceci me donne envie d'essayer d'ouvrir le fichier dans un RichEdit par exemple ... si c'est faisable.
... et je vais aussi vérifier que les SearchRec.Name ne contiennent pas un caractère Tab qui fait passer du

Citation:

---

Le but était de sauvegarder Node et Data !

---

... dans mon appli j'utilise uniquement TreeView1.SaveToFile et TreeView1.LoadFromFile pour sauver/récupérer les libellés des items dans un premier fichier. Et comme les images sont déjà stockées dans un TImageList je sauvegarde uniquement les indices de correspondance dans un deuxième fichier . Cet ensemble est nettement plus rapide que l'utilisation de ReadComponentResFile(NomFichier, TreeView1) et de WriteComponentResFile(,)

A Cl@udius

Citation:

---

Je ne saisis pas bien cette remarque !
Si tu fais des SaveToFile/LoadFromFile vers/depuis C:\ c'est OK, et à l'inverse ça plante avec D:\.

---

... exactement, et comme les libellés du D:\ sont différents de ceux du C:\ il y a probablement sur le D:\ un caractère parasite qui est accepté par le saveToFile mais qui provoque un bug lors du LoadFromFile.


Je vais donc faire les essais évoqués, et vous tiendrai au courant.

A+. :D

Re-bonjour,

Résultats des essais :

1) Ouverture avec RichEdit1.LoadFromFile d'un fichier créé avec TreeView1.SaveToFile :
Cela marche : on affiche toute l'arborescence. Mais vu la longueur du texte c'est difficile d'y dénicher à l'oeil la présence d'un caractère parasite.

2) Remplacement de SearchRec.Name par Trim(SearchRec.Name) lors du scan du disque qui crée le treeView : le treeView ainsi crée puis sauvé avec SaveToFile s'ouvre maintenant avec LoadFromFile sans déclencher de bug : Ouf ! c'était donc bien une histoire de caractère parasite évoquée par ShaiLeTroll.
Par contre cela m'intrigue que les SearchRec.Name puissent contenir en début ou en fin des caratères parasites éliminés par Trim ?

En tous cas mille fois merci : problème résolu.

A+. :D