RAD Studio XE
文章平均质量分 57
三界
关关雎鸠,在河之洲,窈窕淑女,君子好逑。
展开
-
delphi发送焦点移动消息的函数及参数
procedure TForm_BaseMDI.FormKeyPress(Sender: TObject; var Key: Char);begin if Key = #13 then begin Key := #0; SendMessage(Handle, 48384, 9, 0); end;end; 且Form.Keypr原创 2009-11-26 09:09:00 · 1244 阅读 · 0 评论 -
XE2 日期字符串转日期的函数
//可识别处理多种格式.Function myStrToDateTime(sdate:String):TDateTime;const dSeparator = '-';var dtpos,tmpos:Integer;begin result := 0; FormatSettings.DateSeparator := dSeparator; Fo原创 2012-08-20 17:54:20 · 1401 阅读 · 1 评论 -
Delphi ClientDataSet复制记录
数据源记录集:ClientDataSetSource;目标记录集:ClientDataSetCopy1)复制一条记录。 ClientDataSetCopy.Close; ClientDataSetCopy.Fields.Clear; ClientDataSetCopy.FieldDefs.Clear; //复制字段定义 ClientDataSetCopy.Fiel原创 2015-12-17 14:42:11 · 6949 阅读 · 0 评论 -
Delphi 调用webservice接口的三类方法
一、使用向导 1.导入wsdl文件:file--new----other----webservice---WSDLimporter---输入wsdl地址 http://www.webxml.com.cn/webservices/qqOnlineWebService.asmx?wsdl 完成之后,即可导入wsdl文件转载 2016-01-13 10:51:39 · 11307 阅读 · 0 评论 -
强大的字符串转DateTime/Date类型函数
字符串转DateTime/Date类型:支持格式:2016-2-6;16-02-06;20160206;160206;06-02-2016;06Feb2016;6Feb2016;06FEB16;6FEB16;06-FEB-2016;6-FEB-16;日期分隔符号支持4个:/-.\interfaceuses system.RegularExpressionsCore,sy原创 2016-09-06 12:34:47 · 4655 阅读 · 0 评论 -
DevExpress控件cxGrid实现多列模糊匹配输入的完美解决方案
1、把列的Properties属性设置为ExtLookupComboBox。Properties.IncrementalFiltering := False;Properties.CaseSensitiveSearch := False; Properties.DropDownListStyle := lsEditList;当然,接着要完成设置Properties.View,P原创 2016-08-13 14:06:51 · 5013 阅读 · 0 评论 -
Delphi操作EXCEL
Uses ExcelXP, Vcl.OleServer;//用Delphi组件TExcelApplication的操作方法.function TFormExcelImport.ActiveExcelFile(const FileName :String): Boolean;var i: Integer; // LCID: Integer; ExcelAppli原创 2016-10-18 17:54:59 · 1563 阅读 · 0 评论 -
hp机器的PLATFORM环境变量对RAD XE的编译、DevExpress Vcl安装的冲突问题解决
hp手提电脑,用安装助手DXAutoInstaller 安装DEVEXPRESS VCL出现下图这个情况,Rad XE在编译时也出现Platform不能识别的问题!折腾了好久,终于找到解决办法了! 上官网下载一个试用版的DevExpress Vcl安装, 再卸载试用版,重新用它DXAutoInstaller安装破解版,OK。不再提示Unknown p原创 2017-01-12 11:13:18 · 769 阅读 · 0 评论 -
TMemoryStream、String与OleVariant互转
//////////////////////////////////////////////////////////////////////////////////功能: STRING 的内容流化到 OLEVARIANT 中//参数://///////////////////////////////////////////////////////////////////////////转载 2017-02-09 09:37:58 · 1096 阅读 · 0 评论 -
DevExpress vcl 动态调用皮肤
dxSkinController可以在运行时动态调入皮肤,不用在设计期Use一大堆皮肤文件。把要用的皮肤用Skin Editor编辑一个SkinRes后缀的文件,然后在程序中动态调入就可以了。uses dxSkinsDefaultPainters;procedure TForm1.FormCreate(Sender: TObject);begincxComboBox1.转载 2017-01-21 21:14:23 · 1836 阅读 · 0 评论 -
cxGrid应用笔记
1.获得当前列号 cxGridDBTableView1.Controller.FocusedColumnIndex; cxGridDBTableView1.Controller.FocusedItemIndex;2.获得当前行号 cxGridDBTableView1.Controller.FocusedRowIndex; cxGridDBTableView1原创 2017-01-23 14:25:40 · 810 阅读 · 0 评论 -
cxGrid继承类
记录,方便查阅。TcxGridTcxCustomGridTcxControlTCustomControlTWinControlTControlTComponentTPersistentTObject----------------------------------------TcxGridLevelTcxComponentTComponen原创 2012-09-05 10:10:08 · 1161 阅读 · 0 评论 -
ClientdataSet 三层中主从表的操作
摸索了好久,终于找到了3层主从表设置的方法,为了纪念这些天来的努力,记上日记,也为不了解的朋友来学习,如果有什么不对的地方则给我留言。三层中主从表的操作(删除、新增、修改)一定要在一个事物中完成,那在Delphi中的事物又如何控制呢?我们在开发客户端时,如果为了在一个事物中而用TSqlConnection的事物来控制是徒劳的,没有一点意义,因为真正事物控制是在服务端的TDataSetProvi转载 2012-08-28 16:13:36 · 3653 阅读 · 0 评论 -
DELPHI四舍五入函数
四舍五入是一种应用非常广泛的近似计算方法,其有算术舍入法和银行家舍入法两种。Delphi 的 Round 函数使用的是银行家舍入法,没有封装的算术舍入法函数。下面是本人自定义的算术舍入法函数。适合整数使用,负数的情况还需要改写。FUNCTION TForm1.FixRoundTo(aValue :Extended;digit : integer) : Extended;BEGIN result := trunc(aValue*Power(10,digit) + 0.5)/Power(10,digit);原创 2011-04-19 10:04:00 · 1466 阅读 · 0 评论 -
ADO读取EXCEL
DELPHI ADOQuery读取EXCEL文件的方法.原创 2013-07-24 10:04:22 · 1460 阅读 · 0 评论 -
使用Delphi调用WebServices接口的简单应用实例
<span style="font-family: function() { var id = (this._style >> 24) & 0xff; color: #000000; font-size: medium;">使用Delphi调用WebServices接口的简单应用实例 Delphi从6.0就开始支持Web Services的开发和应用了,本文通过使用Delph原创 2009-11-26 09:06:00 · 15571 阅读 · 1 评论 -
解析LoadLibrary,GetProcAddress,FreeLibrary
GetProcAddress(Hinstance,lpname)用来获取指定的动态连接库函数的地址 Hinstance为由LoadLibrary返回的模块句柄,lpname为文件名/函数名,返回值,成功返回动态连接库的地址,失败返回NULL, FreeLibrary(Hinstance),Hinstance为由LoadLibrary返回的模块句柄,功能是:释放动态连接库! 动态引入方式就是使用Windows的两个API即LoadLibrary和GetProcAddress,前者用于获得DLL的句柄,后者用于原创 2011-02-25 09:34:00 · 3825 阅读 · 0 评论 -
一个很有用的DELPHI字符操作函数
<br />Unit<br />SysUtils<br />LastDelimiter(const Delimiters, S: string): Integer;<br />Returns the byte index of the last character that matches any character in a specified set of delimiters.<br />Delimiters:指定的分割符,可以是多个。<br />S:源字符串。<br />For example:<b原创 2011-02-22 16:28:00 · 784 阅读 · 0 评论 -
用TWebBrowser抓取页面
用DELPHI开发工具,在窗体上放一个TWebBrowser和Memo1控件。USES MSHTML; procedure TForm1.RzButton1Click(Sender: TObject);begin//打开页面地址 WebBrowser1.Navigate('http://www.gooooal.com/live/live.html'); Application.ProcessMessages; //SLEEP(100); 此处最好设置一下延迟。end;procedure TForm1原创 2011-02-22 17:02:00 · 1014 阅读 · 0 评论 -
StringGrid类详解
事件句柄1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer; var Value: string);Options.goEditing = true才能触发此事件。此事件在单元格进入可编辑状态时触发。参数ACol,ARow为当前单元格的列号和行号(列号和行号都按顺序从0开始编码)。参数Value为当前单元格中的内容。原创 2011-11-30 12:49:31 · 5045 阅读 · 1 评论 -
RAD XE反射机制的应用——只获取父类的方法
应用:获取父类的方法,不包括当前类中定义的方法。uses Rtti,TypInfo;procedure TForm1.Button1Click(Sender: TObject);var ms: TArray; m: TRttiMethod; mps: TArray; mp: TRttiParameter;begin Memo1.Clear原创 2011-12-04 23:45:10 · 942 阅读 · 0 评论 -
在DLL中使用DevExpress的问题
在DLL中使用DevExpress的问题在DLL中封装了Form时使用了Devexpress控件.在程序运行时,主Exe程序可以显示使用的皮肤。可是,调用DLL中的窗口时无法显示皮肤的样式。还是原始的Windows窗口样式。方法:在dll窗体中加入skincontrol控件,然后uses ..., dxGDIPlusAPI,然后在窗体代码文件的后面加翻译 2012-06-11 23:04:31 · 1757 阅读 · 0 评论 -
一段很有趣的代码
两段代码, edit2.Text结果截然不同!procedure TForm3.Button1Click(Sender: TObject); var tmpstr:string;begin tmpstr := funtest(4); //Text = 4 edit1.Text := tmpstr; tmpstr := funtest(2); edit2.Text :...原创 2012-07-12 12:31:49 · 1013 阅读 · 0 评论 -
理解RESTful架构
越来越多的人开始意识到,网站即软件,而且是一种新型的软件。这种"互联网软件"采用客户端/服务器模式,建立在分布式体系上,通过互联网通信,具有高延时(high latency)、高并发等特点。网站开发,完全可以采用软件开发的模式。但是传统上,软件和网络是两个不同的领域,很少有交集;软件开发主要针对单机环境,网络则主要研究系统之间的通信。互联网的兴起,使得这两个领域开始融合,现转载 2012-08-22 08:42:25 · 640 阅读 · 0 评论 -
设置cxGrid的最佳效果体验
一:浏览模式:浏览模式即不可编辑模式,但又可以选择单元内容复制的效果设置。uses cxGridTableView, cxGridDBBandedTableView;procedure BrowserGridSetting(var cxGridTableView: TcxGridTableView);var icol:Integer;begin WIT原创 2012-09-05 00:57:04 · 1328 阅读 · 0 评论 -
Delphi实现网页自动登陆
[转]Delphi实现网页自动登陆 收藏比如操作 CSDN的登录 先用WebBrowser定位到登录页面 WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/'); 然后,看其HTML源代码,发现 名字为 ctl00$CPH_Co转载 2012-08-28 15:06:29 · 2616 阅读 · 0 评论 -
根据类名字符串创建实例
//先在声明TADeptForm 类的单元注册,或者选择在公共接口单元注册!initialization; RegisterClasses([TADeptForm]);实现代码: with TFormClass(FindClass('TADeptForm')).Create(Application) do begin show; end;原创 2012-06-17 12:17:25 · 1289 阅读 · 0 评论 -
cxGrid.DataController.DataModeController.GridMode对标题列排序功能的影响
cxGrid.DataController.DataModeController.GridMode=True时,点击列标题无法自动排序。cxGrid.DataController.DataModeController.GridMode=True时,才可以如下操作:with (cxGridMaster.ActiveView as TcxGridDBBandedTableView) do ...原创 2018-12-05 11:59:46 · 709 阅读 · 0 评论