PChar[2] := '0' -> Wirft ne AV :/

[ErazerZ]

Delphi-Quellcode:

var
  pc: PChar;
  OldProtect: dword;
begin
  pc := 'foobar';
  VirtualProtect(pc, 1, PAGE_READWRITE, OldProtect);
  pc[2] := '0';
  ShowMessage(pc);
  VirtualProtect(pc, 1, OldProtect, OldProtect);
  // funkt nimmer
  pc[2] := 'o';
  ShowMessage(pc);