2014年1月3日
Delphi 生日提醒的方法《LceMeaning》
摘要： 以下代码经本人在Delphi XE2 下编写并通过。procedure TForm55.btnLoadClick(Sender: TObject);var StartDate,EndDate,MBDate : TDate; NowYear,MBMonth,MBDay,I : Integer; sql : string;begin SysconfigRun; IsStart := Sysconfig.ReadBool('RemindContent','MemberBirthday',True); RVar := Sysconfig.ReadString(' 阅读全文
posted @ 2014-01-03 11:17 冰意 LceMeaning 阅读(555) 评论(0) 推荐(0)
Delphi TPerlRegEx 正则表达式替换字符《LceMeaning》
摘要： 以下代码经本人在Delphi XE2 下编写并通过。function Matching(Code,MName,Temp,Source: string) : string;var qryQuery : TADOQuery; sql,Balance,SouStr : string; reg: TPerlRegEx;begin reg := TPerlRegEx.Create; qryQuery := Tadoquery.Create(Application); qryQuery.Connection := Form1.con1; sql := 'select * from Custo... 阅读全文
posted @ 2014-01-03 11:10 冰意 LceMeaning 阅读(385) 评论(0) 推荐(0)
Delphi 调用一截图工具进行截图的方法《LceMeaning》
摘要： 以下代码经本人在Delphi XE2下编写并通过。procedure TForm5.img1Click(Sender: TObject);var i : Integer;begin try if img1.Picture.Graphic = nil then begin if MessageBox(Handle, PChar(' 是否需要截图? 点击 ''''是(Y)'''' 后请等待1秒进入截图! '), PChar('截图工具')... 阅读全文
posted @ 2014-01-03 11:06 冰意 LceMeaning 阅读(571) 评论(0) 推荐(0)
Delphi 选择指定打印机的方法《LceMeaning》
摘要： 以下代码经本人Delphi XE2下编写并通过 case Sysconfig.ReadInteger('Printer','IsPrint',0) of 0: begin if Sysconfig.ReadBool('Printer','Spending',False) then begin if MessageBox(Handle, PChar('是否打印消费单据? ... 阅读全文
posted @ 2014-01-03 11:00 冰意 LceMeaning 阅读(2711) 评论(0) 推荐(0)
Delphi 编写菜单权限设置的一个方法《LceMeaning》
摘要： 以下本人在Delphi XE2 进行编写并通过unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.Menus, Vcl.StdCtrls, Data.DB, Data.Win.ADODB, CommCtrl, Vcl.Grids, Vcl.DBGrids;type TForm1 = cl... 阅读全文
posted @ 2014-01-03 10:54 冰意 LceMeaning 阅读(1446) 评论(0) 推荐(0)
Delphi 字符类转换集《转》
摘要： 一、string转为ansistring1、直接赋值 （有警告）2、ansistring()类型强制转换。（无警告）二、ansistring 转为string1、直接赋值 （有警告）2、string()类型强制转换。（无警告）三、string 转为Tbytes1、bytes:= bytesof(str) 已转为ansi编码2、bytes:= widebytesof(str) UNICODE 编码四、ansistring 转为Tbytes1、bytes:= bytesof(str) ansi编码2、bytes:= widebytesof(string(str)) UNICODE 编码五、Tbyt 阅读全文
posted @ 2014-01-03 10:41 冰意 LceMeaning 阅读(887) 评论(0) 推荐(0)