Discussion :

[gilims]

Bonjour à tous.
Voici le souci : J'ai un fichier de coordonnées dont il faut que je récupère les données. Les données sont de la forme :
3.9983 -9.3670 1.1698 C 0 0 0 0 0 0 0 0 0
Pour les récuperer, j'utilise comme tout le monde readln(FFile,Buffer);
Comme il y a plusieurs espaces, j'applique DelSpace1(Buffer) puis je découpe la chaine comme cela :

Code :

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

1
2
3
4
5
 
FLine := TStringList.Create();
FLine.Clear;
FLine.Text := StringReplace(Buffer, ' ', #13#10, [rfReplaceAll]);
p^.Add_Atome(FLine[4], Ivar1);

FLine contient alors un tableau contenant les diverses informations de la ligne.
Maintenant, j'utilise une liste chainée de classe "Molecules" et j'essaie d'ajouter les atomes ainsi que leurs coordonnées. Le probleme c'est que ca me fait "Invalid pointer operation."
Voici l'interface pour molécule :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
ptrMole = ^Molecules;
 Molecules=Class(TObject)              // Création de Molecule dérivant de TObject
    private
        Atome : ptrAtoms;                 // Liste chainé d'atomes
        Nom : String;                     // Nom de la molécule
        NbAtom : integer;
        NbBond : integer;
    public
        Suivant : ptrMole;
        constructor create();
        destructor destroy(); override;
        procedure Add_Atome( At_Nom:String ; At_Num:integer);
     end;

Le code de la fonction qui me pose probleme :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure Molecules.Add_Atome (At_Nom:String ; At_Num:integer);
   var
      p: ptrAtoms;
   begin
      new(p);
      p^.Nom := At_Nom;
      p^.Num := At_Num;
      p^.Suivant := Atome;
      Atome := p;
   end;

Ce que j'arrive pas à comprendre, c'est que pour commencer la liste chainée, je crée 1 "faux atome" : p^.Add_Atome('', -1); Et ca marche très bien !!! Mais dès que je remplace '' par FLine[4] (cf plus haut), il me sort le "invalid pointer operation". Je commence en Free Pascal et j'avoue je bug un peu pour le coup. Si vous pouviez m'aider ca serait sympa merci.

[gilims]

Bon bah pour une raison qui m'est completement inconnue, j'ai testé ca :

Code :

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

1
2
3
4
5
6
7
 
 
FLine := TStringList.Create();
FLine.Clear;
FLine.Text := StringReplace(Buffer, ' ', #13#10, [rfReplaceAll]);
Buffer := FLine[4];
p^.Add_Atome(Buffer, Ivar1);

Et ca marche. 4h à s'arracher la tete pour rien. J'espère que ca pourra éventuellement vous aider par la suite !!!

[martinus45]

Bonjour,

J'ai rencontré récemment un problème voisin, sans pointeurs.

C'était aussi en essayant de mettre une chaîne indicée à la place d'un paramètre formel string. En passant par une variable char ou string intermédiaire, ça marchait.

Mais je n'arrive pas à le reproduire sur un exemple simple... Il doit y avoir des circonstances particulières...

C'est à mon avis un petit bogue du compilateur qu'il faudrait remonter si on arrive à le cerner plus précisemment.

A+

Martinus

[Dr.Who]

tu devrais enregistrer les données en brut.

exemple fournis en pj, voir le zip.

classe TMolecule 100% fonctionnelle.


bon par contre, necessite quelques amélioration, les fichiers MOL faisant 5Mo minimum ... huhuhu
peut être voir pour les compresser avec ZLib.