Der linken Seite kann nichts zugewiesen werden

[baumina]

Zitat von zeras:

Offensichtlich war es unter alten Delphi/Pascal Ständen noch erlaubt, eine Konstante zu ändern.

Dafür gibt es eine Compiler-Einstellung : zuweisbare typisierte Konstanten

Ist diese True, dann müsste das klappen.

[Codehunter]

Ok, Problem gelöst. Hier der Originalcode:

Delphi-Quellcode:

var
  ix            : Integer;
  bufPtr        : PChar;
  hexDump       : AnsiString;
begin
  hexDump := ReadAnsiString(aSection,aKey,'');
  Result  := Length(hexDump) DIV 2;
  if Result > BufSize then Result := BufSize;

  bufPtr  := Pointer(Buffer);
  for ix := 0 to Result -1 do
  begin
    Byte(bufPtr[ix]) := StrToIntDef('$' + Copy(hexDump,1 + ix*2,2) ,0);
  end;
end;

Die Deklaration von bufPtr habe ich in PAnsiChar geändert und schon rockts.

[Zacherl]

Mal zu deiner ursprünglichen Frage. Ausgehend davon, dass bufPtr ein Array of (Ansi)Char ist, würde folgendes Funktionieren:
bufPtr[ix] := Char(StrToIntDef('$' + Copy(hexDump,1 + ix*2,2) ,0)); Sprich: Immer die rechte Seite in den Typ der linken Seite casten und nicht umgekehrt.

Alternativ sollte auch das funktionieren (ist aber unschön):
PByte(@bufPtr[ix])^ := StrToIntDef('$' + Copy(hexDump,1 + ix*2,2) ,0); Dein Problem war aber vermutlich grade eher, dass du nicht berücksichtigt hattest, dass XE4 im Gegensatz zu D7 jetzt Unicode (2Byte) Chars verwendet.