教你如何用Delphi生成GBK码表

2016-01-29 14:03 49 1 收藏

教你如何用Delphi生成GBK码表,教你如何用Delphi生成GBK码表

【 tulaoshi.com - Delphi 】

用Delphi来做一个GBK的码表，代码其实也不长，大家主要掌握了一定的技巧，就能举一反三，生成更多的其它实例了。

　　program GenGBKCode;
　　{$APPTYPE CONSOLE}
　　uses
　　SysUtils;
　　Var
　　i, j: byte;
　　mFile: textfile;
　　begin
　　AssignFile(mFile, 'GBKCode.txt');
　　Rewrite(mFile);
　　{
　　GBK字符集范围
　　分区                      高位     低位
　　----------------------------------------------
　　●GBK/1:GB2312非汉字符号: A1~A9 || A1~FE
　　●GBK/2:GB2312汉字      : B0~F7 || A1~FE
　　●GBK/3:扩充汉字        : 81~A0 || 40~FE
　　●GBK/4:扩充汉字        : AA~FE || 40~A0
　　●GBK/5:扩充非汉字      : A8~A9 || 40~A0
　　}
　　for i := $A1 to $A9 do
　　for j := $A1 to $FE do
　　Write(mFile, chr(i), chr(j));
　　for i := $B0 to $F7 do
　　for j := $A1 to $FE do
　　Write(mFile, chr(i), chr(j));
　　for i := $81 to $A0 do
　　for j := $40 to $FE do
　　Write(mFile, chr(i), chr(j));
　　for i := $AA to $FE do
　　for j := $40 to $A0 do
　　Write(mFile, chr(i), chr(j));
　　for i := $A8 to $A9 do
　　for j := $40 to $A0 do
　　Write(mFile, chr(i), chr(j));
　　Close(mFile);
　　end.

来源:http://www.tulaoshi.com/n/20160129/1492381.html

上一篇： Delphi中TApplication类的巧用
下一篇：《混沌与秩序》急速对游侠的影响研究详解

看过《教你如何用Delphi生成GBK码表》的人还看了以下文章更多>>

如何用ASP生成XML数据文档（RSS订阅）

标签： Web开发

一、必须弄清楚最终需要的是什么我们通过asp或其他动态编程语言，最终需要的是XML格式的数据，这点和XML数据所在的文件载体无关，它可以是实实在在的XML文件，比如：http://blog.cnd8.com/rss_1.xml 。也可以为asp文档，比如：http://school.cnd8.com/rss.asp？id=42 他们都是XML数据的体现，为了实现XML数据的动态，所以需要使...

Excel 2000：用Delphi自动生成报表

标签：办公软件

摘要：Excel是当前最流行的数据报表制作工具。本文介绍如何使用Delphi来控制Excel完成数据库与报表之间的数据交换，讨论了报表制作工程中的一些细节性问题。关键字：Delphi，Excel，报表引言数据报表作为企事业单位上报和下达的重要信息载体，随着信息化建设的不断推进，在实际的工作中得到了前所未有的应用。因...

教你如何用Photoshop绘制手机

教你如何用Photoshop绘制手机本小节完成的效果图。〈下键盘上的Ctrl+N组合键，或执行菜单栏上的文件→新建命令打开新建对话框，设置参见图4.1-2所示。新建图层，按下键盘上的Ctrl+R组合键打开标尺，创建一条垂直辅助线。以该辅助线为对称中心线，用矩形选框工具(快捷键M)，根据手机形状创建一个矩形选区，如...

教你如何用相机拍大片？

标签：摄影人像摄影静物摄影

教你如何用相机拍大片？简单的构图、光和影已经可以带出特别的味道，在拍摄了很多人像、风景等相片，有空试试利用色彩和线条的组合拍出艺术感的城市建筑相片!看看以下一些小tips吧! (一) 单色调打造艺术感 (Photo by Pedro Lima) 相机 Canon EOS 600D 焦距 18mm 快门 1/100秒光圈 f/3.5 IS...

教你如何用好光影构图