SDL & Object Pascal (Delphi) [2] 显示中文字符
一些基础的问题我不再赘述了，查阅帮助文档（Object Pascal SDL Doc.chm）显然比在这看我胡扯合适得多。那些画像素，获取像素信息，显示BMP文件多数时候只要把那些代码复制过来基本就能工作。下面说的是怎样显示中文。
其实SDL加上ttf支持时（需要将对应的dll文件添加到工程目录里）是完全可以显示中文的，简体和繁体都没问题（Object Pascal版本也不缺功能），但是只能用Unicode编码。这就是说，你必须选择一个Unicode编码完整的字体文件（或者说至少你需要的那些字符是完整的）。Windows下面这样的字体有很多，我推荐的有：
简体中文：宋体大字符集，微软雅黑；
繁体中文：细明体，微软正黑，标楷体。
这些基本是中文地区最重要的几种字体。一个缺憾就是用于显示简体中文的楷体（和其他字体）优秀的并不多。
输出中文时，可以先写这样的一个子程作为基础：
procedure DrawText(word: PUint16; x_pos, y_pos: integer; color: Uint32);
var
text: PSDL_Surface;
dest: TSDL_Rect;
begin
text := TTF_RenderUNICODE_blended(font, word, TSDL_Color(Color));
dest.x := x_pos;
dest.y := y_pos;
SDL_BlitSurface(text,nil, screen, @dest);
SDL_FreeSurface(text);
end;
screen就是已经定义好的那个主屏幕的标记。font是一个指向字体文件的指针，可以这样定义和初始化：
全局变量：
font: PTTF_Font;
在初始化状态的子程中：
TTF_Init;
font:=TTF_OpenFont('kaiu.ttf', 20);
当然font的定义和初始化写在DrawText里面也一样，只是写在全局变量里面就可以只初始化一次，可能会效率高一些。同样把DrawText里面用的那个text写成全局变量也是一个选择。在程序结束时，还要释放这些资源。
kaiu就是标楷体的文件名字，20是字号，需要把字体文件也放在工程目录里面。
TTF_RenderUNICODE_blended这个函数是以blended效果输出文字，以TTF_RenderUNICODE开头的函数有3个，对应的是不同的效果。
SDL_BlitSurface大致可以理解为在“表面”上再贴一层。
调用DrawText的方法如下：
str: WideString;
......
str:=' 这是一个显示中文的测试';
DrawText(@str[1], 100, 100, $FFFFFF);
Sdl_UpdateRect(screen, 0, 0, screen.w, screen.h);
注意一定要用WideString（或PWideChar）类型！
str前面我添加了一个空格。这是因为我发现有些字体中�
相关文档：
Delphi 2010只剩下六天的试用期了,15天的试用期过得真快.百度了很久也依旧未搜索到破解补丁,看来这版本的防盗版工作做得确实不错.无奈之下只好自己对它做做手脚了.
测试了一下,delphi只有在启动程序的时候把时间记录给更新到当前日期,系统内并不驻留相应的 ......
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。
一、创建和释放TRegistry对象
1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create；
&n ......
消息的处理流程，流程如下：
其派发处理过程详细如下：
注意：TWinControl里面WndProc有调用系统API DefWindowProc,该函数调用缺省的窗口过程来为应用程序没有处理的任何窗口消息提供缺省的处理。而TWinControl里面DefaultHandler又调用了系统API CallWindowProc，该函数CallWindowProc将消息信息传送给指定的窗� ......
技术交流,DH讲解. 这个是在CSDN上面看见的问题.我说说自己的想法. procedure TForm1.btn1Click(Sender: TObject);
var
Str:String;
begin
Str:='abc' ;
Str:=str+'d';
str:=copy(Str,1,3);
str:=UpperCase(str);
end;
问题1答案:2010下
Unit4.pas.29: begin
005144E0 55 p ......
网上Down的一个单元.自己改了下. unit utCRC32;
interface
uses
Windows,SysUtils,Classes;
const //Crc32表
Crc32Tab: Array[0..$FF] of LongInt =
($00000000, $77073096, $ee0e612c, $990951ba, $076dc419, $706af48f,
$e963a535, $9e6495a3, $0edb8832, $79dcb8a4, $e0d5e91e, $97d2d988,
$0 ......
