Delphi 使同类的组件进行同样的操作

Delphi 为组件制作立体效果，实现组件的阴影、投影效果，这种阴影效果不是很细腻，不过大致也说得过去，必竟实现方法简单，原生Delphi方法实现，不依靠三方控件，最终效果请参见测试截图所示。

Delphi 返回底数的任何次幂，本演示求2的4次幂、3的3次幂，求解过程如下： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Edit1.Text := FloatToStr(Power(2,4)); 　　 Edit2.Text := FloatToStr(Power(3,3)); 　　end; 　　以上代码定义在按钮事件中，当用户单击按钮后激活。

Delphi 利用API绘制弧形， 　　begin 　　 ArcRect := ClientRect; 　　 Canvas.Pen.Width:=2; 　　 for i:=1 to 10 do 　　 begin 　　 Arc(Canvas.Handle,ArcRect.Left,ArcRect.Top,ArcRect.Right, 　　 ArcRect.Bottom,ArcRect.Right,(ArcRect.Bottom-ArcRect.Top) div 2, 　　 ArcRect.Left,(ArcRect.Bottom-ArcRect.Top) div 2); 　　 InflateRect(ArcRect,-2,-2); 　　 Canvas.Pen.Color := PaletteIndex(i+10); 　　 end;

轻型网络聊天Delphi程序-源码，类似聊天室， 很简单，这是个多年前的网络编程例子，聊天过程中显示对方的IP，和当前好友姓名，还支持删除聊天记录。用户注册时，可对注册信息进行初始验证，比如用户名是否存在、姓名和IP地址不能空等，有一些技巧对Delphi打基础有帮助。

枚举线程的Delphi实例代码，Delphi 枚举线程的例子应该很多了，这一个比较简单的那种，可以为学习Delphi的新手朋友提供一些参考思路，运行界面效果如下图所示。源代码编译于Delphi7.0环境。

Delphi在TListView中显示数据库，ListView控件的简单用法，在日常的编程开发中，这个比较常用 。 　　self.ListView1.ViewStyle:=vsReport; 　　for i:=0 to Query1.FieldCount-1 do 　　begin 　　 TempColumn:=self.ListView1.Columns.Add; 　　 TempColumn.Caption:=Query1.Fields[i].FieldName; 　　end; 　　Query1.First; 　　while not Query1.Eof do 　　begin 　　 TempItem:=self.ListView1.Items.Add; 　　 TempItem.Caption:=Query1.Fields[0].AsString; 　　 for i:=1 to Query1.FieldCount-1 do 　　 begin 　　 TempItem.SubItems.Add(Query1.Fields[i].AsString); 　　 end; 　　 Query1.Next; 　　end;

Delphi 演示如何播放GIF动画，其实就是在窗口中显示GIF图像，这是一种连续显示类似于动画效果的图像格式，在窗体上只要可以正常显示这种文件，就能实现播放功能，如示例截图所示的效果。

Delphi7 计算汉字的笔划有几划，输入一个汉字，本程序将计算出这个字有多少笔划，最后将结果将输出一个整数。

Delphi 7.0 提取字符串中指定子字符串后的字符串，这个平时在字符处理时候使用几率也挺高的，获取指定字符串后面的字符串，比如获取扩展名等也可以用此方法，本例中要用到After函数，测试时，当单击按钮时，执行以下代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Edit3.Text := After(Edit2.Text,Edit1.Text); 　　end; 　　end.

Delphi 获得汉字区位码的源码，输入指定汉字，将得到这些汉字的区位码，关键代码请参考以下的源码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 str:string; 　　 hi,lo:integer; 　　begin 　　 str:=trim(edit2.Text); 　　 hi:=byte(str[1])-$a0; 　　 lo:=byte(str[2])-$a0; 　　 edit1.Text:=inttostr(hi)+inttostr(lo); 　　end;