随笔分类 - Delphi
摘要：TStrings是一个抽象类，在实际开发中，应该是除了基本类型外应用得最多的一种数据类型了。常规的用法大家都知道，现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来：1、CommaText2、Delimiter & DelimitedText3、Names &...
阅读全文
摘要：TStrings是一个抽象类，在实际开发中，应该是除了基本类型外应用得最多的一种数据类型了。常规的用法大家都知道，现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来：1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex先看第一个：CommaText。怎么用呢？用代码说话：constconstr :String = 'aaa,bbb,ccc,ddd';varstrs :TStrings;i :Integer;beginstrs := TStringList.Cr
阅读全文
摘要：本文主要描述的是如何利用Delphi对Web IIS进行控制，应该说常用的功能基本都有了。为了共用我已把它做成了一个独立的单元文件，大家可直接下载，这样我们只要直接在程序uses uIIS就可以使用了，同时我也做了一个演示程序。一、如何得到机器上IIS中所有的WEB虚拟站点.function GetWebSiteList(slWebSiteList:TStrings):Integer;varInstallPath: String;WebSite, WebServer, WebRoot: Variant;iCount: Integer;Flag: Boolean;beginResult := 0
阅读全文
摘要：本文主要描述的是如何利用Delphi对Web IIS进行控制，应该说常用的功能基本都有了。为了共用我已把它做成了一个独立的单元文件，大家可直接下载，这样我们只要直接在程序 uses uIIS就可以使用了，同时我也做了一个演示程序。一、如何得到机器上IIS中所...
阅读全文
摘要：uses TypInfo;type TTest = (clRedX, clGreenX,clBlueX,clBlackX,clWhiteX,clYellowX); procedure TForm1.Button1Click(Sender: TObject);v...
阅读全文
摘要：usesTypInfo;typeTTest = (clRedX, clGreenX,clBlueX,clBlackX,clWhiteX,clYellowX);procedure TForm1.Button1Click(Sender: TObject);varti: PTypeInfo;td: PTypeData;i: Integer;beginti := TypeInfo(TTest);td := GetTypeData(ti);for i := td^.MinValue to td^.MaxValue doListBox1.Items.Add(GetEnumName(ti, i));end;
阅读全文
摘要：Ehlib3.0以后的版本虽然支持排序功能，但不支持带有Order By的SQL语句，而且排序很慢；我写的这个排序函数，利用ADO的sort方法，排序很快，几万条数据也是很快。该函数支持Lookup字段排序，不支持计算字段排序，因为计算字段值在内存里高速运算。排序分为：升序、降序和默认三种，支持排序图标。procedureSortDBGridEh(Sender: TObject; ACol: Integer;Column: TColumnEh);varFieldName, SortStr: string;beginScreen.Cursor := crSQLWait;tryif (Sender
阅读全文
摘要：Ehlib3.0以后的版本虽然支持排序功能，但不支持带有Order By的SQL语句，而且排序很慢；我写的这个排序函数，利用ADO的sort方法，排序很快，几万条数据也是很快。该函数支持Lookup字段排序，不支持计算字段排序，因为计算字段值在内存里高速运算。排序分...
阅读全文
摘要：{似乎很多人都需要这个。Delphi自带的listview无法在排序时自动加上箭头。如果设置Column[I].ImageIndex = a，箭头会出现在文字左边，需要修改ComCtrls.pas才能使图片出现在右边。并且TListItem的Caption项会自动加上...
阅读全文
摘要：{似乎很多人都需要这个。Delphi自带的listview无法在排序时自动加上箭头。如果设置Column[I].ImageIndex = a，箭头会出现在文字左边，需要修改ComCtrls.pas才能使图片出现在右边。并且TListItem的Caption项会自动加上图标，没有图标则留出一个空白，非常难看。这个修改过的控件解决了这些问题。这个控件需要从资源文件中装载两个箭头图片，你需要自己制作。或者下载SJListview，里面有SJListview.res资源文件。}{*******************************************************}{ }{Co
阅读全文
摘要：如何实现应用程序中的”回车”成TAB？其实方法有很多种，但哪一种才是最简洁、最灵活的呢？下面的方法就是博主最常使用的方法:一、在你的数据模块中,添加如下代码:interface 。。。。。。 type TMessageHandler = class ...
阅读全文
摘要：在Delphi2007下安装了最新的EhLib v4.2.6，发现 DBGridEh 无法进行排序和过滤，执行操作时无反应。后来发现，如果选择本地过滤和排序的话，一切都会正常；如果是服务器端排序和过滤，则无法正常执行，错误信息为类型转换错误。跟踪EhLib代码发现...
阅读全文
摘要：由于从 Delphi2005开始支持中文标识符，在编写 PASCAL 词法分析器的过程中遇到了这个问题，经过多次试验找到了解决方案，至今未发现问题。代码如下：//判断字符是否是汉字 function IsHZ(ch: WideChar): boolean; ...
阅读全文
摘要：以下内容都是针对李维老师的《Delphi 6/Kylix2--soap/Web Service程序设计篇》一书中的实例的,我的程序框架和他做的基本一致，只是我没有进行压缩，功能上已经全部实现。遇到的问题如下：1.李维老师在书中在数据库部分在更新时服务端用到了clie...
阅读全文
摘要：在界面上放一个TIdHTTP控件，命名为IdHTTP1,再放一个TIdSSLIOHandlerSocket控件，命名为 IdSSLIOHandlerSocket1，将IdHTTP1的IOHandler属性设为IdSSLIOHandlerSocket1，这样就可以随 意...
阅读全文
摘要：Delphi 2009(Tiburon)终于快要发布了『转自李维BLOG』 看來在CodeGear併入了Embarcardero之後，整個公司的文化似乎瞬間活潑了起來，雖然CodeGear尚未正式宣佈Tiburon的發行日期，但是在CodeGear的部落格中...
阅读全文
摘要：最全面的DBGrid标题排序实现方法：procedure TSrv_SJSetForm.DBGridEh1TitleClick(Column: TColumnEh);var s,cFieldName:string; i:integer; DataSet:TDataS...
阅读全文
摘要：FastMM对BCB6或BCB2007而言，对编译加速有非常明显的效果，建议大家去试用。有网友说原来需要6分钟编译完成的程序，使用后只要不到2分钟就完成了，还有一网友（网名：好小）更牛，原BCB中Build All 从1.5小时到2分钟不到！（见：http://...
阅读全文
摘要：网卡工作状态检测，效果如图（Windows XP/2000/2003下测试通过）： 在这一实例中，计算机中有两块网卡，其中一块为无线网卡，另一块为8139的100M以太网卡，无线网卡已连接可上网，有线网卡我故意把网线拔了。从图中可以看出检测完全正确，而且更难能可贵...
阅读全文
摘要：以前在用Delphi 7.0写的Midas程序，只要直接运行一次就会自动向计算机中注册的，但是在Delphi 2007中重新编译后（新建的Midas程序也一样），直接运行程序并不会注册，要求我们必须点击Run|Register AcitveX Server进行注册...
阅读全文
浙公网安备 33010602011771号