PasswortEdit Unicode fähig machen

[himitsu]

Was macht eigentlich BurnString? (nichts, so wie ich das seh) abgesehn davon, daß dieses String ist

Delphi-Quellcode:

procedure TPasswordEdit.SetXorKey(XorKey: Integer);
var
  I: Integer;
  Str: WideString;
begin
  if XorKey <> FXorKey then
  begin
    Str := Text;
    for I := 1 to Length(Str) do
      Str[I] := WideChar(Ord(Str[I]) xor FXorKey xor XorKey);
    FXorKey := XorKey;
  end;
end;

PS: in m.Wparam sind nicht die Key,s so wie im String ... da sind die VK_...-Codes drin (siehe Virtual Key)