Forum: Object-Pascal / Delphi-Language
Delphi
by Codehunter,
27. Aug 2013
Ok, Problem gelöst. Hier der Originalcode: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);
Forum: Object-Pascal / Delphi-Language
Delphi
by Codehunter,
26. Aug 2013
Und ich dachte bisher immer, schreibbare Konstanten wären ein Feature neuerer Delphiversionen ;-)
Ich habs grad nicht vor mir aber aus dem Kopf meine ich, BufPtr ist ein Array of AnsiChar und als Variable deklariert. Genaueres kann ich erst morgen sagen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Codehunter,
26. Aug 2013
Hallo!
Ich migriere grad ein Projekt von D7 nach XE4 und bei folgender Zeile bekomme ich die besagte Fehlermeldung:
Byte(bufPtr) := StrToIntDef('$' + Copy(hexDump,1 + ix*2,2) ,0);
Der Code compiliert im D7 problemlos aber eben nicht in XE4 :-(
Danke für eure Hilfe!