冰意 LceMeaning - 博客园

2014年1月8日

摘要： edt2.Text := FormatFloat('0.00',StrToFloat(edt1.Text)); //按格式输出Params.Add('c='+Utf8ToAnsi(UTF8Encode(trim(Memo1.Text)))); //将Memo1.text转为UTF8编码格式阅读全文

posted @ 2014-01-08 15:37 冰意 LceMeaning 阅读(205) 评论(0) 推荐(0)

Delphi Access 表中查询日期时间提示出错的问题《转》

摘要： Delphi中的“：”符合有特殊的用途，它表示参数的意思：就是比如如果9：30,系统会认为30是9的参数对象，这就是为什么系统报错“定义了不正确的参数对象”。而且Delphi有着很强的自检功能，要想SQL查询数据正常必须要先关闭控件的自检关闭，所以解决方案就是设置 MADOQuery.ParamCheck := False;然后如果怕有不好的效果的话就当程序运行完之后再设置回来 MADOQuery.ParamCheck := True。阅读全文

posted @ 2014-01-08 14:51 冰意 LceMeaning 阅读(464) 评论(0) 推荐(0)

2014年1月7日

Delphi XE5 android 获取网络状态《转》

摘要： unit Androidapi.JNI.Network;interfacefunction IsConnected: Boolean;function IsWiFiConnected: Boolean;function IsMobileConnected: Boolean;implementationuses System.SysUtils, Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.JavaTypes, FMX.Helpers.Android;type JConnect... 阅读全文

posted @ 2014-01-07 17:46 冰意 LceMeaning 阅读(1448) 评论(0) 推荐(1)

Android 读取QR二维码方法《转》

摘要： { Google ZXing Call demo Delphi Version: Delphi XE5 Version 19.0.13476.4176 By: flcop(zylove619@hotmail.com) }unit UMain;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, ... 阅读全文

posted @ 2014-01-07 17:09 冰意 LceMeaning 阅读(1306) 评论(0) 推荐(1)

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 阅读(1445) 评论(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)

LceMeaning

努力成就美好!