Delphi 将字符串中的任意字符转换成大写

本源码演示如何实现Delphi TdxDBTreeView节点全部展开或收拢功能，也就是大家熟悉的树形菜单节点的折叠或展开功能，在平时的使用中，树形节点是很常用的一个菜单功能，本例子的树形菜单节点功能读取自数据库，因此在测试前请连接好数据库。 　　//单击全部展开按钮 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 dxDBTreeView1.FullExpand; 　　end; 　　 //单击全部收拢按钮 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 dxDBTreeView1.FullCollapse; 　　end;

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 制作的文字屏保，文字交替变化，晃动鼠标结束屏保。本程序的亮点是对文字动画效果的生成和控制。具有文字渐变和水平平移动画。

“欢迎连接到简单TCP服务器”，这是本代码编译成功，运行程序后连接成功后的第一个提示。Delphi编写设计一个基本的CS结构的TCP服务器，客户端代码同样完整，指定主机IP、端口后，就可连接该服务器，客户端和服务端代码都要编译才能运行，先运行服务端并设置好，再启动客户端，然后进行消息发送和接收。

Delphi 数列的排列组合一例，演示0~N位数的任意组合，组合的数字在0~5之间，需要输入1~6整数，排列结果会显示在文本框组件中。要点代码如下： 　　ssList := TStringList.Create; 　　try 　　 if (nBase < 1) then 　　 begin 　　 end 　　 else 　　 begin 　　 if (sList.Count = 0) then 　　 begin 　　 for nIdx := 0 to num-1 do 　　 ssList.Add(a[nIdx]); 　　 end 　　 else 　　 begin 　　 for nIdx := 0 to num-1 do 　　 for nSidx := 0 to sList.Count-1 do 　　 if (Pos(a[nIdx], sList.Strings[nSidx]) = 0) then 　　 ssList.Add(a[nIdx]+sList.Strings[nSidx]); 　　 end; 　　 Combine(nBase-1, ssList); 　　 end; 　　 if ssList.Count > 0 then 　　 begin 　　 sList.Clear; 　　 sList.Text := ssList.Text;sslist.Count 　　 end; 　　finally 　　 ssList.Free; 　　end;

Delphi 返回指定数值的绝对值，计算正负数绝对值的例子，FloatToStr(Abs)函数用法代码，示例中计算了小数、整数两种数据类型的绝对值，单击对应的箭头，即可查看计算结果，对应的三种计算方法，请参见以下代码： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 Edit2.Text := FloatToStr(Abs(-1.5)); 　　end; 　　procedure TForm1.SpeedButton2Click(Sender: TObject); 　　begin 　　 Edit4.Text := FloatToStr(Abs(-200)); 　　end; 　　procedure TForm1.SpeedButton3Click(Sender: TObject); 　　begin 　　 Edit6.Text := FloatToStr(Abs(-1.80)); 　　end;

EI3.0(DELPHI源码)，据说挺完整的，可以下载一下试试

Delphi 7在数据库中存取图像，这个示例代码较早，面向的图像格式为BMP，JPG、GIF之类的图片格式未做测试，或许也可以。示例中将4张图片保存到数据库中，然后程序将从数据库中输出这些图片，通过程序的操作，你只需选择对应的图片，即可从数据库中读取出对应的图片。

Delphi 单击StringGrid列进行排序，StringGrid行的任意列单击，就会重新排序一次，排序规则可以自己定义，这种排序功能可有效提升StringGrid显示数据的易用性，增强其功能，提升用户体验，本例子源代码相当简单，对学习者也有很好的帮助作用。参见以下代码： 　　begin 　　 if Button = mbRight then Exit; 　　 TStringGrid(Sender).MouseToCell(X, Y, vCol, vRow); 　　 if (vRow < 0) or (vRow >= TStringGrid(Sender).FixedRows) then Exit; 　　 StringGridRowSort(TStringGrid(Sender), vCol, vOldCol = vCol); 　　 if vOldCol = vCol then 　　 vOldCol := - vOldCol 　　 else 　　 vOldCol := vCol; 　　end;

中控指纹delphi开发实例，完成了指纹采集，数据库指纹模块保存和比对 (In the control fingerprint the delphi developers instances, complete fingerprint acquisition, the database fingerprint module save and comparison)