problème utilisation GetTextBuf

Version imprimable

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:

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;

Salut

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

Code:

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

12/03/2007, 15h35
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 :aie: