Tableau de chaines à 2 dimensions

Version imprimable

est-ce que le code ci-dessous est correct ? Peut on l'optimiser un peu ?

Lorsque je met "for i := 1 to 16" ca fonctionne mais pas lorsque
i := 1 to 17 qui me renvoie toujours "version inconnue !" et je ne comprends pas pourquoi ?

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
function GetIEVersion: string;
var
  Reg: TRegistry;
  str: string;
  res: boolean;
  i  : short;
  IEVersion: array [1..18, 1..18] of String;
 
begin
// Extraire le numéro de version :
IEVersion[1, 1]  := ('5.00.2014.0216');   //Windows 95/98/NT
IEVersion[1, 2]  := ('5.0');
IEVersion[2, 1]  := ('5.00.2314.1003');   //Office 2000
IEVersion[2, 2]  := ('5.0');
IEVersion[3, 1]  := ('5.00.2614.3500');   //Windows 98 Seconde Edition
IEVersion[3, 2]  := ('5.0');
IEVersion[4, 1]  := ('5.00.2919.6307');   //avec SP1
IEVersion[4, 2]  := ('5.01');
IEVersion[5, 1]  := ('5.00.2920.0000 ');  //Windows 2000
IEVersion[5, 2]  := ('5.01');
IEVersion[6, 1]  := ('5.00.3103.1000');   //Win 2000 + SP1
IEVersion[6, 2]  := ('5.01');
IEVersion[7, 1]  := ('5.00.3105.0106');   //Win 95/98/NT avec SP1
IEVersion[7, 2]  := ('5.01');
IEVersion[8, 1]  := ('5.00.3314.2101');   //Win 95/98/NT avec SP2
IEVersion[8, 2]  := ('5.01');
IEVersion[9, 1]  := ('5.00.3315.1000');   //Win 2000 avec SP2
IEVersion[9, 2]  := ('5.01');
IEVersion[10, 1] := ('5.50.4134.0600');   //95/98/ME/NT/2000
IEVersion[10, 2] := ('5.5');
IEVersion[11, 1] := ('5.50.4522.1800');   // Idem avec SP1
IEVersion[11, 2] := ('5.5');
IEVersion[12, 1] := ('5.50.4807.2300');   // Idem avec SP2
IEVersion[12, 2] := ('5.5');
IEVersion[13, 1] := ('6.0.2600.0000');    //Win 98/NT/2000/ME/XP
IEVersion[13, 2] := ('6.0');
IEVersion[14, 1] := ('6.0.2800.1106');    //Idem avec SP1
IEVersion[14, 2] := ('6.0');
IEVersion[15, 1] := ('6.0.2900.2180');    //Win XP avec SP2
IEVersion[15, 2] := ('6.0');
IEVersion[16, 1] := ('7.0.5730.11');      //Windows XP Home/Pro
IEVersion[16, 2] := ('7.0');
IEVersion[17, 1] := ('7.0.6000.16386');   //Windows Vista
IEVersion[17, 2] := ('7.0 - Vista');
 
str:='';
res:=false;
 
Reg := TRegistry.Create;
try
 Reg.RootKey := HKEY_LOCAL_MACHINE;
 if Reg.OpenKey('\Software\Microsoft\Internet Explorer', False) then begin
  res:=true;
  str:=Reg.ReadString('Version');
 end;
finally
 Reg.CloseKey;
 Reg.Free;
end;
 
if res then begin
  For i := 1 to 16 do begin   //i=17 => Version inconnue !!!!
    if IEVersion[i,1] = str then
      result := IEVersion[i,1] + ' (' + 'IE ' + IEVersion[i,2] + ')'
    else
      result := 'Version inconnue !'
    end;
end;
end;

je chercherais personnellement à compacter tout cela

1) lire la chaine dans le register
2) décomposer en 4 entiers a,b,c,d
3) tester la version en fonction des valeurs trouvées
Code:

1 2 3 4 5 6 7 8 9 case a of 5: case b of 0: if c>2919 then Result:='5.01' else Result:='5.0'; 50: Result:='5.5'; else Result:='5.?'; end; ... end;

24/06/2007, 09h57
aityahia

votre méthode est déconseillé et n'est pas persistante il suffit avoir d'autres nouvelles version IE est votre fonction devient obsolète.

vous avez la solution dans la FAQ
24/06/2007, 12h20
secretman

Merci Paul, après analyse ca se tiens !!!

Tu as une soluce pour extraire simplement les 4 parties a, b, c, d ?

