Discussion :

[bubulemaster]

Bonjour,

désolé de vous déranger à nouveau mais j'ai besoin d'explication.
Dans l'exemple que j'essaie len=3
Les différence sont tab : array of char ; -> tab : array[0..32] of char ;
et mise en commentaire de SetLength
Voici le code ci-dessous (qui ne fonctionne pas) :

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
procedure CatValue(Registre : TRegistry; key : TStrings) ;
Var i, j : integer ;
    RegDataInfo : TRegDataInfo ;
    tmp : string ;
    tab : array of char ;
    len : integer ;
begin
// vérifier que value exist
// multi value
// afficher selon contenue sous forme valuename=
    For i := 1 to key.Count -1 do
    begin
        if Registre.ValueExists(key[i])
        then begin
            if Registre.GetDataInfo(key[i], RegDataInfo)
            then begin
                case RegDataInfo.RegData of
                     rdString, rdExpandString : tmp := Registre.ReadString(key[i]) ;
                     rdInteger : tmp := IntToStr(Registre.ReadInteger(key[i])) ;
                     rdBinary  : begin
                                     len := RegDataInfo.DataSize ;
                                     SetLength(tab, len) ;
                                     Registre.ReadBinaryData(key[i], tab, len) ;
// sort de la boucle for et termine le programme en indiquant une erreur d'écriture mémoire
for j := 0 to len do
begin
    write(tab[j]) ;
end ;
                                 end ;
                else
                                        tmp := 'Unknow       '
                end ;
            end ;
        end
        else
            ErrorStd('"' + key[i] + '" does''nt exists') ;
    end ;
end ;

Ce code fonctionne pourquoi ?

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
procedure CatValue(Registre : TRegistry; key : TStrings) ;
Var i, j : integer ;
    RegDataInfo : TRegDataInfo ;
    tmp : string ;
    tab : array[32] of char ;
    len : integer ;
begin
// vérifier que value exist
// multi value
// afficher selon contenue sous forme valuename=
    For i := 1 to key.Count -1 do
    begin
        if Registre.ValueExists(key[i])
        then begin
            if Registre.GetDataInfo(key[i], RegDataInfo)
            then begin
                case RegDataInfo.RegData of
                     rdString, rdExpandString : tmp := Registre.ReadString(key[i]) ;
                     rdInteger : tmp := IntToStr(Registre.ReadInteger(key[i])) ;
                     rdBinary  : begin
                                     len := RegDataInfo.DataSize ;
                                     //SetLength(tab, 32) ;
                                     Registre.ReadBinaryData(key[i], tab, len) ;
for j := 0 to len do
begin
    write(tab[j]) ;
end ;
                                 end ;
                else
                                        tmp := 'Unknow       '
                end ;
            end ;
        end
        else
            ErrorStd('"' + key[i] + '" does''nt exists') ;
    end ;
end ;

Où est mon erreur ? (erreur de débutant certainement, mais depuis le temps que je programme en delphi ça m'embête)

[ShaiLeTroll]

je mettrais

Code :

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

Registre.ReadBinaryData(key[i], tab[0], len)

tab étant un pointeur
tab[0] l'adresse du premier octet du tableau

tab et tab[0] pour array[32] of char, c'est la même chose, l'adresse du premier octet du tableau

... toutes les petites choses cachées de Delphi sur la gestion des tableaux dynamiques ...

[DragonHeart]

Attention aussi avec le SetLength
Ton SetLenght(tab,Len); ou len = 3
alloue un tableau de 3 char allant de 0 à 2 ...
regarde dans l'aide sur les tableau dynamique

Code :

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

1
2
3
4
5
 
for j := 0 to len do
begin
    write(tab[j]) ; // Ceci te provoquera une erreur d'écriture quand j = 3 ;)
end ;

[bubulemaster]

Merci ShaiLeTroll en mettant tab[0] ça fonctionne. Je pensais que tab et tab[0] c'était la même chose mais apparement non.

[Fabrice ROUXEL 1]

Tu peux écrire pour acceder au second element:

Code :

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

(pchar(tab)+1)^

Code :

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

PChar(tab)^ <=> tab[0]