IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

Range check error.


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    70
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juillet 2007
    Messages : 70
    Par défaut Range check error.
    Bonjour,

    voici un truc bizarre
    Je reçois une erreur "Range Stack Error"


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    procedure TForm1.Button4Click(Sender: TObject);
    var
      T : array[1..15,1..15] of string;
      L,c : byte;
    begin
      For C:=5 to 10 do
        T[7,C]:='A';
     
     for L := 1 to 15 do
      begin
      For C := 1 to 15  do
       begin
        if T[l,c] <>'' then
          begin
            if L>1 then // Haut
              if T[L-1,C] = '' then T[L-1,C]  :=  '?';
            if L<15 then // Bas
              if T[L+1,C] = '' then T[L+1,C]  :=  '?';
            if C>1 then // Gauche
              if T[L,C-1] = '' then T[L,C-1]  :=  '?';
            if C>1 then // Droite
              if T[L,C+1] = '' then T[L,C+1]  :=  '?'; <= error
          end;
      end;
     
    end;
    L contient quand l'erreur est généré L='','','','','','' // pas mal pour un byte

  2. #2
    Membre éclairé
    Homme Profil pro
    Freelance
    Inscrit en
    Décembre 2003
    Messages
    423
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Freelance

    Informations forums :
    Inscription : Décembre 2003
    Messages : 423
    Par défaut
    Salut,
    D'abord : pense à mettre ton code ente les balises code : pour nous c'est plus clair et pour toi tu te feras pas taper sur les doigts

    Ensuite je sais pas si c'est uen erreure à la copie où pas mais ton problème doit être ici :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
             if C>1 then // Droite
              if T[L,C+1] = '' then T[L,C+1]  :=  '?'; <= error
    qui doit être remplacé par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
             if C<15 then // Droite
              if T[L,C+1] = '' then T[L,C+1]  :=  '?'; <= error
    a plus

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    70
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juillet 2007
    Messages : 70
    Par défaut
    Désolé pour les basiles. (je ne sais pas où elles sont mais je trouverai bien)

    merci, l'erreur était bien celle-la.
    Je ne devrai pas traailler toute la nuit, l'esprit n'est pas très clair.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Range check error incompréhensible
    Par colorid dans le forum Langage
    Réponses: 3
    Dernier message: 04/08/2011, 12h55
  2. range check error signifie quoi
    Par zanoubya dans le forum Débuter
    Réponses: 2
    Dernier message: 21/06/2010, 11h31
  3. [Free Pascal] Range check error while evaluating constants
    Par Nouwanda dans le forum Free Pascal
    Réponses: 3
    Dernier message: 23/11/2009, 01h42
  4. [Free Pascal] Erreur d'éxecution 201 : Range check error
    Par jeanmich dans le forum Free Pascal
    Réponses: 4
    Dernier message: 15/01/2009, 13h38
  5. IDHTTP : Range check error
    Par Hinox dans le forum Composants VCL
    Réponses: 0
    Dernier message: 12/06/2008, 16h10

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo