jupp
Delphi-Quellcode:
const Test: array [0..3] of Byte = (11, 22, 33, 44);
type PHack = ^THack;
THack = array [0..3] of Byte;
procedure TForm5.FormCreate(Sender: TObject);
begin
ShowMessage(IntToStr(Test[1]));
PHack(@Test)^[1] := 111;
ShowMessage(IntToStr(Test[1]));
end;
Darum sind/können Pointer-Spielereien auch mal gefährlich werden ... vorallem wenn man ausversehn irgendwelche Schutzmaßnahmen umgeht.