exception que je pige pas :(

exception que je pige pas :( - Delphi/Pascal - Programmation

Marsh Posté le 29-07-2003 à 18:01:26    


bon deja , voila lexception :  
 
http://www.easy-hebergement.net/~csclanth/texto.jpg
 
 
ensuite quand je fait ok , elle me renvoit sur une procedure qui a deja ete executee plusieurs fois sans planté :  
 
calcul(form1.Vendredi3,a,chaine);  
qui est declaree  ainsi :  
 
procedure calcul(lememo:Tmemo;a:string;chaine:byte);
 
mais le probleme c ke jai pas de variable i dans cette procedure :  
 
voila la procedure appellée :  
 

Code :
  1. procedure Tprime.calcul(lememo:Tmemo;a:string;chaine:byte);
  2. begin
  4. if form1.reperer(lememo,a) then
  5. case strtoint(copy(lememo.Name,length(lememo.Name)-1,1)) of
  6. 1:
  7. begin
  8. case chaine of
  9. 2:
  10.    begin
  11.    ch1:=ch1+1;
  12.    ch2:=ch2-1;
  13.    end;
  14. 3:
  15.    begin
  16.    ch1:=ch1+1;
  17.    ch3:=ch3-1;
  18.    end;
  19. 4:
  20. ch1:=ch1+1;
  21. end;
  22. end;
  23. 2:
  24. begin
  25. case chaine of
  26. 1:
  27.    begin
  28.    ch2:=ch2+1;
  29.    ch1:=ch1-1;
  30.    end;
  31. 3:
  32.    begin
  33.    ch2:=ch2+1;
  34.    ch3:=ch3-1;
  35.    end;
  36. 4:
  37. ch2:=ch2+1;
  38. end;
  39. end;
  40. 3:
  41. begin
  42. case chaine of
  43. 2:
  44.    begin
  45.    ch3:=ch3+1;
  46.    ch2:=ch2-1;
  47.    end;
  48. 1:
  49.    begin
  50.    ch3:=ch3+1;
  51.    ch1:=ch1-1;
  52.    end;
  53. 4:
  54. ch3:=ch3+1;
  55. end;
  56. end;
  57. end;


 
 
 
 
 
 
 
 

Reply

Marsh Posté le 29-07-2003 à 18:01:26   

Reply

Marsh Posté le 29-07-2003 à 18:49:29    

le bug a lieu avant...trace ton code pas à pas et tu verras le moment "magique" :D

Reply

Marsh Posté le 29-07-2003 à 19:48:48    

je poste le code parceque la je bloke :( meme avant je voit pas la merde ... et pour un pas pas , le blem c que ca marche pendant les premiere boucle que j'ai mis entre 2 linge sur le code ci dessous  !  
 
help  
 
 

Code :
  1. unit fiche_prime;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  9. type
  10.   Tprime = class(TForm)
  11.     Memo1: TMemo;
  12.     CheckBox1: TCheckBox;
  13.     CheckBox2: TCheckBox;
  14.     CheckBox3: TCheckBox;
  15.     Button1: TButton;
  16.     procedure Button1Click(Sender: TObject);
  17.     procedure Checking(a:string);
  18.     procedure calcul(lememo:Tmemo;a:string;chaine:byte);
  21.   private
  22.     { Déclarations privées }
  23.   public
  24.     { Déclarations publiques }
  25.   end;
  27. var
  28.   prime: Tprime;
  29.   ch1,ch2,ch3:byte;
  31. implementation
  33. uses principale, OP;
  35. {$R *.dfm}
  37. procedure Tprime.calcul(lememo:Tmemo;a:string;chaine:byte);
  38. begin
  40. if form1.reperer(lememo,a) then
  41. case strtoint(copy(lememo.Name,length(lememo.Name)-1,1)) of
  42. 1:
  43. begin
  44. case chaine of
  45. 2:
  46.    begin
  47.    ch1:=ch1+1;
  48.    ch2:=ch2-1;
  49.    end;
  50. 3:
  51.    begin
  52.    ch1:=ch1+1;
  53.    ch3:=ch3-1;
  54.    end;
  55. 4:
  56. ch1:=ch1+1;
  57. end;
  58. end;
  59. 2:
  60. begin
  61. case chaine of
  62. 1:
  63.    begin
  64.    ch2:=ch2+1;
  65.    ch1:=ch1-1;
  66.    end;
  67. 3:
  68.    begin
  69.    ch2:=ch2+1;
  70.    ch3:=ch3-1;
  71.    end;
  72. 4:
  73. ch2:=ch2+1;
  74. end;
  75. end;
  76. 3:
  77. begin
  78. case chaine of
  79. 2:
  80.    begin
  81.    ch3:=ch3+1;
  82.    ch2:=ch2-1;
  83.    end;
  84. 1:
  85.    begin
  86.    ch3:=ch3+1;
  87.    ch1:=ch1-1;
  88.    end;
  89. 4:
  90. ch3:=ch3+1;
  91. end;
  92. end;
  93. end;
  98. end;
  100. procedure Tprime.Checking(a:string);
  101. var
  102. chaine,mini:byte;
  103. i:integer;
  104. oui:boolean;
  105. begin
  106. //on initialise variables
  107. oui:=false;
  108. ch1:=0;
  109. ch2:=0;
  110. ch3:=0;
  111. chaine:=0;
  112. mini:=1;
  114. // on verifie s'il n'a jamais été absent
  115. //et si c le cas on sort de la procedure pour passer a celui d'après
  116. i:=0;
  117. while i<=(form1.abs.Lines.Count-1) do
  118.   begin
  119.    if a=copy(form1.abs.Lines.Strings[i],0,3) then exit;
  120.    i:=i+1;
  121.   end;
  124. if form1.reperer(form2.chaine1,a) then
  125. begin
  126.   ch1:=6;
  127.   chaine:=1;
  128. end;
  129. if form1.reperer(form2.chaine2,a) then
  130. begin
  131.   ch2:=6;
  132.   chaine:=2;
  133. end;
  134. if form1.reperer(form2.chaine3,a) then
  135. begin
  136.   ch3:=6;
  137.   chaine:=3;
  138. end;
  140. if chaine=0 then chaine:=4;
  142. //les proco
  143. calcul(form1.Lundi1,a,chaine);
  144. calcul(form1.Lundi2,a,chaine);
  145. calcul(form1.Lundi3,a,chaine);
  146. calcul(form1.Mardi1,a,chaine);
  147. calcul(form1.Mardi2,a,chaine);
  148. calcul(form1.Mardi3,a,chaine);
  149. calcul(form1.Mercredi1,a,chaine);
  150. calcul(form1.Mercredi2,a,chaine);
  151. calcul(form1.Mercredi3,a,chaine);
  152. calcul(form1.Jeudi1,a,chaine);
  153. calcul(form1.Jeudi2,a,chaine);
  154. calcul(form1.Jeudi3,a,chaine);
  155. calcul(form1.Vendredi1,a,chaine);
  156. calcul(form1.Vendredi2,a,chaine);
  157. calcul(form1.Vendredi3,a,chaine);
  158. calcul(form1.Samedi1,a,chaine);
  159. calcul(form1.Samedi2,a,chaine);
  160. calcul(form1.Samedi3,a,chaine);
  163. //Si le matricule n'est nul part , ca sert a rien de continuer donc on passe a celui d'après
  164. //c a d on sort de la procedure !
  165. if (ch1=0) and (ch2=0) and (ch3=0) then exit;
  167. if (checkbox1.Checked=true) and (ch1>=mini) then oui:=true;
  168. if (checkbox2.Checked=true) and (ch2>=mini) then oui:=true;
  169. if (checkbox3.Checked=true) and (ch3>=mini) then oui:=true;
  171. if oui=true then memo1.Lines.Add(a);
  174. // d
  175. end;
  177. procedure Tprime.Button1Click(Sender: TObject);
  178. var
  179. i:integer;
  180. a:string;
  181. begin
  182. memo1.Text:='';
  184. if (CheckBox1.Checked=false) and (checkbox2.Checked=false) and (checkbox3.Checked=false) then
  185. begin
  186.   memo1.Lines.add('Personne n''est primé');
  187.   exit;
  188. end;
  189. -------------------------------------------------------------------
  190. i:=0;
  191. while i<=999 do
  192. begin
  193. a:=inttostr(i);
  194. case length(a) of
  195.     1:
  196.       a:='00'+a;
  197.     2:
  198.       a:='0'+a;
  199. end;
  201. checking(a);
  202. i:=i+1;
  203. end;
  204. ----------------------------------------------------------------------
  206. end;
  208. end.


Message édité par piloud le 29-07-2003 à 19:51:21
Reply

Marsh Posté le 29-07-2003 à 22:08:36    

:bounce:

Reply

Marsh Posté le 30-07-2003 à 10:49:03    

Tu as quoi dans lememo.Name quand tu fais ça ?
 
case strtoint(copy(lememo.Name,length(lememo.Name)-1,1)) of

Reply

Marsh Posté le 30-07-2003 à 11:01:14    

Autres remarques gratuites sur ton code :
 
déclarer CHAINE en numérique c'est pas le top (idem pour les ch qui font penser à.....CHaine)
déclarer un boolean qui s'appelle OUI n'est pas mieux...
 
if (checkbox3.Checked=true) and (ch3>=mini) then oui:=true;
peut être codé : (même si ça ne s'applique pas ici car 3 tests en séquence, chacun pouvant modifier indépendamment oui)
oui:=(checkbox3.Checked=true) and (ch3>=mini);
if oui=true then memo1.Lines.Add(a);
devient :
if oui then memo1.Lines.Add(a);
 
A la limite tu peux ainsi de passer de ton init à false de oui


Message édité par qi130 le 30-07-2003 à 11:03:10
Reply

Marsh Posté le 30-07-2003 à 11:43:59    

quand je fait ca :  
 
case strtoint(copy(lememo.Name,length(lememo.Name)-1,1)) of  
 
jai ca ! (Ca finit toujours pas un chiffre :) lundi1 , mardi1 ....
 
calcul(form1.Lundi1,a,chaine);
  calcul(form1.Lundi2,a,chaine);
  calcul(form1.Lundi3,a,chaine);
  calcul(form1.Mardi1,a,chaine);
  calcul(form1.Mardi2,a,chaine);
  calcul(form1.Mardi3,a,chaine);
  calcul(form1.Mercredi1,a,chaine);
  calcul(form1.Mercredi2,a,chaine);
  calcul(form1.Mercredi3,a,chaine);
  calcul(form1.Jeudi1,a,chaine);
  calcul(form1.Jeudi2,a,chaine);
  calcul(form1.Jeudi3,a,chaine);
  calcul(form1.Vendredi1,a,chaine);
  calcul(form1.Vendredi2,a,chaine);
  calcul(form1.Vendredi3,a,chaine);
  calcul(form1.Samedi1,a,chaine);
  calcul(form1.Samedi2,a,chaine);
  calcul(form1.Samedi3,a,chaine);
 
pour les remarque gratuites , merci , mais ca ne resoud pas mon probleme !  

Reply

Marsh Posté le 30-07-2003 à 13:21:59    

Justement, elles sont gratos !
 
Ca aussi c'est gratos :
 
LUNDI1
 
longueur = 6
 
longueur - 1 = 5
 
et donc COPY('LUNDI1',5,1) renvoie le i  CQFD !
 
Tu peux dire merci, même si on t'apprend qq chose.
 
....prochain pilou !

Reply

Marsh Posté le 30-07-2003 à 19:00:46    

jai pas compris la , ca marcherai pour lundi mais pas pour vendredi qui comprend plus de lettre !

Reply

Marsh Posté le 30-07-2003 à 21:34:38    

Non, la démo en mode "forum" vaut pour lundi
 
mais c'est pareil pour vendredi
vendredi1 => lg=9 et lg-1=8
 
COPY('vendredi1',8,1) renvoie i
 
T'as pas une fonction RIGHT sous la main ?
Tiens, gratos encore:
Function _Right(ch_entree:string;longueur:byte):string;
var i:integer;
Begin
     i:=length(ch_entree);
     if longueur>i then _right:=''
        else _right:=copy(ch_entree,i-longueur+1,longueur);
End;

Reply

Marsh Posté le 30-07-2003 à 21:34:38   

Reply

Marsh Posté le 31-08-2003 à 23:00:01    

voila  , je rentre apres 1 mois de vac et jai compris ...
ca fait du bien les vacs , en tous cas , merci beaucoup !
 
en fait , je fesais ca car je pensais que copy commencais appartir du caractere 0 et non du 1 , c pour ca que je fesais lenght -1
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed