Delphi 随笔
whw6_faye
这个作者很懒,什么都没留下…
展开
-
Delphi打开窗体时报"Corrupt Portfolio Stream"
今天在打开一个Delphi窗体时报了这么一个错误: Corrupt Portfolio Stream查了一下,主要是由于Delphi窗体的*.ddp文件损坏引起的.解决方法: 删除.ddp 文件,重新打开窗体即可。有时候还是不行,这个时候用记事本打开 那个.dfm文件,通常窗体都是以Text形式存储的,如果发现是二进制代码,那么八成窗体文件也坏了,这个时候删除这个窗体文件, 把原创 2007-04-04 10:29:00 · 11883 阅读 · 5 评论 -
如何在Com下使用TStringList
unit uForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton;转载 2007-04-05 12:45:00 · 1086 阅读 · 1 评论 -
ClientDataSet的动态排序
ClientDataSet 的动态排序可以通过以下代码实现1.单一字段的升序和降序with cds dobegin IndexDefs.Update; if IndexDefs.IndexOf(index1) >= 0 then DeleteIndex(index1); AddIndex(index1, SortFieldName, [], ); IndexNam原创 2007-08-22 11:54:00 · 6635 阅读 · 0 评论 -
SQL Server中采用BULK INSERT实现大数据量文本文件批量导入
今天做了一个基于SQL Server的文本文件批量导入工具,和大家分享一下心得。 方案一:遍历文本文件,解析每一行,形成SQL语句后向数据库插入。方案二遍历文本文件,解析每一行,将SQL语句保存到文本文件然后执行。方案三使用SQL Server Bulk Insert功能披露导入数据,然后在数据库中做数据处理。刚开始用方案一做的,50MB文本文件导入大约20-25分钟,原创 2007-06-19 12:02:00 · 2490 阅读 · 1 评论 -
DateTimePicker 控件出现 "You must be in ShowCheckbox mode to set to this date" 的错误
今天碰到了这个错误,去网上查了一下,解释五花八门,看了一下似乎都不是真正原因。无奈之下只能自己摸索了了。后来看了一下,这个问题非常简单,和数据库什么的一点关系都没有,是一个很纯粹的控件问题。首先,在出错的时候发现操作系统发了一个消息并且调用了这个函数 TCommonCalendar.SetDate(0),在Delphi的ComCtrls单元可以找到 procedure TCommo原创 2008-02-25 19:48:00 · 7021 阅读 · 2 评论 -
在Delphi中使用三层结构ClientDataSet出现 Unable to find record or record ...
很多人都碰到这个问题国内大部分的解释五花八门,做法是用 wherekeyonly 不要用whereall做法可以解决问题原因完全错了问题很简单,碰到这种问题肯定带了日期字段注意一下,Delphi传过去的参数,日期不带千分秒,而数据库本身产生的日期( getdate() )带千分秒,所以whereall就不好用了有人说是触发器,有人说是2个日期字段就不行,有人说BDE不行,原创 2008-01-10 14:46:00 · 1685 阅读 · 1 评论 -
Delphi操作Excel大全
DELPHI操作excel(转) (一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口:ExcelApp.Visible转载 2008-05-13 12:27:00 · 720 阅读 · 0 评论 -
将应用程序最小化到任务栏
最近写了个小程序,用到了将应用程序最小化到任务栏的技巧(陈年老技巧了),怕以后不记得了,贴出来与大家分享。 具体原理不说了,就是Windows API. unit fMain;interfaceuses // 记得要有 Windows, Messages,ShellAPI; const WM_BARICON=WM_U原创 2008-11-09 19:33:00 · 1705 阅读 · 1 评论