Utilisation des pointeurs

Question

Bonjour, 

j'ai un pb avec une procedure mais je vois dou vien celui-ci, voici mon code:

     New(AFile);
     with AFile^ do
     begin
          S:=Str;
          M:=5;
          L:=Pos('$',S);
          Separator:=Copy(S,L+1,1);
          S:=Copy(S,L+4,Length(S));
          for I:=1 to 7 do
          begin
               L:=Pos(Separator,S);
               S:=Copy(s,0,L-1);
               case I of
               1:NbAnal:=strtoint(s);
               2:Etat:=strtoint(s);
               3:DateGene:=strtodate(s);
               4:HeureGene:=strtotime(s);
               5:try
                    DateValid:=strtodate(s);
                 except
                    DateValid:=0;
                 end;
               6:try
                    HeureValid:=strtotime(s);
                 except
                    HeureValid:=0;
                 end;
               7:LibEnq:=s;
               end;
               S:=Copy(Str,M+L+1,Length(Str));
               M:=M+L;
          end;
     end;
     ListeFichier.Add(AFile);
     Dispose(AFile);

kan j'excute mon prog, il vien lire dans les entetes de fichiers, et faire une lite de fichiers avec leurs caract&#233;risques, mais kan j'ai o dela de 1 fichier il m'ajoute pas les fichiers dans la liste, il ajoute seulement le premier...

jlen100 · Answer

salut,

je suppose que ListeFichier est une Tlist ;

si tu fais  Dispose(AFile); tu supprimes ton pointeur et ListeFichier ne pointe sur rien;

il est normal que tu ne puisse pas relier ces donn&#233;es

le Dispose ne doit &#234;tre executer que quand tu n'utilisera plus ta ListeFichier.

bonne prog

XgaletteX · Answer

Oui mais je pens&#233; ke une fois placer dans la liste il n'&#233;t&#233; pplus n&#233;c&#233;ssaire de gard&#233; le pointeur , il suffit de le red&#233;clarer pour aller cherch&#233; les &#233;l&#233;ment de la liste

jlen100 · Answer

non la procedure New() attribue de l'espace memoire  aux donnees
si tu derefrence ton pointeur la place accorde&#233; a  sont recuperees
par le systeme et en principe la valeur Nil est donnee au pointeur donc
et donc le pointeur de la ListeFichier ne pointe plus sur les donnees. 

l'attribution de la valeur nil au pointeur est la pour eviter d'ecrire dans des zones memoires  non referencees.

il est donc indispensable que tu gardes ton pointeur tant que tu utilises at liste 

vas voir dans l'aides DELPHI pour l'utilisation des Tlist dans l'exemple de la procedure Add()

cs_Kenavo · Answer

Enti&#232;rement d'accord avec jlen100 !


Quand tu &#233;cris : 
ListeFichier.Add(AFile); tu
n'ajoutes que la valeur du pointeur dans la TList. Il faut aussi
conserver la variable point&#233;e, et c'est juste &#224; la fin, ou quand tu
n'as plus besoin de ta liste que tu peux &#233;crire

for i:= 0  to  ListeFichier.Count-1 do

  Dispose(ListeFichier[i]);

ListeFichier.Clear;


pour r&#233;cup&#233;rer la m&#233;moire et vider la liste



Ken@vo
<hr size ="2" width="100%">Code, Code, Codec !

[%3C/body ]

jlen100 · Answer

une petite experience:

si tu tentes de modifier une valeur de ta liste tu auras surement une
erreur d'execution : "violation de d'acces a l'adresse 0000000 "ou
quelque chose du m&#234;me genre

Utilisation des pointeurs

5 réponses

Votre réponse

Discussions similaires