自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(211)
  • 收藏
  • 关注

CSDN看到一个问题,蛮有意思,自己写了下代码

一个单词,可以在其相边的两个字母中插入一个“-”(横杠字符)而形成一个字符串,比如单词cake,可以在相连字母间(不同的位置)拖入“-”,而得到如下字符串: c-a-k-e ca-k-e cak-e c-ak-e c-ake ca-ke c-a-ke 如果给定任一个单词(作为输入),按上面的规则,在其相边的两个字母中插入一个“-”,要计算出所有可能的形成的字符串...

2009-08-16 11:00:05 264

原创 很有哲理的一段笑话...

联合利华引进了一条香皂包装生产线,结果发现这条生产线有个缺陷:常常会有盒子里没装入香皂。总不能把空盒子卖给顾客啊,他们只得请了一个学自动化的博士后设计一个方案来分拣空的香皂盒。博士后拉起了一个十几人的科研攻关小组,综合采用了机械、微电子、自动化、X射线探测等技术,花了几十万,成功解决了问题。每当生产线上有空香皂盒通过,两旁的探测器会检测到,并且驱动一只机械手把空皂盒推走。  中...

2009-07-06 12:18:52 267

最近心情不怎么好...

想要发泄!!!!!不知道是不是自己想太多了...

2009-06-19 20:04:15 276

终于搞定了Report Machine的打印判断功能

反正我是没找到可以达到我所需功能的属性哈,经过间断数小时的努力,成功修改了源代码加入了判断是否打印的属性... :D 好困啊,明天9点再起来......

2009-05-29 02:47:57 2200 1

开心...

原来整个系统的所有报表、表单的打印和预览功能可以被我做的这么简单,开心 :D 看来平时的很多独特想法,只需要一个一个去实现就会产生非常神奇的效果,加油。...

2009-05-28 21:22:53 189

这两天搞定两个小工具

哈哈,这两天晚上搞定了两个小工具,平均一天一个 :D 第一个:D6、D7没有整个项目的字符串替换功能,前些天写了一部分,昨天进行了完善和优化,速度嘛比较满意。第二个:早期项目中的一个过程写的不好,要5、6行,现在新写了一个过程,一行搞定。由于一个项目就至少有上百个类似的代码,所以写个工具自动按我的意图去替换掉 :arrow: Enjoy it....

2009-05-19 22:46:55 146

原来可以提取Sql查询分析器...

才知道可以这样做,哈哈,以后在客户电脑上不用装SQL Server了,直接解压就可以连服务器了 :D 大家从附件自己下吧,呵呵。

2009-04-26 19:19:54 162

搞定一个小东西

以后写个SQL语句就可以完成查询报表的框架啦,不用再在dbgrideh中写中文、加合计,报表控件还得写次中文 :D

2009-04-18 20:39:06 132

最近在思考做一套delphi快速生成代码工具

最近打算好好分析下delphi的代码结构,然后做一个自动生成代码文件的工具。因为平时项目中做的很多东西其实是有很大的通用性的,那么如何减少平时重复的劳动呢?思考了很多,觉得在技术上是可行的 :D ...

2009-03-29 11:00:27 313

delphi篮球滚动 with source code(原)

网上找不到可用的gif图片,自己用d7简单的写了下给她 :)

2009-03-15 16:35:19 119

原创 在Delphi中接受文件拖放

[url]http://topic.csdn.net/u/20080121/01/1d2f3ac0-2e59-47e7-9735-2005336556be.html[/url]

2009-02-26 21:48:31 258

原创 Delphi的Lisence被破坏,无法启动!

方法:Delphi7:1) Delete the file: C:\documents and settings\\.borland\registry.slm2) delphi7\bin\D7Reg.exe重新注册即可。来源:[url]http://blog.sina.com.cn/s/blog_5591c079010008zu.html[/url]PS:害我昨晚上...

2009-02-05 11:39:34 167

delphi图片验证码

验证图片效果如下:[img]http://msdn.iteye.com/upload/picture/pic/30401/b8a11b41-a107-3131-9003-dc72b90c2480.jpg[/img]调用方法(控件请使用TImage):uses imgCheckPS;//imgPic: TImage;不加LowerCase直接和ImgStr比较则验证时要区分大小写...

