Bonjour à tous,

En executant cette procedure :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
procedure TfrmSecNew.Button2Click(Sender: TObject);
var
  s : String;
  P : ^String;
begin
   s := 'Bonne année';
   new(p);
   P := @s;
   Dispose(p);
end;
j'ai le message suivant :

Opération de pointeur incorrecte.

QQ'un a t-il une idée ??

Merci