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前面我添加了一个空格。这是因为我发现有些字体中�
相关文档：
Chr 将一个有序数据转换为一个ANSI字符
Ord 将一个有序类型值转换为它的序号
Round 转换一个实型值为四舍五入后的整型值
Trunc 转换一个实型值为小数截断后的整型值
Int 返回浮点数的整数部分
IntToStr 将数值转换为字符� ......
有些时候,要写一些程序,在 JAVA 里面好难实现, 但如果使用其它编程语言却又比较容易时,我们不妨通过 JNI 来让不同语言的程序共同完成.
JNI 的教程, 网上 C 的比较多,Java 也提供了 javah.exe 为 C 语言的 JNI 程序生成头文件, 如果你是一个 Delphi 编程员, 能否让 JAVA 与 Delphi 程序交互呢? 答案是肯定的,今天我们就来 ......
Delphi动态事件深入分析
2009-2-7
作者:不得闲
核心提示：本实验证明了在类中方法的调用时候，所有的方法都隐含了一个Self参数，并且该参数作为对象方法的第一个参数传递...
首先做一个空窗体，放入一Button。
在implementation下面声明两个方法如下：
//外部方法，只声明一个参数，此时按照标准的对象内部事件方法T ......
技术交流,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 ......