2009-02-02 20:43:03 234

原创 只需10秒,Google也可绑架IE搜索栏

在以往的文章中,将IE浏览器中默认的搜索引擎替换成强大的Google等常用搜索,都需要打开注册表编辑器,然后逐一修改键值来实现,略显麻烦。现在,我们只需下载导入一个注册表文件,便可轻松实现,非常方便。  首先在IE地址栏输入:“www.google.com/google.reg”,确定下载Google.reg,然后双击Google.reg,将该文件导入注册表。关闭IE中已打开的“搜索”栏,...

2009-02-01 19:21:31 152

sqlite的中文编码真是烦人

查询英文时都是正常的,忽然发现查询中文原来还有问题啊!!! :shock: 晚上仔细看看程序该怎么改哈。[code="sql"]create table TempTB(sTemp varchar(20))insert into TempTBselect '迅雷' union allselect '假死状态'select * from TempTB where sTemp l...

2009-01-30 15:53:05 460

无意中翻出了两年前的delphi课程设计

感觉好土啊,仿照书上改的.....

2009-01-29 18:44:51 152

放假了,好好休息下...

明天可以好好的睡个懒觉了,不容易啊!!!

2009-01-20 19:12:03 248

delphi源码笔记1

[code="java"]function IsValidIdent(const Ident: string): Boolean;const Alpha = ['A'..'Z', 'a'..'z', '_']; AlphaNumeric = Alpha + ['0'..'9'];var I: Integer;begin Result := False; i...

2009-01-16 22:16:22 205

C#整点报时

