WideChar toVariant to UnicodeString : Unexpected result.
Original Reporter info from Mantis: inoussa @inoussa12
-
Reporter name: Inoussa OUEDRAOGO
Original Reporter info from Mantis: inoussa @inoussa12
- Reporter name: Inoussa OUEDRAOGO
Description:
The program* prints "Error, expected "a" but got "97"."
Delphi does prints the correct answer.
(*) :
program wchar2variant2unicode;
uses Variants;
var
wc : WideChar;
us1, us2 : UnicodeString;
v : Variant;
begin
wc := 'a';
us1 := wc;
v := wc;
us2 := v;
if (us2 <> us1) then begin
Writeln('Error, expected "',us1,'" but got "',us2,'".');
Halt(1);
end;
WriteLn('ok');
end.
Mantis conversion info:
- Mantis ID: 25719
- OS: Windows
- OS Build: 7
- Platform: x86
- Version: 2.7.1
- Fixed in version: 3.0.0
- Fixed in revision: 26873 (#aac74f4d)
- Target version: 3.0.0