Delphi获取从开机到现在CPU运行的周期数

Delphi演示如何实现UniCode编码、汉字的繁简互转功能，同时将字符转换为unicode码值（十六进制）： 　　常用编码： 　　codepage=936 简体中文GBK 　　codepage=950 繁体中文BIG5 　　codepage=437 美国/加拿大英语 　　codepage=932 日文 　　codepage=949 韩文 　　codepage=866 俄文 　　codepage=65001 unicode UTF-8 　　本例子中仅使用了936、950，如果你要进行其他语言的编码转换，仅需相应改变其中的编码值即可。

Delphi 获取磁盘序号，获取序号非磁盘编号，也不是序列号。运行后的效果如图所示，应该是所选择的磁盘在我的电脑中的排列序号。 　　操作时，只需选择对应的盘符，然后单击按钮即可，请参见测试截图所示。

Delphi 使用TreeView来显示数据库信息，从数据库中读取数据，然后生成树形交叉节点的菜单，这种菜单通俗的叫做“树形菜单”，也是大家平时比较常见的菜单形式之一。 　　function TreeAddItem(Sender: TTreeView;ItemList: TStrings;BookMark: TBookMark;Resort: Boolean):TTreeNode; 　　var 　　 ThisNode,Node: TTreeNode; 　　 i: integer; 　　begin 　　 Node := Nil; 　　 for i := 0 to ItemList.Count-1 do 　　 begin 　　 ThisNode := TreeFindItem(Sender,Node,ItemList[i]); 　　 if(ThisNodeNil) then Node := ThisNode 　　 else begin 　　 if I　　 then begin 　　 if I=0 then Node := Sender.items.Add(Node, Itemlist[i]) 　　 else Node := Sender.items.AddChild(Node, Itemlist[i]); 　　 end 　　 else begin 　　 if I=0 then Node := Sender.items.AddObject(Node, Itemlist[i],Bookmark) 　　 else Node := Sender.items.AddChildObject(Node, Itemlist[i],Bookmark); 　　 end; 　　 Node.stateIndex := Node.level + 1; 　　 if Resort and (Node.parent nil) then Node.parent.alphasort; 　　 end; 　　 end; 　　 Result := Node; 　　end;

Delphi 实现TDBGrid组件的斑马线显示，也就是TDBGrid的不同行显示不同的颜色，设置不同的背景色，让数据显示更清淅，看上去像斑马线，俗称隔行换色，本例子是结合数据库实现的，若要正常运行，请先附加Database数据库中的SQLSERVER文件，附加后在本示例中修改数据库连接字符串即可。

Delphi实现RGB色环多次渐变，生成一个渐变的圆形，颜色渐变步长可自定义，在代码中，为了绘制出来的圆好看，分成四个部分进行绘制，此部分代码展示如下： 　　if (degree >= 0+qki) and (degree 45+qki) and (degree 135+qki) and (degree 215+qki) and (degree 315+qki) and (degree

Delphi 7.0 在局域网内发消息，这个本站收集有很多例子了，学习Delphi网络编程可参考的例子，Delphi网络发消息，局域网发消息的例子，敬请关注。 　　局域网内发消息核心代码： 　　procedure TFrmSendMessage.Sendmessage(const msg,tomachine,from:string); 　　var 　　 ms:PWideChar; 　　begin 　　 ms:=PWIDEChar(WideString(msg)); 　　 NetMessageBufferSend(nil,pWidechar(WideString(tomachine)),pWidechar(WideString(from)),ms,length(msg)*2); 　　end; 　　procedure TFrmSendMessage.BtnSendClick(Sender: TObject); 　　begin 　　 Sendmessage(mmMessage.Text,EDTo.Text,EDFrom.Text); 　　end;

Delphi 将字符串中的任意字符转换成大写，可将给定一串字符中指定的字符转换成大写，如示例运行效果所示，将字符串中的所有l字符变成大写的L。

Delphi渐变圆形的实现方法，RGB色环空心绘制演示源码： 　　oBmp := TBitmap.Create; //为了代码整齐就不写try了 　　oBmp.PixelFormat := ABitmap.PixelFormat; 　　oBmp.Width := ABitmap.Width; 　　oBmp.Height := ABitmap.Height; 　　BitBlt(oBmp.Canvas.Handle, 0, 0, oBmp.Width, oBmp.Height, ABitmap.Canvas.Handle, 80, 80, SRCCOPY); //要拷贝的位图 　　oRgn := CreateEllipticRgn(0, 0, 100, 100); //创建圆形区域 　　SelectClipRgn(ABitmap.Canvas.Handle, oRgn); //选择剪切区域 　　ABitmap.Canvas.Draw(0, 0, oBmp); //位图位于区域内的部分加载

Delphi 简单的文件查看器，可以获取并显示文件的显示名，获取并显示文件类型信息，获取并显示表示该程序的图标，获取文件属性信息，始获取并显示文件上次修改的日期和时间，处理用户没有选择文件而选择了文件夹或驱动器的转化异常。

Delphi 将TColor换算成RGB，将一种颜色按照RGB颜色分量的形式分离出来，显示各自的颜色值，类似于一个拾色器的功能，你可从列表中选择任意一种颜色，然后查看获取到的颜色分量的值，如示例截图所示。