Discussion :

[el parador]

Le programme ci-dessous génère, à l’exécution, une classe d’exception "EAccessViolation". A quoi cela est-il dû ? Comment résoudre ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
var
  tempo: PChar;
  init: string;
 
begin
  init:=' ';
  tempo:=@init;                              {tempo=8xB par exemple}
  Edit1.GetTextBuf(tempo,20);           {plante tout !!!}
end;

[Cl@udius]

Salut

L'aide de Delphi donne un exemple d'utilisation de GetTextBuf.

Code Aide de Delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button1Click(Sender:TObject);
var
  Buffer: PChar;
  Size: Byte;
begin
  Size := Edit1.GetTextLen;  {Extrait la taille de la chaîne dans Edit1}
  Inc(Size);  {Incrémente pour le caractère null}
  GetMem(Buffer, Size);  {Crée une variable dynamique Buffer}
  Edit1.GetTextBuf(Buffer, Size);  {Met Edit1.Text dans Buffer}
  Edit2.Text :=StrPas(Buffer);  {Convertit Buffer en une chaîne Pascal}
  FreeMem(Buffer, Size);  {Libère la mémoire allouée àBuffer}
end;

@+ Claudius

[LadyWasky]

Hé oui, ta chaîne Init, fait 2 caractère de long et tu lui demande d'en lire 20...

Bref, tu lui demande de lire 18 caractères, là où il n'a pas le droit d'aller mettre son nez, ton programme