Problème entre Delphi 6 et Delphi 7
Bonjour à vous tous. Cet aprem je fais ce code sur Delphi 7 (sous Win2000Pro).
Code:
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.
Problème entre Delphi 6 Delphi 7?
Dans la méthode Button2Click(), je ne vois pas comment la variable g est initialisée !!! alors que tu fais une comparaison (??)
