2008 年 11月 19 日随笔档案 - 万一

2008年11月19日

摘要： {函数} function SetScreen(x,y: Word): Boolean; var DevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, DevMode); if Result then begin DevMode.dmFields := DM_PELSWIDTH or DM_P... 阅读全文

posted @ 2008-11-19 17:14 万一阅读(2987) 评论(24) 推荐(0) 编辑

获取各种编码的识别符

摘要：下面是常用编码的识别符, 在 Delphi(2009) 中如何获取呢? Unicode: FF FE; BigEndianUnicode: FE FF; UTF8: EF BB BF var bs: TBytes; b: Byte; str: string; begin {只有 Unicode、BigEndianUnicode、UTF8 编码有识别符} bs := TEnc... 阅读全文

posted @ 2008-11-19 16:42 万一阅读(8542) 评论(5) 推荐(0) 编辑

汉字与区位码(2) - 分析

摘要：在没有 Uncode 的时代, 用 256 个 ACSII 只是方便了英文, 其他文字怎么办? 那时是各自为政的, 譬如中文就有: GB2312-80(国内简体)、Big5(台湾繁体)、HKSCS(香港繁体), 但它们互不兼容. GB2312(1980年) 后来升级到 GBK(1995年), 现在电脑上使用的是 GB18030(2000年), 这个系列是向后兼容的. 区位码的概念是在 GB... 阅读全文

posted @ 2008-11-19 10:41 万一阅读(6948) 评论(1) 推荐(0) 编辑

汉字与区位码(1) - 转换函数

摘要：先上转换函数: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2... 阅读全文

posted @ 2008-11-19 10:14 万一阅读(7695) 评论(4) 推荐(1) 编辑