Delphi 7.0 使用Quotedstr函数返回字符串的引证串

Delphi 获取MonthCalendar中选择的日期，其实就是完成一个时间、日期的选择功能，年份、月份、日期、时间都可自定义调整并选择，这个简单的例子，可演示Delphi中MonthCalendar的用法，生成一个日期时间选择器功能。下面是相关代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 Year,Month,Days: Word; 　　begin 　　 DecodeDate(MonthCalendar1.Date,Year,Month,Days); 　　 Edit1.Text:=IntToStr(Year); 　　 Edit2.Text:=IntToStr(Month); 　　 Edit3.Text:=IntToStr(Days); 　　end; 　　全部源码请下载本实例包。

在Delphi中进行 YCrCb RGB 颜色值转换，载入一张测试图片，右侧显示的转换后的颜色图像，文本框中显示的是各个转换过的颜色值。希望通过这个Delphi例子，帮你了解一下YCrCb向RGB颜色值的转换过程，转换方法和思路，本源码中则是具体的实战代码，请下载后研究。

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锁定计算机，锁定电脑，不允许别人可以操作，类似Windows自带的锁定程序，其实锁定是非常简单的，不几行代码就能实现： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 LockWorkStation; 　　end; 　　若需要完整的源码，请下载本源码包。

这是个有意思的窗口设计实例源码，Delphi实现窗体失去焦点时标题栏闪动特效，flashwindow特效，这样可吸引操作者注意，其实实现这一功能并不复杂，以下代码最关键： 　　procedure TForm1.Timer1Timer(Sender: TObject); 　　begin 　　 flashwindow(Handle,true); 　　end; 　　procedure TForm1.WMACTIVATEAPP(var message: TWMACTIVATEAPP); 　　begin 　　 if Message.Active then 　　 form1.Timer1.Enabled := false 　　 else 　　 form1.Timer1.Enabled := true; 　　end; 　　完整源码请下载。

delphi获取图片指定点RGB颜色值，载入一张BMP图像，鼠标单击图像任意处，将获取该处的RGB颜色分量图。任何一种颜色都是由RGB分量值构成，获取这些分量值，就可以改变这些值，从而改变颜色，为程序的进一步处理提供基础保障，获取RGB颜色分量，相关代码如下： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 if OpenPictureDialog1.Execute then 　　 begin 　　 image1.Picture.LoadFromFile(OpenPicturedialog1.FileName); 　　 Form1.Canvas.Draw(0,0,image1.Picture.Bitmap); 　　 end; 　　end;

Delphi 使DBGrid支持鼠标滚轮，测试前请确保程序已连接好数据库，否则会有很长一段时间反应，读取的数据会显示在DBGrid控件中，请在DBGrid组件中滚动鼠标滚轮，可将整个列表上下滚动，便于浏览数据，这个功能在一些软件中经常会遇到，具体编写思路请下载源码研究。

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 数列的排列组合一例，演示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 POP3接收邮件-Email源码实例，像是一个邮件客户端那样，设定好邮件服务器相关参数后，可连接到邮件服务器，接收邮件，本例子仅包括邮件接收功能，不能发送邮件哦。使用本程序需要设置的参数：邮件服务器POP3、端口、邮件帐户、密码，连接成功后，邮件列表会显示在“邮件”一栏中，单击任意一个邮件，详细信息会显示在“内容”栏中。