Der linken Seite kann nichts zugewiesen werden

[Codehunter]

Hallo!

Ich migriere grad ein Projekt von D7 nach XE4 und bei folgender Zeile bekomme ich die besagte Fehlermeldung:

Byte(bufPtr[ix]) := StrToIntDef('$' + Copy(hexDump,1 + ix*2,2) ,0); Der Code compiliert im D7 problemlos aber eben nicht in XE4

Danke für eure Hilfe!
Cody

[mkinzler]

Was für einen Typ hat bufPtr? Ein String?

[sx2008]

Du darfst/solltest auf der linken Seite keinen Cast einsetzen.
Ich gehe mal davon aus, dass bufPtr den Datentyp PByte oder array of Byte hat:

Delphi-Quellcode:

bufPtr[ix] := Byte(StrToIntDef('$' + Copy(hexDump,1 + ix*2,2) ,0));
// evtl. auch so
(bufPtr +ix)^ := Byte(StrToIntDef('$' + Copy(hexDump,1 + ix*2,2) ,0))

[zeras]

Kann es sein, dass Byte(bufPtr[ix]) dazumals als Konstante definiert wurde?
Ich hatte einmal einen ähnlichen Fall, wo ich ein Projekt auf D2009 hochgezogen hatte und da kamen gleiche Fehlermeldungen. Von welcher Version das kam, weiß ich leider nicht mehr.
Offensichtlich war es unter alten Delphi/Pascal Ständen noch erlaubt, eine Konstante zu ändern.

[Codehunter]

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.

[jaenicke]

Zitat von Codehunter:

Und ich dachte bisher immer, schreibbare Konstanten wären ein Feature neuerer Delphiversionen

Um genau zu sein konnte man diese unsaubere Methode bei Delphi 1 nutzen. Ich glaube schon seit Delphi 2 ist die Standardeinstellung, dass Konstanten genau das sind: konstant...

[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.

[p80286]

Byte(bufPtr[ix]) :=Byte( StrToIntDef('$' + Copy(hexDump,1 + ix*2,2) ,0)); oder
Byte(bufPtr[ix]) :=Byte( StrToIntDef('$' + Copy(hexDump,1 + ix*2,2) ,0) and $FF); Versuch es mal so (ich geh mal davon aus, daß bufPtr trotz des Namens einn Array oder ähnliches ist)

Gruß
K-H