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;