DELPHI的通配符比较

2017年02月06日 89 阅读

DELPHI的通配符比较2010-10-31李均宇我以前以为中没有通配符的现成函数，后来找到了MatchesMask（）。以前在未找到这个函数时我曾经在处于自由状态下尚有心情时便自已动手来作一个自定义的函数来实现这个功能。程序的算法较复杂,先在子串的末尾加上‘？*’，再读取子串,查找子串中的通配符之间的字符,亦即子串中的子串,然后在源串中依次查找是否含有子串中的子串,不过实现起来还是费不少周折。这个函数实现了以下功能：1。可能大多数...

Delphi开发Web Server程序返回图像的方法

2017年02月06日 108 阅读

Delphi开发Web Server程序返回图像的方法2010-10-31Internet/Intranet在九十年代可能是最流行的计算机术语了，不管是计算机行业内的人士还是计算机外的人士，都会使用Internet/Intranet，有的查资料，有的是宣传自己和公司，甚至有许多以前从没有想到用Internet的东西现在也在用Internet来解决，比如有的程控数字计算机维护用Internet来解决。在这一切应用之中，基于Web Server的应用程序的开发...

Delphi下汉字输入法的编程及使用

2017年02月06日 104 阅读

Delphi下汉字输入法的编程及使用2010-10-31许多Windows应用程序的中西文录入界面中，中西文的录入需要反复切换汉字输入法，这样使用起来非常麻烦，下面来介绍一种比较简便的解决方法。本文的程序设计环境为Delphi Client/Server Suit Ver 3.0（以下简称 3.0）和中文Windows 95。1．Delphi下的Imename、Imemode属性在Delphi 3.0中的Tedit、Tmemo、TmaskEdit等编辑元件...

Delphi制作带图标的弹出式选单

2017年02月06日 97 阅读

Delphi制作带图标的弹出式选单2010-10-31Windows界面的一大特色就是显示丰富多彩的图标，图标不仅美化了Windows的桌面，而且便于直观的操作，给用户带来了极大的方便。在设计程序界面时，Windows风格是很好的参考。一般提供两种设置图标的方法，一个是在Project Options 中指定应用程序的图标，另一个是在Object Inspector 的properties页中提供Icon特性。如果想设计出像Windows开始选单那样美丽的...

DELPHI中的静态虚拟及动态方法函数的区别

2017年02月06日 96 阅读

DELPHI中的静态虚拟及动态方法函数的区别2010-10-311、静态方法是方法的缺省类型，对它就像对通常的过程和函数那样调用，编译器知道这些方法的地址，所以调用一个静态方法时它能把运行信息静态地链接进可执行文件，所以，静态方法速度最快，但它们却不能被覆盖来支持多态性。2、虚拟方法和静态方法的调用方式相同。由于虚拟方法能被覆盖，在代码中调用一个指定的虚拟方法时编译器并不知道它的地址，因此，编译器通过建立虚拟方法表（VMT）来查找在运行时的函数地址。所有的...

Delphi中实现让TListView接收文件拖放

2017年02月06日 110 阅读

Delphi中实现让TListView接收文件拖放2010-10-31在使用Delphi开发应用程序时常常要使用到TListView列表视控件，但是仅仅使用TListView的原有属性、方法和事件是不够的，常常需要在程序开发过程中对列表视的功能进行扩展，比如对列表视添加任意列组合排序、ListItem拖动、CustomDraw自绘制、加入背景图等功能，由此可见Delphi自带的TListView列表视控件功能有限，并不让人感到满意。为了让列表视具有更多的功...

从数据库绘制MapX地图

2017年02月06日 99 阅读

从数据库绘制MapX地图2010-10-311、在中建立如下的表用于存储坐标：ID integer //唯一编号Name string //名称（标签）X float //地图坐标XY float //地图坐标Y假设这个表命名为XUnit2、编辑MapX地图，添加一个新的Layer，定义好你希望将来添加图层显示样式，然后设置这个图层不可见、不可编辑，此图层名称假设为“企事业单位”。3、在你的程序中添加MapX控件，命名为Map14、...

