Konstanten-Migration auf Delphi 2009 (#1#2#3...)

[Assertor]

Hi kaju74,

Zitat von kaju74:

Hier hatte ich dann rausgefunden, dass der aus der Datenbank gelesene Wert (noch unter Delphi7) nicht mehr mit dem zu vergleichenden Wert (Delphi2009) übereinstimmt:

Delphi-Quellcode:

const
  //CS_PWD_PREFIX: AnsiString = #67#12#8#9#133#201#253#15#8;
  CS_PWD_PREFIX = Chr(67) + Chr(12) + Chr(8) + Chr(9) + Chr(133) + Chr(201) + Chr(253) + Chr(15) + Chr(8);
begin
  Result := xpBuildChecksum(Format('%d%s', [UserID, CS_PWD_PREFIX + Password]));
end;

Die auskommentierte Zeile funktioniert nicht, die darunterliegende geht!

D2009 interpretiert die Chr() Aufrufe wie WideChar() daher funktioniert das wieder mit dem Format, welches ja am UnicodeString arbeitet (jedenfalls für Chars im SmallInt Bereich). Bei dem auskommentierten AnsiString werden die WideChars aber explizit wieder zu einem AnsiString zusammengesetzt, dabei gehen Informationen verloren bzw. wird eine Anpassung mit Hilfe der CodePage vorgenommen. Das Ergebnis unterscheidet sich somit von dem Chr() Prefix-Versuch.

Also folgende Lösung geht:

Delphi-Quellcode:

{$HIGHCHARUNICODE ON}
procedure foo();
const
  CS_PWD_PREFIX: AnsiString = #67#12#8#9#133#201#253#15#8;
  // CS_PWD_PREFIX = Chr(67) + Chr(12) + Chr(8) + Chr(9) + Chr(133) + Chr(201) + Chr(253) + Chr(15) + Chr(8);
begin
  Result := xpBuildChecksum(Format('%d%s', [UserID, CS_PWD_PREFIX + Password]));
end;
{$HIGHCHARUNICODE OFF}

Gruß Assertor

Edit: Bessere Erklärung nachgeliefert...