[code="c#"] private int count; private void timer1_Tick(object sender, EventArgs e) { DateTime dt = System.DateTime.Now; if (dt.ToString("mm:ss")=="0...

2009-01-05 12:41:02 1474

1/24=1/a+1/b,a和b的和最小是多少?

大富翁看到这么一个题目:[url]http://www.delphibbs.com/delphibbs/DispQ.asp?LID=3933374[/url]用delphi实现如下:[quote]procedure TForm1.Button1Click(Sender: TObject);var i,j,a,b:integer; sTemp:array [0..1000...

2008-12-02 19:25:57 248

原创 一个小问题(原)

朋友学生问她这样一个问题:有一个整数,除300,262,205得到的余数相同,这个整数是多少?想了下还是用程序来穷举计算快点:[code="java"]var i:integer;begin for i:=1 to 300 do begin if (300 mod i)=(262 mod i) then begin if (300 m...

2008-11-04 20:08:02 116

DropDownList的一个问题

晕的很,不管怎么设DropDownList的z-index都没用哦,始终最上层的。网上的大多数都说用iframe的,不喜欢用这个,还是用js简单的实现了下...[code="java"] function hidDDL() { document.getElementById("QddlCheck").style.visibility...

2008-10-03 22:54:13 106

原创 我的所在地......

[url]http://my.mapbar.com/imap/map.jsp#ac=mm&mapId=520241[/url]

2008-09-21 14:59:46 156

用vs2005开发,写代码的时候发现代码附近有一斜杠

[img]http://p.blog.csdn.net/images/p_blog_csdn_net/s000rd/415247/o_%e6%9c%aa%e5%91%bd%e5%90%8d.bmp[/img]我第一次碰到这个bug时伸手去擦,还以为本本有亮点了呢。 今天终于发现是vs的问题了,因为鼠标放到上面指针会变成默认形状,把截图放上来,呵呵。 [img]http://i3.6.c...

2008-09-18 16:45:48 163

http://download1.csdn.net/test.php

无意中发现csdn这等大网站也放了php探针的?http://download1.csdn.net/test.php

2008-09-16 19:33:35 179

原创 当前线程不在单线程单元中,因此无法实例化 ActiveX 控件

解决方法: 在主程序的入口处加上[STAThread],原来framework为运行com组件时,为提高性能默认使用多线程,但有的com组件不能使用多线程,否则就报错.例: [STAThread] public static void Main(){ frmMain f = new frmMain(); f.Sh...

2008-09-16 19:05:06 744

60.12.193.200

最近老是弹出广告,起初还以为是中毒了呢,终于查到是网通搞的鬼了,就是60.12.193.200这个该死的IP。想不到这几天烦心的问题最后打个10060电话就搞定了,哈哈哈......

2008-09-07 21:19:17 85

原创 app_offline.htm

昨天关闭Visual sutdio2005的时候死机,我就在任务管理器中用进程结束把VS2005关闭了,但是打开的时候就出现这样的提示:This application is currently offline. To enable the application, remove the app_offline.htm file from the application root director...

2008-09-05 00:15:14 115

见鬼,开机出现ibmpmsvc.exe应用程序错误

肯定是微软的自动更新造成的,刚自动更新了一个ibm的什么补丁,重启就出现ibmpmsvc.exe应用程序错误,系统都进不去,幸好恢复到上次正确的配置可以进,NND :shock: ...

2008-07-25 19:56:31 279

存储过程解密(原)

随便写了个存储过程解密的东东...

2008-06-13 23:31:06 180

在别人基础上修改的查询分析器(原)

呵呵,本来想加上不少自己独特的功能的,只不过原作者的一些代码还没看懂,先发个简单修改过的上来...备注:版权还是归原作者所有,“关于”里保留了原作者的信息,应该不算侵权啥的吧 :D ...

2008-06-01 12:02:31 145

打算抽空仿 SQL Server2000 做个查询分析器

呵呵,打算抽空仿 SQL Server2000 做个查询分析器,并加入自己的特殊功能,先放个要实现的功能的可执行程序(空壳)上来:)

2008-05-31 22:34:02 102

sqlConvert v1.0(原)

使用说明1、delphi_sql转换为mssql:示例如下:sql.add('select * from tb1');sql.add(' where AutoId>0and CId= ''1'''); 转换为:select * from tb1 where AutoId>0and CId= '1' 实际实现的功能为:a、双引号变单引号...

2008-05-26 22:55:37 117

地震好恐怖```

家乡发生地震,好恐怖,幸好我们那边没啥事,现在天天中午下班的时候,晚上都在看新闻、视频,关心家乡的人民```

2008-05-14 21:14:39 132

dsgnintf.dcu 找不到的解决方案(原)

这是我D7下装coolform控件时遇到的这个问题哈。1、添加 lib\designide.dcp到控件的dpk文件的requires部分2、在控件的pas源文件中凡是uses dsgnintf的地方改成uses designintf,designeditors3、加入搜索路径C:\Program Files\Borland\Delphi7\Source\ToolsAPI4...

2008-05-07 21:28:07 283

判断一个控件的某个事件有没有过程(转)

if assigned(BtnOk.onClick) then... 文章转自:[url]http://topic.csdn.net/t/20040511/13/3053975.html[/url]

2008-05-05 10:47:15 142

解决Delphi的剪贴板的AsText方法乱码的问题(转)

Wrong character in ClipBoard.AsText??In Delphi, use ClipBoard unit, a common method "ClipBoard.AsText" is doing a wrong way when using non-English character. How to fix it? Look into the source co...

2008-05-02 11:17:17 403

终于把ExpressQuantumGrid装起来了

试了N个版本,N种方法,功夫不负有心人呐``` :D

2008-04-07 20:56:39 458

DELPHI只有一个控件面板“standard”(转)

重新安装DELPHI 7.0 以后,只有一个控件面板“standard”,不知道什么原因,经查可以这样解决:关闭Delphi,然后编辑注册表,删除HKEY_CURRENT_USER\Software\Borland\Delphi这个键,然后重启Delphi即可。它会重建这个键,并恢复默认设置。解决方法来自:http://www.go321.cn/html/server/li...

2008-04-03 22:39:31 213

DELPHI禁止窗体移动(转)

通常我们都是用拦截WM_NCHITTEST消息来移动无标题的窗口,介绍这个用法的文章很多,可是用WM_NCHITTEST同样能禁止窗口移动. TForm1 = class(TForm) private { Private declarations } procedure WMNCHITTEST(var Msg: TWMNCHITTEST); message WM...

2008-03-30 22:04:01 681

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除