Be careful with Ord function in Unicode Delphi versions

Be careful with Ord function in Unicode Delphi versions: Here is a simple test: program OrdTest; {$APPTYPE CONSOLE} uses SysUtils; begin try Writeln(Ord('Я'), ' ', Ord(Char('Я'))); // 223, 1071 Assert(Ord('Я') = Ord(Char('Я'))); // Fails except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; ...

DIGITAL JUICE