
老Delphi
Delphi79
这个作者很懒,什么都没留下…
展开
专栏收录文章
- 默认排序
- 最新发布
- 最早发布
- 最多阅读
- 最少阅读
-
initialization和finalization
Delphi 的pas文件中可以有initialization和finalization两个关键字,1。initialization关键字:在initialization关键字到finalization关键字之间的代码会在Form加载到内存时执行。利用这个可以对全局变量或局部变量进行初始化操作。(全局变量就是本Form之外的类或Form都可以使用的变量,全局变量在interface部分中用原创 2010-04-13 10:27:00 · 4172 阅读 · 0 评论 -
Tclientdataset合并修改日志--MergeChangeLog
一句话:合并客户端更新过的数据 如果你编辑client dataset中的数据,所有的修改都只存在于一个内存中的修改日志中,这个日志可以独立于数据而维护,即使这个过程对使用client dataset的对象来说是透明的。这就是说,导航或者显示它的数据的控件可以看到被修改后的数据。如果你不想使用回退修改的功能,你可以通过调用MergeChangelog合并修改日志到client datas原创 2010-04-13 15:14:00 · 4189 阅读 · 0 评论 -
SQL:搜索节点之子子孙孙
CREATE FUNCTION [dbo].[pyx_fn_getX] ( @id INT )RETURNS @tbl TABLE ( ID INT, Parent INT )AS BEGIN DECLARE @tb_id TABLE ( ID INT, lvls INT ) DECLARE @lvl INT SET @lvl = 1 INSERT INTO @tb_id原创 2010-04-13 16:16:00 · 635 阅读 · 0 评论 -
继承窗体
新建立一个窗口,用代码改动继承 alt+F12 如: object testForm: TtestForm 改成 inherited testForm: TtestFormalt+F12原创 2010-04-13 11:08:00 · 571 阅读 · 0 评论 -
生成一个全球唯一标识符
Delphi:var FGuid: TGUID;begin CreateGUID(FGuid); edt1.Text := GUIDToString(FGuid); edt1.Text := edt1.Text + + IntToStr(Length(edt1.Text)); edt1.Text := Copy(GUIDToString(FGuid), 2, 36);end;原创 2010-04-13 15:37:00 · 2434 阅读 · 0 评论 -
Delphi 2005帮助文档无法使用的解决办法
现象:安装Delphi2005后帮助文档无法使用,按F1或点击Delphi菜单中的“帮助”会提示“No xxxxxxxxxx installed”。解决方法:0:未安装帮助文档的先安装;1、修改注册表中HKEY_CLASSES_ROOT/AppID/DExplore.exe的AppID的数据值改为: {4A79114D-19E4-11d3-B86B-00C04F79F802} ;2、找原创 2010-04-03 14:44:00 · 878 阅读 · 0 评论 -
PostMessage和SendMessage区别
PostMessage和SendMessage区别 PostMessage和SendMessage区别在控制别的应用程序的时候,经常需要等待直到某个功能结束,例如: 打开一个窗口-->等待直到窗口结束 这个时候就可以用到SendMessage 如果在打开这个窗口后仍然需要对该窗口的界面进行设置,比如Edit的value等等,比如: 打开一个窗口-->控制窗口的control的属性 这个时候就需要P转载 2010-05-04 10:01:00 · 1813 阅读 · 0 评论