delphi中制作抖动窗体

2017年02月06日 95 阅读

delphi中制作抖动窗体2010-10-31跌跌撞撞以下程序将教你如何用制作一个窗体,窗体一旦运行将在屏幕上不断抖动.定义两个变量:varBackLeft,BackTop,I:integer;//保存窗体的leftBackLeft := Left;//保存窗体的topBackTop := Top;//其中number可由你设置一个灵活的数字,当然值由你定for I:=1 to Number dobegin//水平抖动Left:= （BackLeft-10...

Delphi与DirectX之DelphiX（46）:TDIB.DoAntiAlias;

2017年02月06日 92 阅读

Delphi与DirectX之DelphiX（46）:TDIB.DoAntiAlias;2010-10-31 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DXP...

Delphi与DirectX之DelphiX（47）:TDIB.DoContrast（）;

2017年02月06日 97 阅读

Delphi与DirectX之DelphiX（47）:TDIB.DoContrast（）;2010-10-31 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DX...

Delphi与DirectX之DelphiX（48）:TDIB.DoFishEye（）;

2017年02月06日 99 阅读

Delphi与DirectX之DelphiX（48）:TDIB.DoFishEye（）;2010-10-31 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DXP...

Delphi与DirectX之DelphiX（49）:TDIB.DoGrayScale;

2017年02月06日 71 阅读

Delphi与DirectX之DelphiX（49）:TDIB.DoGrayScale;2010-10-31 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DXP...

Delphi与DirectX之DelphiX（50）:TDIB.DoLightness（）;

2017年02月06日 94 阅读

Delphi与DirectX之DelphiX（50）:TDIB.DoLightness（）;2010-10-31 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） D...

Delphi与DirectX之DelphiX（51）:TDIB.DoDarkness（）;

2017年02月06日 82 阅读

Delphi与DirectX之DelphiX（51）:TDIB.DoDarkness（）;2010-10-31 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DX...

Delphi与DirectX之DelphiX（52）:TDIB.DoSaturation（）;

2017年02月06日 94 阅读

Delphi与DirectX之DelphiX（52）:TDIB.DoSaturation（）;2010-10-31 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） ...

Delphi与DirectX之DelphiX（53）:TDIB.DoSplitBlur（）;

2017年02月06日 93 阅读

Delphi与DirectX之DelphiX（53）:TDIB.DoSplitBlur（）;2010-10-31 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） D...

Delphi与DirectX之DelphiX（54）:TDIB.DoGaussianBlur（）;

2017年02月06日 83 阅读

Delphi与DirectX之DelphiX（54）:TDIB.DoGaussianBlur（）;2010-10-31 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） ...

Delphi与DirectX之DelphiX（55）:TDIB.DoMosaic（）;

2017年02月06日 88 阅读

Delphi与DirectX之DelphiX（55）:TDIB.DoMosaic（）;2010-10-31 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type TForm1 = class（TForm） DXPa...

DELPHI操纵声卡

2017年02月06日 89 阅读

DELPHI操纵声卡2010-11-07检查声卡是否安装uses mmsystem;...function Soundkarte:Boolean;beginResult := WaveOutGetNumDevs >0;end;检测声卡存在如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡：p...

DELPHI程序注册码设计

2017年02月06日 75 阅读

DELPHI程序注册码设计2010-11-07当你辛辛苦苦用做好了一个你认为十分不错的程序,你是否想把它发布出去成为共享软件呢？做为一个共享软件,注册码肯定是少不了的,你可以通过判断程序是否注册来进行功能,时间或一些其它限制.现在就介绍一种简单的注册码制造方法.思路是这样的:程序运行时先检测注册表,如果找到注册项,则表明已经注册,如果没有找到注册项,则提示要求注册.<注册例程>在DELPHI下新建一工程,放置Edit1,Edit2,Label1...