Discussion :

[remixtech]

Bonjour,

Pourriez vous me dire s'il vous plait si je suis dans le vrai ou dans le flou... Et si vous pouviez rectifier merci d'avance...

Code :

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

1
2
3
4
5
6
procedure TForm1.Button4Click(Sender: TObject);
var
  P: PChar;
begin
 P := 'Hello';
end;

Est interdit (en tout cas dangereux) car :

-> On ne connait pas l'espace alloué où pointe P et on risque de faire un debordement de tampon (dangereux)

Par contre (en sachant que ici Pchar est vide), je peux faire ceci :

Code :

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

1
2
3
4
//1 allocation de la zone via GetMemory
  P:= GetMemory(5 * SizeOf(Char));
  //2 Appel de la fonction
  p := 'Hello'; //(5 caractères ....)

en vous remerciant d'avance... merci

[ShaiLeTroll]

Je ne manipule jamais les PChar par affectation directe, ...
Alors GetMemory, je ne connaissais pas, lui préférant la procédure GetMem (je préfère passer le paramètre P en var que l'avoir comme résultat de fonction)

mais ce qui est quasiment sur

Code :

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

1
2
3
P:= GetMemory(5 * SizeOf(Char)); // Alloue 5 Char, donc 4 + 1 pour le Zéro Terminal ...
 
p := 'Hello'; //(5 caractères ....): // ben tu oublie le précédent p, donc fuite mémoire, tu affecte une zone constante à ce pointeur

en fait, ça rejoind ma récente connerie : Tableau Dynamique pointant sur Tableau Statiques , ou je fait pointer un pointeur sur une zone constante, bon pour ce que je voulais faire c'est parfait, en utilisant justement un pointeur, mais cela illuste que ton 'Hello' constant ne doit pas être affecté à P si tu veux ensuite le modifier par exemple ...


Tu as les fonctions StrAlloc et StrDispose mais cela ajoute un octet pour la taille maximale du pointeur, comme pour une AnsiString ...

montre nous le contexte d'utilisation, et l'on te répondra ...

[ALWEBER]

Je ne suis pas sur que celà soit nécessaire. Par contre tu peux utiliser le code ci dessous car Delphi gère la réservation de mémoire pour le type string ( qui est par défaut equivalent au type AnsiString).

Code :

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

1
2
3
4
5
6
7
var
  st1 : string ;
  p : pchar ;
begin
  st1 := 'Hello' ;
  p := pchar (st1) ;
.....

[remixtech]

Tout d'abord je vous remercie de vos réponses

En fait l'interet est juste de comprendre un peu "mieux" le fonctionnement des pchar, je ne cherche pas l'utilité mais l'interet plutot pédagogique...

@Alweber : Bien sûr j'aurai fait ainsi dans la pratique...

@ShaiLeTroll : En effet c'est ça que je cherche à comprendre, comment écrire le hello dans la zone mémoire définit juste au dessus...

Code :

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

1
2
3
P:= GetMemory(9 * SizeOf(Char)); // Alloue 5 Char, donc 4 + 1 pour le Zéro Terminal ...
 
// Comment ecrire le hello dans cet espace ?

Merci beaucoup pour votre aide

[ShaiLeTroll]

Tu peux faire un CopyMemory ... ou char par char ...

Code :

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

1
2
3
4
5
6
P^:= 'H';
Inc(P);
P^ := 'e';
Inc(P);
P^ := 'l';
...

Code :

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

1
2
3
4
5
6
const 
  MaConst = 'Hello';
...
  GetMem(P, 9); // Aller un Char, c'est 1 de size, ...
  CopyMemory(P, @MaConst[1], Length(MaConst));
  PChar(Integer(P) + Length(MaConst))^:= #0;

[remixtech]

D'accord je vous remercie pour vos réponses, c'est résolu tout est plus clair !

[sjrd]

Bon euh, je dis ça je dis rien, mais...

Code :

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

1
2
3
4
5
var
  P: PChar;
begin
  P := 'Hello';
end;

ça fonctionne très bien. La chaîne 'Hello' est est un bloc constant en mémoire, qui est bien terminé par un zéro terminal. L'affectation ne recopie rien, il fait pointer P sur cette zone constante.
Par contre : ne pas modifier ce qui est pointé par P après ! Puisque c'est une zone de mémoire constante.

[ShaiLeTroll]

Code :

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

1
2
3
P:= GetMemory(5 * SizeOf(Char)); // Alloue 5 Char, donc 4 + 1 pour le Zéro Terminal ...
 
p := 'Hello'; //(5 caractères ....): // ben tu oublie le précédent p, donc fuite mémoire, tu affecte une zone constante à ce pointeur

... ton 'Hello' constant ne doit pas être affecté à P si tu veux ensuite le modifier par exemple ...

Merci de confirmer ce que j'ai dit, SJRD ... mais en plus clair !

[Reisubar]

En fait l'interet est juste de comprendre un peu "mieux" le fonctionnement des pchar, je ne cherche pas l'utilité mais l'interet plutot pédagogique...

Cf : http://reisubar.developpez.com/tutor...trings-pchars/