Discussion :

[akli_agha]

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

[TicTacToe]

Je ne sais pas quel est ton objectif.

Mais ton code est incohérent dans la logique.
Tu essayes de désallouer dynamiquement, une zone allouée statiquement.
Donc normal que ca rale.

Que veux tu faire au final ?

[dietrich]

je pense que comme P pointe sur S tu ne peux faire un dispose sur P car si tu libere P tu libere S je pense que ce n est pas autorise

[edam]

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfrmSecNew.Button2Click(Sender: TObject);
var
  s : String;
  P : ^String;
begin
   s := 'Bonne année';
   new(p);
   P^ := s;   Dispose(p);
end;