Problème de règles de priorité ???

Question

Bonjours à tous,
    Voici un problème qui ne semble pas très compliqué et qui me bloc depuis pas mal de temps :

Type TBloc = Record
//...   
     Deb : TStringList;  
End ;

Type TBcNiv = Record
     Num : TStringList;  
End;

Var
  Chaine: string;
  i,j,k,l,m: integer;
  Bloc : Array [1..NbBloc] of TBloc;  
  BcNiv: Array [-1..NbBloc] of TBcNiv;

Begin
LIndentifi:=TStringList.Create;
//...

While not (NumLigne=Pred(txtSource.Count)) do Begin
  LIndentifi.Clear;
  //...
  For i:=0 to BcNiv[Niveau].Num.Count do Begin
    //Ces deux lignes utilisé pour déboguer marche sans provoquer d'erreur  
    chaine:=BcNiv[Niveau].Num[i];
    m:=StrToInt(chaine);

    //Par contre celle-ci provoque une erreur (différente???):
    l:=StrToInt(BcNiv[Niveau].Num[i]);

    //Et donc bien évidement celle-ci aussi
    k:=Bloc[StrToInt(BcNiv[Niveau].Num[i])].Deb.Count;

    //Le but est d'avoir cette ligne de code:
    For j:=1 to Bloc[StrToInt(BcNiv[Niveau].Num[i])].Deb.Count do begin


Le message d&#8217;erreur est du type &#8216;EAcessViolation&#8217; : violation d&#8217;accès à l&#8217;adresse mémoire&#8230;
A NOTER : Quand je mets un point d&#8217;arrêt avant le code qui provoque une erreur et que je fait : Clique droit-> Déboguer->Evaluer Modifier sur le code &#8216;l:=StrToInt(BcNiv[Niveau].Num[i]);&#8217; ceci marche TRES BIEN alors que celui provoque une erreur à l&#8217;exécution d&#8217;où mon incompréhension &#8230;.

Merci d&#8217;avance pour votre aide.

cs_Delphiprog · Answer

Les membres Num et Deb des deux structures de type Record ne sont pas instanciés. Il faut donc commencer par appeler le constructeur de la classe TStringList pour chacune des entrées des tableaux :


procedure InitArrays;
var
  i: integer;
begin
  for i := low(Bloc) to High(Bloc) do
   Bloc[i].Deb := TStringList.Create;
  
  for i := Low(BcNiv) ti High(BcNiv) do
   BcNiv[i].Num := TStringList.Create;
end;


Comme les listes de chaines ne possèdent pas de propriétaires, le programme est donc responsable de la libération de la mémoire, sinon, gare aux pertes de ressources !


procedure FreeArrays;
var
  i: integer;
begin
  for i := low(Bloc) to High(Bloc) do
   Bloc[i].Deb.Free;
  
  for i := Low(BcNiv) ti High(BcNiv) do
   BcNiv[i].Num.Free;
end;

Le message indiquant une violation d'accès était donc normal puisque tu tentes d'accéder à des objets qui ne sont pas instanciés et qui pointent, par conséquent, dans le vide ou sur des adresses occupées par d'autres programmes.

Cette erreur est fréquente chez les débutants : s'il suffit de déclarer une variable d'un type Record pour pouvoir l'utiliser, en revanche un objet a besoin d'être déclaré ET instancié.
Evidemment, quand on mixe les deux...on a tendance à l'oublier.
Bonn'prog !
May Delphi be with you

broidsy · Answer

Vous avez trouvez ! Merci beaucoup. En fait le constructeur de la classe TSttringList n&#8217;était pas toujours appelé car placé à un mauvais endroit dans une boucle conditionnel.

Encore merci de ce précieux conseil qui ma débloquer!!!!!

Problème de règles de priorité ???

2 réponses

Votre réponse

Discussions similaires