-
CRC算法的实现...
unit Crc32; interface --- 转截ksaiy的Blog uses Windows,SysUtils,Classes; const //Crc32表 Table:Array[0..255] of DWORD= ( $00000000, $77073096, $EE0E612C, $990951BA, $076DC419, $706AF48F, $E963A535, $9E6495A3, $0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D9...
2008-04-09 04:22:00
-
实现界面跟随鼠标移动的实例
unit Unit_Mouse; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; {======================================================= DESIGN BY : 花好月圆 / 玉面书生 DATE: 2005-01-30 SITE: http...
2008-04-09 04:22:00
-
Delphi编程控制摄像头
你的电脑有没有摄像头？看到别人用 QQ 玩视屏你会不会去想怎么实现的？ 这里介绍使用 DELPHI 使用 MS 的 AVICAP32.DLL 就可轻松的实现对摄像头编程， 如果再加上你的网络编程水平，实现一个视屏聊天就不成什么问题了。 看看下面代码的代码： const WM_CAP_START = WM_U...
2008-04-09 04:21:59
-
delphi学习笔记（1）－object pascal语言的数据类型
学了十多天的delphi，感觉这是易上手好应用。在这里把最基本的知识的总结出来。 一、数据类型： (1) 基本数据类型： a、 整数类型： (通用类型32位：Integer－有符号；Cardinal－无符号) 具体： 有符号：Shortint8位，Smallint16位，Longint32位 无符号：Byte8位，Word...
2008-04-09 04:21:58
-
用 Delphi 学设计模式（二） 之 工厂方法篇 （原创）
? 开闭原则： 一个模块应该易于扩展，免于修改 问题 ：请考虑上一章的例子中，如果添加一个新的具体水果类西瓜需要做哪些工作。 本章完成以下内容： 1、代码用支持中文的 Delphi 2005 编译并通过，并去除了其中一些无关紧要的地方，如异常处理等 ； 2、重新设计一个情...
2008-04-09 04:21:57
-
Delphi 函数参考
Delphi字符串函数大全 uses StrUtils; 【字符串函数大全】 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas 功能 返回两个字符串是否相似 说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 参...
2008-04-09 04:21:56
-
How can I create a tray icon
{***************************************************** * How can I create a tray icon? * Fortunately, creating an application that runs in the system tray is pretty easy - only one (API) function, Shell_NotifyIcon, is needed to accomplish the task....
2008-04-09 04:21:54
-
GetIdeDiskSerialNumber
// (c) Alex Konshin mailto:alexk@mtgroup.ru 30 jul 2000 program IdeSN ; // PURPOSE: Simple console application that extract first IDE disk serial number. {$APPTYPE CONSOLE} uses Windows , SysUtils ; // only for Win32Platform and SysErrorMessage //--...
2008-04-09 04:21:54
-
双对象列表，双字符串列表
//在平时的应用中,经常会碰到一些,对象集TAs中每个A对象都对应每个B对象,对象TBs中每个对象B都对应一个A对象. 如果在A和B中各放一个Tobject属性来进行互相引用,也是非常不错的,但那样依赖关系太强了. //同样,我们经常会碰到一些这样的情况,有一串的编号和一串的名称进...
2008-04-09 04:21:56
-
设计模式之singleton
program singletonTest; uses Forms, mainfrm in ''''mainfrm.pas'''' {Form1}, singletonfrm in ''''singletonfrm.pas'''' {Form2}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. unit singletonfrm; int...
2008-04-09 04:21:52
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash