Discussion :

[Fabiani]

delphi 7,winXP
Je ne suis pas un spécialise des pointeurs mais je voudrais arriver à la même simplicité d'utilisation d'un pointeur en C avec delphi,voila le code en C, ce n'est qu'un exemple ,ce code ne veut rien dire:

Code C :

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
#define VarP Rec.PTab
 
typedef struct {
  int Tab[20];
  int *PTab;
} Trec;
 
Trec Rec;
 
int main(int argc, char* argv[])
{
int x;
  for(x=0; x<10; x++) Rec.Tab[x] = 10;
 
  for(x=10; x<20; x++) Rec.Tab[x] = 20;
 
  Rec.PTab = Rec.Tab +10;//Rec.Ptab pointe sur le 1er élément à 20
 
for(x=0; x<20; x++)
 if(VarP[x]==10) break;//VarP passe en revue tout les elements à 20 à
                                  //partir du 10 ème
 
return 0;
}

Donc j'aimerais pouvoir créer en pascal une variable du style VarP qui énumère les éléments du tableau mais sans déplacer l'adresse initiale car le pointeur Rec.Ptab pointe toujours sur le 1er élément à 20 du tableau donc inc(VarP) ne peut etre utilisé.Merci.

[Modération, rbag : Pensez à utiliser les balises [code] et [quote] qui améliorent nettement la lisibilité, merci]

[MANU_2]

Les pointeur en Delphi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
// créer une structure
 
type
  ptrRect = ^Integer;
var
  r : ptrRect;
begin
  // boucle
    r := new(ptrRect);
    r^ := 10;
end;

__________________________
Balises code rajoutée par Lil_jam63

[Pedro]

Et pour libérer:

Code :

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

1
2
 
Freemem(r);

[Laurent Dardenne]

Salut,
j'ai pas tout compris, tu souhaites utiliser une ou 2 variables pour parcourir le tableau ?
Avec 2 variables ne serais-ce pas qq chose dans ce genre là :

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
type
  PInteger = ^Integer;
var 
 VarP: Pointer; 
 
Begin
 Rec.PTab:= @Rec.Tab[9];
 
 for i=0 to 19 do
  begin
   VarP:=@Rec.Tab[i];
   if PInteger(VarP)^=10
    then break;
  end;  
End;

:

[Fabiani]

En fait dans ton exemple VarP:=@Rec.Tab[i]; VarP pointe sur l'élément
i du tableau Rec.Tab mais moi je veux qu'il pointe sur tous les éléments i(successif avec for) du tableau Rec.Tab A PARTIR du pointeur PTab car l'adresse de VarP est toujours celle de PTab, donc VarP[1] ne pointe pas sur l'élément 1 du tableau Rec.Tab mais sur le 1er élément APRES PTab.Quand on regarde la ligne:

for(x=0; x<20; x++)
if(VarP[x]==10) break;

VarP[0] est égal à 20,si c'était le 1er élément du tableau Rec.Tab ,VaP[0] serait égal à 10.

Ce que je veux c'est avec une seule variable utilisée ,parcourir le tableau
Rec.Tab mais pas du début du tableau,mais là où débute Rec.PTab car
ailleurs dans le code Rec.PTab peut pointer sur un autre élément du
tableau.

[Laurent Dardenne]

Cela me semble plus clair.
Essaie ceci

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
39
40
41
42
43
 
program Prj1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Const
  NbItem=20;
 
type
  PInteger  = ^Integer;
  IntArray  = Array[0..19] of Integer;
  PIntArray = ^IntArray;
 
  TRec = Record
   Tab  : IntArray;
   PTab : PIntArray;
  End;
 
var
 VarP  : Pointer;
 Rec   : TRec;
 I     : Byte;
 
Begin
 
 For I:=0 to (NbItem div 2)-1 Do
  Rec.Tab[I]:=10;
 For I:=10 to NbItem-1 Do
  Rec.Tab[I]:=20; // ou 20+(i-9);
 
 Rec.PTab:= @Rec.Tab[9];
 
 VarP:=Rec.PTab;
 
 For I:=0 to NbItem-1 do
  begin
   Writeln('i=',i,' indice du tableau ',9+i,' value= ', PIntArray(VarP)[i+1]);
  end;
 Writeln('valeur de PTab=',PInteger(Rec.PTab)^);
end.

Si cela correspond a ce que tu souhaites faire je te laisse simplifier.

[Fabiani]

Superbe!
C'est exactement ça ,ceci même me suffit ( VarP[i] ) dans la boucle en déclarant VarP comme PIntArray pour parcourir le tableau car VarP reste à l'adresse de Rec.PTab mais les éléments sont bien balayés.
On voit le cador :)
Merci beaucoup.