Ich versuche gerade die units von MySQL Dircet an Delphi XE anzupassen. @mkinzler: Ä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

zusammenfalten · markieren

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?

Ein WideChar ist 2 Byte groß, versuchs mal so:
ato[i] := Chr(Ord(from[i]) xor Ord(password[i]));

Danke, hat geholfen.