|
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; ...http://feeds.feedburner.com/~r/delph...~4/TpSd9eZM_fw
 More... |
| Alle Zeitangaben in WEZ +1. Es ist jetzt 08:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz