[debutant] Plantage

Question

voilà mon code :
iprop := 1;
ipc := 1;
Repeat
  Repeat
    if prop[ipc] = chiffrepc[iprop] then
    begin
      res[iprop] := 1;
      if iprop = ipc then
      begin
        place[iprop] := 1;
      end;
    end;
    Inc(ipc);
  Until(ipc = 5);
  Inc(iprop);
Until(iprop = 5); 

lorsque j'appelle ce code (avec une procédure), mon programme plante et le debugger me dit ke ya un blem à cette ligne :
if prop[ipc] = chiffrepc[iprop] then
si qqun sait pourquoi...

merci

cs_Delphiprog · Answer

Le problème c'est que IPC n'est pas réinitialisé entre chaque boucle. Donc, il prend les valeurs de 1 à 5*5 =  25.
Donc, si ton tableau prop n'a que cinq valeurs, il se produit une erreur d'exécution quand ta routine essaie de lire la sixième. Pour éviter celà, il faudrait insérer une ligne comme suit :
Until(ipc = 5);
Inc(iprop);
 ipc := 1; 
Until(iprop  = 5);
May Delphi be with you

Adri2000 · Answer

merci de ta réponse
mais c'est bon j'ai réussi à résoudre le problème avec une boucle for

cs_Delphiprog · Answer

C'est effectivement une manière de contourner le problème  :big) 
May Delphi be with you

[debutant] Plantage

3 réponses

Votre réponse

Discussions similaires