Discussion :

[jodan33]

Bonjour,
j'essaie de changer de couleur sur des reservations de table de resto sur un module tactile, les couleurs sont stockées dans un tableaux à l'aide de pointeurs , je recupére la couleur pour tab occupé , et je souhaite libérer la table et donc la changer de couleur, voir ci dessous:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
procedure TFTA_Main.btncloseClick(Sender: TObject);
 
var
new_color,old_color : Tcolor;
nouveau: integer ;
objet_id:Integer;
codresa:double;
noenreg:integer;
id_save,i :integer;
mt_encais,mt_ttc : double;
etat:integer;
no_facture,comodif,h_service,serv_actu,serv : string;
 
begin
 btnopen.Enabled:=false;
 LMDSpeedButton1.Font.Color:=clblack
 //test si montant = zero possiblité de libérer la table
 
  if (mt_encais = 0) and (etat=OCC)  then       // and (etat=OCC)
 
	//  Récupération des infos de la table
 
	 MessageDlg('Essai1 Change color', mtWarning, [mbOK], 0);
         letetval.Caption:=StrEtat(PTable((Controls[objet_id] as Timage).Tag)^.etat);
         PTable((Controls[objet_id] as Timage).Tag)^.etat:=nouveau;
 
     //Changer etat table
 
      change_etat(LIB,objet_id,true); // fonction servant a changer d'etat
 
      MessageDlg('Essai4 Change color', mtWarning, [mbOK], 0);
 
      ChangeColor(old_color,new_color,objet_id);// Fonction servant a changer de couleur
 
 //id_save:=i;
 
 
 
    end;

Voici le message d'erreur: Indice de liste hors limite (93655802)




Merci , pour votre aide.

[anapurna]

salut

sur quelle ligne ton programme te génére ce message d'erreur
le probleme est que plusieur element peuvent produire ce debordement

en premier lieu l'object_id celui ci doit etre assez facile a verifier
il ne faut pas qu'il depasse le nombre contenu dans controls

un petit test pourrait etre facile a mettre en place

Code :

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

1
2
3
4
5
 
if  (objet_id >-1) and  (objet_id <=Pred(controls.count)) then
begin
  ...
end;

après l'autre risque d'erreur peut provenir de "tag"
si la longueur de ta table est inférieur a la valeur de tag

voila pour les plus flagrant
maintenant je ne sais pas ce que tu fait dans tes fonction

@+ Phil

[jodan33]

Salut,
le probleme avec ce programme c'est que je ne peux pas placer de point de débogage pour vérifier les valeurs il génére une dll , d'ou mes message box pour savoir où il plante exactement.
Voici le code de change etat:
#

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
27
28
29
procedure TFTA_Main.change_etat(nouveau: integer;objet_id :integer;maj:boolean);
var
new_color,old_color : Tcolor;
 
 
begin
  case (PTable((Controls[objet_id] as Timage).Tag)^.etat) of
    LIB     : old_color := CL_LIB;
    OCC     : old_color := CL_OCC;
 
  end;
 
 
  case nouveau of
    LIB     : new_color := CL_LIB;
    OCC     : new_color := CL_OCC;
 
  end;
 
  ChangeColor(old_color,new_color,objet_id);
 
  PTable((Controls[objet_id] as Timage).Tag)^.etat:=nouveau;
  MessageDlg('test 3', mtWarning, [mbOK], 0);
 
  if maj=true then
 
    letetval.Caption:=StrEtat(PTable((Controls[objet_id] as Timage).Tag)^.etat);
    MessageDlg('T5', mtWarning, [mbOK], 0);
end;

[anapurna]

salut

depuis quand on ne peut plus déboguer une dll ??
as tu renseigné l'application hôte dans le menu "executer|paramettre"

@+ Phil

[jodan33]

oui , c'est fait , si t"as une soluce pour que j'affiche la valeur d 'Objet_id, et de Tag , elle est bienvenue .... merci

[anapurna]

salut

menu
voir|Fenêtre de déboguage |point de suivi
entre la valeur que tu veut suivre

tu lance delphi par le projet de la dll celle ci lancera automatiquement l'executable hôte ensuite tu fait un déboguage normal

@+ Phil

[jodan33]

Salut,
j'ai essayé mais ça marche pô, je rentre la valeur que je veux suivre mais à coté il y a inscrit processus non accessible ...
merci , je pense que ces une piste à exploiter malgré tout.

[Nono40]

Le code de ta procédure btnCloseClick est-il complet ?

Si oui alors la variable objet_id n'est pas initialisée.
Si non, on ne peut pas t'aider