exception que je pige pas :(

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : exception que je pige pas :(

piloud

bon deja , voila lexception :

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 :

procedure Tprime.calcul(lememo:Tmemo;a:string;chaine:byte);
begin
if form1.reperer(lememo,a) then
case strtoint(copy(lememo.Name,length(lememo.Name)-1,1)) of
1:
begin
case chaine of
2:
begin
ch1:=ch1+1;
ch2:=ch2-1;
end;
3:
begin
ch1:=ch1+1;
ch3:=ch3-1;
end;
4:
ch1:=ch1+1;
end;
end;
2:
begin
case chaine of
1:
begin
ch2:=ch2+1;
ch1:=ch1-1;
end;
3:
begin
ch2:=ch2+1;
ch3:=ch3-1;
end;
4:
ch2:=ch2+1;
end;
end;
3:
begin
case chaine of
2:
begin
ch3:=ch3+1;
ch2:=ch2-1;
end;
1:
begin
ch3:=ch3+1;
ch1:=ch1-1;
end;
4:
ch3:=ch3+1;
end;
end;
end;

Publicité

taureau

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

piloud

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 :

unit fiche_prime;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tprime = class(TForm)
Memo1: TMemo;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Checking(a:string);
procedure calcul(lememo:Tmemo;a:string;chaine:byte);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
prime: Tprime;
ch1,ch2,ch3:byte;
implementation
uses principale, OP;
{$R *.dfm}
procedure Tprime.calcul(lememo:Tmemo;a:string;chaine:byte);
begin
if form1.reperer(lememo,a) then
case strtoint(copy(lememo.Name,length(lememo.Name)-1,1)) of
1:
begin
case chaine of
2:
begin
ch1:=ch1+1;
ch2:=ch2-1;
end;
3:
begin
ch1:=ch1+1;
ch3:=ch3-1;
end;
4:
ch1:=ch1+1;
end;
end;
2:
begin
case chaine of
1:
begin
ch2:=ch2+1;
ch1:=ch1-1;
end;
3:
begin
ch2:=ch2+1;
ch3:=ch3-1;
end;
4:
ch2:=ch2+1;
end;
end;
3:
begin
case chaine of
2:
begin
ch3:=ch3+1;
ch2:=ch2-1;
end;
1:
begin
ch3:=ch3+1;
ch1:=ch1-1;
end;
4:
ch3:=ch3+1;
end;
end;
end;
end;
procedure Tprime.Checking(a:string);
var
chaine,mini:byte;
i:integer;
oui:boolean;
begin
//on initialise variables
oui:=false;
ch1:=0;
ch2:=0;
ch3:=0;
chaine:=0;
mini:=1;
// on verifie s'il n'a jamais été absent
//et si c le cas on sort de la procedure pour passer a celui d'après
i:=0;
while i<=(form1.abs.Lines.Count-1) do
begin
if a=copy(form1.abs.Lines.Strings[i],0,3) then exit;
i:=i+1;
end;
if form1.reperer(form2.chaine1,a) then
begin
ch1:=6;
chaine:=1;
end;
if form1.reperer(form2.chaine2,a) then
begin
ch2:=6;
chaine:=2;
end;
if form1.reperer(form2.chaine3,a) then
begin
ch3:=6;
chaine:=3;
end;
if chaine=0 then chaine:=4;
//les proco
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);
//Si le matricule n'est nul part , ca sert a rien de continuer donc on passe a celui d'après
//c a d on sort de la procedure !
if (ch1=0) and (ch2=0) and (ch3=0) then exit;
if (checkbox1.Checked=true) and (ch1>=mini) then oui:=true;
if (checkbox2.Checked=true) and (ch2>=mini) then oui:=true;
if (checkbox3.Checked=true) and (ch3>=mini) then oui:=true;
if oui=true then memo1.Lines.Add(a);
// d
end;
procedure Tprime.Button1Click(Sender: TObject);
var
i:integer;
a:string;
begin
memo1.Text:='';
if (CheckBox1.Checked=false) and (checkbox2.Checked=false) and (checkbox3.Checked=false) then
begin
memo1.Lines.add('Personne n''est primé');
exit;
end;
-------------------------------------------------------------------
i:=0;
while i<=999 do
begin
a:=inttostr(i);
case length(a) of
1:
a:='00'+a;
2:
a:='0'+a;
end;
checking(a);
i:=i+1;
end;
----------------------------------------------------------------------
end;
end.

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

piloud

:bounce:

qi130

Tu as quoi dans lememo.Name quand tu fais ça ?

case strtoint(copy(lememo.Name,length(lememo.Name)-1,1)) of

qi130

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

piloud

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 !

qi130

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 !

piloud

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

qi130

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;

Publicité

piloud

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

FORUM HardWare.fr

Programmation

Delphi/Pascal

exception que je pige pas :(

Sujets relatifs
impossible de catcher une exception	pige plus rien...
[Côté obscure du C] Pige pas ce ça fait ...	exception_flt_stack_check
Throws IO Exception	[C++] Malloc et Free ... truc que je pige pas
[C++] new - exception	Exception in thread "main" java.lang.NoSuchMethodError: main
type d'une exception	Division par zéro en Java, exception non catchée ?
Plus de sujets relatifs à : exception que je pige pas :(

Page générée en 0.052 secondes