Fehlermeldung bei Bitoperation

[simmi]

Ich versuche gerade die units von MySQL Dircet an Delphi XE anzupassen. @mkinzler::thumb: Ändern der Deklaration char in ansichar usw. hat bereits geholfen!

Bekomme jetzt den Fehler: [DCC Fehler] uMysqlNewPassword.pas(111): E2064 Der linken Seite kann nichts zugewiesen werden

Delphi-Quellcode:

procedure password_crypt(from:pchar; ato:pchar; password:pchar; alength:integer);
var
  i:integer;
begin
  i:=0;
  while i<alength do
    begin
      byte(ato[i]):=byte(from[i]) xor byte(password[i]); //hier kommt der Fehler
      inc(i);
    end;
end;

Gibt es da einen Tip, da dieser Fehler mehrfach erscheint?

[Björn Ole]

Ein WideChar ist 2 Byte groß, versuchs mal so:

Delphi-Quellcode:

ato[i] := Chr(Ord(from[i]) xor Ord(password[i]));

:thumb:

[simmi]

Danke, hat geholfen.

[DP-Maintenance]

Dieses Thema wurde am "25. Apr 2011, 21:12 Uhr" von "fkerber" aus dem Forum "Neuen Beitrag zur Code-Library hinzufügen" in das Forum "Object-Pascal / Delphi-Language" verschoben.