Merci,

Denis
24/06/2007, 12h26
skywaukers

bonjour,

pour ton code, outre le fait que effectivement ce ne soit pas la bonne solution), il me semble qu'il ne renvoi autre chose que 'Version inconnue' que si la version lue est égale à la dernière version de ta table (dans ton cas tu dois tester sur un XP Hom/Pro, non ?).

@++
Dany
24/06/2007, 12h40
Paul TOTH
Citation:

Envoyé par secretman

Merci Paul, après analyse ca se tiens !!!

Tu as une soluce pour extraire simplement les 4 parties a, b, c, d ?

Merci,

Denis

quick & dirty !
Code:

1 2 3 4 5 6 7 8 Val(s,a,e); Delete(s,1,e); Val(s,b,e); Delete(s,1,e); Val(s,c,e); Delete(s,1,e); Val(s,d,e);
:D

oui effectivement sur un XP Home. Bien vu l'artiste !

Cependant j'ai le m^me problème avec DirectX

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
Function GetDirectXVersion : string;
var
Reg: TRegistry;
str: string;
res: boolean;
i  : short;
DXVersion: array [1..20, 1..2] of String;
 
begin
// Extraire le numéro de version :
// http://es.wikipedia.org/wiki/DirectX
DXVersion[1, 1]  := ('4.02.0095');
DXVersion[1, 2]  := ('1.0');
DXVersion[2, 1]  := ('4.03.00.1096');
DXVersion[2, 2]  := ('2.0');
DXVersion[3, 1]  := ('4.04.0068');
DXVersion[3, 2]  := ('3.0');
DXVersion[4, 1]  := ('4.04.0070');
DXVersion[4, 2]  := ('3.0a');
DXVersion[5, 1]  := ('4.05.00.0155');
DXVersion[5, 2]  := ('5.0');
DXVersion[6, 1]  := ('4.05.01.1600');  //Win 95
DXVersion[6, 2]  := ('5.2');
DXVersion[7, 1]  := ('4.05.01.1998');  //Win 98
DXVersion[7, 2]  := ('5.2');
DXVersion[8, 1]  := ('4.06.00.0318');
DXVersion[8, 2]  := ('6.0');           //Win CE (DreamCast)
DXVersion[9, 1]  := ('4.06.02.0436');
DXVersion[9, 2]  := ('6.1');
DXVersion[10, 1] := ('4.07.00.0700');  //Win 2000
DXVersion[10, 2] := ('7.0');
DXVersion[11, 1] := ('4.07.00.0716');
DXVersion[11, 2] := ('7.0a');
DXVersion[12, 1] := ('4.07.01.3000');  //Win Me
DXVersion[12, 2] := ('7.1');
DXVersion[13, 1] := ('4.08.00.0400');  //XBox
DXVersion[13, 2] := ('8.0');           //et 8.0a
DXVersion[14, 1] := ('4.08.01.0810');  //Win XP
DXVersion[14, 2] := ('8.1');
DXVersion[15, 1] := ('4.08.01.0881');
DXVersion[15, 2] := ('8.1');
DXVersion[16, 1] := ('4.09.00.0900');  //Windows Server 2003
DXVersion[16, 2] := ('9.0');
DXVersion[17, 1] := ('4.09.00.0901');
DXVersion[17, 2] := ('9.0a');
DXVersion[18, 1] := ('4.09.00.0902');
DXVersion[18, 2] := ('9.0b');
DXVersion[19, 1] := ('4.09.00.0904');  //Windows XP et Vista
DXVersion[19, 2] := ('9.0c');
//DXVersion[20, 1] := ('???');
//DXVersion[20, 2] := ('10.0');        //Windows Vista
 
str:='';
res:=false;
 
Reg := TRegistry.Create;
try
 Reg.RootKey := HKEY_LOCAL_MACHINE;
 if Reg.OpenKey('\Software\Microsoft\DirectX', False) then begin
  res:=true;
  str:=Reg.ReadString('Version');
 end;
finally
 Reg.CloseKey;
 Reg.Free;
end;

Denis

24/06/2007, 13h36
Paul TOTH
Citation:

Envoyé par secretman

oui effectivement sur un XP Home. Bien vu l'artiste !

Cependant j'ai le m^me problème avec DirectX

même problème, même punition :)
Code:

1 2 3 4 5 6 7 case a*100+b of 402 : Result:='1.0'; 403 : Result:='2.0'; 404 : if c>=70 then Result:='3.0a' else Result:='3.0'; ... end;