Salut,
voila j'ai ce type de code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button1Click(Sender: TObject);
 
type
  Pinteger = ^integer;
var
  Machin : PInteger;
  Machin : ^integer;
begin
 new(Machin);
 Machin^:=1;
 showmessage(IntTostr(Machin^));
 dispose(Machin);
end;
Et au momen de l'exécution, j'ai une erreur qui me dit "Les variables pointeur, les paramètres ou les constantes non protégés sont autorisés uniquement dans une procédure non protégée".

J'ai également essayé ce qui est dit dans l'aide, à savoir ce code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
var
            X, Y: Integer;   // X et Y sont des variables Integer
            P: ^Integer;      // P pointe sur un Integer
            begin
              X := 17;      // affecte une valeur à X
              P := @X;      // affecte l'adresse de X à P
              Y := P^;      // déréférence P; affecte le résultat à Y
            end;
Mais j'ai la même erreur,
si quelqu'un pouvait m'expliquer comment fonctionn les pointeurs sous delphi8, je lui en serrait très reconnaissant
Merci d'avance
byye

PS : faitespas gaffe a l'utilité du code, ceux sont des tests