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.