|
|||
|
摘要：
//首先感谢原作者，但当初在csdn上搜索到该单元时，就没原作者的信息（程序里的有些乱码的注释应该是原作者留下的吧？呵呵）//有不足的地方还请各位看官多多指点哈 ^_^ (* Modify By 角落的青苔@2005/05/13 说明：增加导出过程中的回调功能（用户停止，进度条） 是否在第一行插入FieldName 改错：以前只能对word类型数值写入，D... 阅读全文
posted @ 2006-03-04 17:25 chance 阅读(361) 评论(0) 推荐(0)
摘要：
网上找来的 感觉对入门者很有启示 收藏一下了!No.1 判断逻辑类型 }var B: Boolean;beginB := Boolean(2); //这样只是为了调试//B := True;if B = True then ShowMessage('B = True'); //不建议//不安全///////if B then ShowMessage('B'); //建议//简短end; va... 阅读全文
posted @ 2006-03-04 17:24 chance 阅读(162) 评论(0) 推荐(0)
摘要：
【前言】 Outlook Express是一款大家比较熟悉的邮件工具，其HTML编辑器一直是众多程序员竞相模仿的目标。作者最近在一个项目的开发中，开始接触HTML编辑器的设计，并遇到了很多的难题。目前网络上关于IE编程的文章中，涉及MSHTML编辑器的部分，又大多集中在VC领域，用Delphi作为解决方案的少之又少。在经过一番艰难的摸索之后，作者积累了一些成功的经验。并撰成此文，希望与大家共... 阅读全文
posted @ 2006-03-04 17:21 chance 阅读(1002) 评论(1) 推荐(1)
摘要：
uses ComObj, Grids, Db, DBTables, ADODB; procedure load(rowCount,colCount:integer; fileName:String; var grid:TStringGrid);//从Excel中读取数据到 Gridvar v:variant; i,j:integer;begin grid.RowCount:=rowC... 阅读全文
posted @ 2006-03-04 17:19 chance 阅读(273) 评论(0) 推荐(0)
摘要：
//问题描述见 howto 一文，代码最终版本见下文 //标红色部分为解决问题的关键 //标蓝色部分为datatree所要求的，即前文提供的解决方案，但并不奏效 procedure TScriptProperty.DataTreeDragDrop(Sender: TBaseVirtualTree; Source: TObject; DataObject: IDataObject; Form... 阅读全文
posted @ 2006-03-04 17:18 chance 阅读(249) 评论(0) 推荐(0)
摘要：
unit DBGridEhToExcel; interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ComCtrls, ExtCtrls, StdCtrls, Gauges, DBGridEh, ShellApi; type TTitleC... 阅读全文
posted @ 2006-03-04 17:17 chance 阅读(405) 评论(0) 推荐(0)
摘要：
abort 函数 引起放弃的意外处理 addexitproc 函数 将一过程添加到运行时库的结束过程表中 addr 函数 返回指定对象的地址 adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf 序列 allocmem 函数 在堆栈上分配给定大小的块 ansicomparestr 函数 比较字符串（区分大小写） ansicomparetext 函数 比较字符串（不区... 阅读全文
posted @ 2006-03-04 17:15 chance 阅读(266) 评论(0) 推荐(0)
摘要：
◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(''newfile.txt''),pchar(''//computername/direction/targer.txt''),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL： var ... 阅读全文
posted @ 2006-03-04 17:13 chance 阅读(196) 评论(0) 推荐(0) |
||
浙公网安备 33010602011771号