Discussion :

[A0080]

Bonjour à vous tous. Cet aprem je fais ce code sur Delphi 7 (sous Win2000Pro).

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
CONST n = 100;
var
  Form1: TForm1;
  Ttab : array [0..n] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a1, a2 : integer;
    b1,s, b2 : integer;
begin
  randomize;
      a1:=random(10)+1;
      b1:=random(2);
If b1=0 then a1:=-a1
else a1:=a1;
 
a2:=random(10)+1;
      b2:=random(2);
If b2=0 then a2:=-a2
else a2:=a2;
 
s:=1;
s:=((s+a2)*a1); Ttab[1]:=s;
s:=((s+a2)*a1); Ttab[2]:=s;
s:=((s+a2)*a1); Ttab[3]:=s;
s:=((s+a2)*a1); Ttab[4]:=s;
Memo1.Lines.add(inttostr(Ttab[1]));
Memo1.Lines.add(inttostr(Ttab[2]));
Memo1.Lines.Add(inttostr(Ttab[3]));
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var g : integer;
begin
    If g = Ttab[4] then Memo2.lines.add('Vrai') else Memo2.Lines.Add('Faux');

Je l'ai simplifié pour garder le plus important. L'idée c'est une suite généré par le button1 qui me sort dans le meo1 les trois premieres valeurs. Je cherche une quatrieme valeur dans le edit.
Si cette valeur est bien la quatrième je renvoi Vrai dans le memo sinon faux. Et bien a l'aide d'un système d'équations simples je trouve la bonne réponse mais une fois rentré il me renvoie faux tout le temps.

Alorsmon problème c'est que cet aprem sous Delphi 7 impeccable même en beaucoup plus compliqué et la sous Delphi 6 (WIN XP) plus moyen.

Merci de votre aide par avance je suis complètement perdu.

[MCoder]

Dans la méthode Button2Click(), je ne vois pas comment la variable g est initialisée !!! alors que tu fais une comparaison (??)

[A0080]

Je suis d'accord avec toi MCoder du moins c'est bien ce que met le compilateur : " variable g n'est pas initialisée" néanmoins que se soit sous Deplhi 6 et 7 la compilation s'effectue or la différence est donc que sous Delphi 7 le prog marche or Delphi 6 ne le fait pas marcher.

Tu penses que cela peut venir de la? Comment je peux initialisée cette variable?
Merci à toi MCoder.

[Jipété]

Code :

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

1
2
3
4
5
procedure TForm1.Button2Click(Sender: TObject);
var g : integer;
begin
  g := 0;
  ...

Mes 2 cts,
--
jp

PS : et pense à cliquer sur "Résolu" pour ton autre post, puisqu'il a l'air résolu.

[A0080]

Le Résolu a été rajouté pour l'autre post (je débute et j'oubli vite...) j'ai initialisé la variable (j'ai recopié quoi) mais cela marche toujours pas je rentre ma quatrième valeur et il me dit toujours faux alors qu'elle est juste. Quelqu'un a des idées please?

P.S : Merci à toi Jipété.

[Cl@udius]

Salut

Il faut que tu initialises la variable g avec la valeur saisie dans TEdit.

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button2Click(Sender: TObject);
var g : integer;
begin
  // Edit1 étant le TEdit où est saisi la 4° valeur.
  g := StrToInt(Edit1.Text); 
  ...
end;

@+

[Jipété]

Il faut que tu initialises la variable g avec la valeur saisie dans TEdit.

+ 1 ! (j'avais pas lu le début du post)

Mais attention, il faut absolument qu'il teste que le TEdit contient un nombre (et les pbs qui s'ensuivent... )

--
jp

[A0080]

Merci à toi Jipété cela fonctionne il me semblait que je l'avais cette ligne de code mais je sais pas... en tout cas cela marche et j'ai, grâce à d'autres membres utiliser une procédure pour que dans le Tedit seul des nombres et le signe '-' soit actif.

Encore merci à toi Jipété. C'est top. Ce forum tue et ses membres aussi apparement.

[LadyWasky]

Jipété, tu as été plus rapide que moi, du coup j'ai fait un post croisé

[LadyWasky]

Merci à toi Jipété cela fonctionne il me semblait que je l'avais cette ligne de code mais je sais pas... en tout cas cela marche et j'ai, grâce à d'autres membres utiliser une procédure pour que dans le Tedit seul des nombres et le signe '-' soit actif.

Encore merci à toi Jipété. C'est top. Ce forum tue et ses membres aussi apparement.

Merci pour tout le monde, c'est vraiment sympa

[Invité]

A vu de nez, ta procédure à l'air correcte ...mais comme tu nous l'as simplifié, il manque peut-être quelques choses ....
Je te conseille de mettre un point d'arrêt au début de tes procédures Button1Click et Button2Click et de faire du pas à pas.

[LadyWasky]

Attends là...

tu as initialisé g à 0 (g:=0)

Tu es d'accord que Ttab[4] est lui, différent de 0 (ça peu mais il y a peu de chance)


du coup, g est différent de Ttab[4] et ton if renvois fatalement le message "Faux"

Où alors je n'ai absolument rien compris à ton problême....

Dans tous les cas, g, c'est quoi, ça représente quoi, la valeur qui est censée être dedans vien d'où ? d'un truc que tu as tapé dans un Edit ?