|
|
|
|
|
 |
delphi 条形码处理 |
| |
日期：2007-08-02 10:07:44
点击：91 评论：0  |
|
How can I calculate a checksum by modulus 10 which is used in barcodes? |
|
|
delphi Olevariant |
| |
日期：2007-07-24 10:45:49
点击：42 评论：0 |
|
==这是Delphi帮助注明: The OleVariant type exists on both the Windows and Linux platforms. The main difference between Variant and OleVariant is that Variant can contain data types that only the current application knows what to do with. OleVariant c |
|
|
delphi 如何加系统主菜单 |
| |
日期：2007-07-08 11:28:35
点击：20 评论：0 |
|
type TyourForm = class(TForm) private { Private declarations } procedure wmSysCommand(var Message:TMessage); message WM_SYSCOMMAND; end; const ID_ABOUT = Word(-1); implementation procedure TyourForm.wmSysCommand; begin if Message.wParam = ID_ABOUT t |
|
|
delphi 重命名、COPY、移动文件 |
| |
日期：2007-07-08 11:25:21
点击：28 评论：0 |
|
RenameFile('Oldname', 'Newname'); CopyFile(PChar('Oldname'), PChar('Newname'), False); MoveFile(PChar('Oldname'), PChar('Newname')); |
|
|
delphi 检查回收站是否为已清空 |
| |
日期：2007-07-08 11:24:36
点击：19 评论：0 |
|
uses Activex,ShlObj,ComObj; functionRecycleBinIsEmpty:Boolean; const CLSID_IRecycleBin:TGUID=(D1:$645FF040;D2:$5081;D3:$101B; D4:($9F,$08,$00,$AA,$00,$2F,$95,$4E)); var EnumIDList:IEnumIDList; FileItemIDList:PItemIDList; ItemCount:ULONG; RecycleBin: |
|
|
delphi 如何建议快捷方式 |
| |
日期：2007-07-08 11:10:50
点击：9 评论：0 |
|
In this article, you will learn how to create standard Windows shortcuts using Delphi code. Creating a Shell Link - Shortcut Add a button (button1) on a form (form1) and try this code: uses ShlObj, ActiveX, ComObj; ... procedure TForm1.Button1Click( |
|
|
delphi 添加热键 |
| |
日期：2007-07-04 09:54:14
点击：18 评论：0 |
|
You want to use the RegisterHotKey API. if not RegisterHotKey(Form1.Handle, 0, MOD_CONTROL or MOD_ALT, Ord('R') ) then RaiseLastOSError; ` And create a message handler: procedure WMHotKey(var Message:TWMHotKey); message WM_HOTKEY; |
|
|
delphi 文本导入数据库 |
| |
日期：2007-07-04 08:44:11
点击：28 评论：0 |
|
I'm connecting to several txt files delimited with ";".
They are all the same format (columns, rows and data), but on one file there
is an error.
The data in one column is |
|
|
delphi eof 或Bof为真，或可能记录已被删除 |
| |
日期：2007-07-04 08:37:52
点击：16 评论：0 |
|
if adoquery.recordset.RecordCount0 then begin adoquery.Recordset.MoveFirst; while not adoquery.recordset.Eof do begin ... ... adoquery.Recordset.MoveNext; end; end; |
|
|
delphi 文件压缩 |
| |
日期：2007-07-04 08:35:44
点击：22 评论：0 |
|
here are some simple routines to compress and decompress a file: procedure CompressFile(const inFile, outFile: String); var zStream : TZCompressionStream; inStream : TFileStream; outStream: TFileStream; size : Cardinal; begin // open the in file and |
|
|
delphi Delphi_三谈多态——善用virtual |
| |
日期：2007-07-03 08:53:08
点击：107 评论：0 |
|
多态性，是一种能给程序带来灵活性的东西。看过《设计模式》的程序员应该都知道，相当多的模式（几乎所有）都是依靠多态来实现的，以此给程序提供可扩展、可重用性。在《再谈多态向上映射及VMT／DMT》一文中，提到了多态性是依赖于虚函数／虚方法（即动态绑定）来实现 |
|
|
delphi Delphi_Shell编程---如何判断一目录是否共享 |
| |
日期：2007-07-03 08:51:06
点击：11 评论：0 |
|
面函数要额外引用 ShlObj, ComObj, ActiveX 单元。 function TForm1.IfFolderShared(FullFolderPath: string): Boolean; //将TStrRet类型转换为字符串 function StrRetToString(PIDL: PItemIDList; StrRet: TStrRet; Flag:string=): string; var P: PChar; begin case |
|
|
delphi Delphi用拼音首字符序列实现检索功能 |
| |
日期：2007-07-03 08:39:03
点击：23 评论：0 |
|
在日常工作和生活中我们经常使用电子记事本查找个人通讯录信息，或在单位的应用程序中查询客户档案或业务资料，这个过程中往往需要输入大量的汉字信息，对于熟悉计算机的人这已经是一件头疼的事，那些不太熟悉计算机或根本不懂汉字输入的用户简直就望而生畏。作为对数 |
|
|
delphi Delphi_三层开发基本概念介绍 |
| |
日期：2007-07-03 08:13:18
点击：69 评论：0 |
|
三层客户/服务器 一：优点：灵活性和可扩展性。 应用三层开发技术(分布式)的原因 (参考书目: Delphi 5.x分布式多层应用系统篇) 一:解决客户机/服务器结构的维护成本问题，改善客户机/服务器结构延展性问题。 客户机/服务器结构支持的用户人数有一定限度（200人以下）。 |
|
|
|
|
|
|
|
