del88 - 博客园

2011年11月22日

摘要：出现这个错误的原因是：引用的单元里的函数，没有声明 unit StrToMd5;interfaceuses System.SysUtils,IdHashMessageDigest,IdGlobal, IdHash;//声明function str_to_md5(Str: String): Stri 阅读全文

posted @ 2011-11-22 17:43 del88 阅读(9) 评论(0) 推荐(0) 编辑

2011年11月21日

有些人,你无法改变,天生就是低下人

摘要：有一种人，没有学问，对自己要求不高，甘愿在农村生活，说什么咱就是农村人能给人家城市里的人比不，这样的话，还显得自己很懂事，哎，对于这样的人，学问、悟性，都在那放着，你无法改变，只能默默应允，生活中有好多自己不喜欢的人，自己除了让这些人不影响到自己的工作，还是让这些人不影响到自己的工作，对此，当无法阅读全文

posted @ 2011-11-21 21:45 del88 阅读(14) 评论(0) 推荐(0) 编辑

格式化输出函数(1): FormatDateTime 大总结

摘要： var s: string;begin //FormatDateTime 的参数1是 String 格式指令, 参数2是 TDateTime 类型的时间 s := FormatDateTime('c', Now); {返回: 2007-12-18 23:56:05} {指令 c 表示用短格式显示日期阅读全文

posted @ 2011-11-21 10:26 del88 阅读(13) 评论(0) 推荐(0) 编辑

2011年11月18日

硬盘分区终极操作

摘要：工具一:分区助手,以后就用它了,真是超级爽,再也不用硬盘分区魔术师了.(以后无论什么分区就用它了) 官方:http://www.disktool.cn/index.html (帮助文档简洁明了,我靠,操作超级人性化) 工具2:DiskGenius(用着不如工具一,功能也和工具一差远了,只是工具一,刚阅读全文

posted @ 2011-11-18 14:26 del88 阅读(11) 评论(0) 推荐(0) 编辑

2011年11月13日

Delphi 枚举仅一篇

摘要： delphi 枚举与字符串互转，直接上代码。 unit Unit3; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 阅读全文

posted @ 2011-11-13 18:28 del88 阅读(16) 评论(0) 推荐(0) 编辑

函数返回数组-例子

摘要：对.先定义一个数组类型. 然后函数返回这个数组类型就可以了. type TStrArr = array of string;function strSplit(strSplit,str:string):TStrArr ;var sl:TStringList; I: Integer;begin t 阅读全文

posted @ 2011-11-13 15:38 del88 阅读(27) 评论(0) 推荐(0) 编辑

2011年11月12日

函数返回多个值（数组）

摘要：今天在搞一个程序中，要求返回多个值，我知道用数组使用，但以前还没有做过，于是在网上找了一下，得到这个东东，自己定义一个类型，然后将函数的类型设为自定义类型就可以了，我定义的是字符串数组，函数返回值当然是多个字符串了，呵呵。可以函数过程中设定返回数组的大小，SetLength (result,5)就阅读全文

posted @ 2011-11-12 09:43 del88 阅读(8) 评论(0) 推荐(0) 编辑

2011年11月11日

新配电脑,新硬盘分区、装系统-----整套方案

摘要：发现了一种针对新电脑装机的硬盘分区，装系统的快速方法：用大白菜的U盘启动工具，制作好U盘启动后，把一个系统的GHO文件复制到 U盘上然后用进入U盘的WINPE系统，然后利用桌面上的 DiskGenius分区工具进行快速分区打开后点快速分区进行快速分区分区好后，再利用桌面上的通用G 阅读全文

posted @ 2011-11-11 11:03 del88 阅读(23) 评论(0) 推荐(0) 编辑

2011年11月10日

WIN7和XP下硬盘分区

摘要：本人喜欢研究电脑这个东西，每次都是自己从网上买零件然后回来自己组装，每次组装电脑最头大的一件事就是硬盘分区讨厌复杂的什么DOS分区，而且这种分区使用很局限，步骤很多，对我这种记忆力不好的，又不经常重装系统的人，实在是不适合。预期记命令或步骤我觉得不如用好一款软件而且这款软件还能保证我阅读全文

posted @ 2011-11-10 16:37 del88 阅读(230) 评论(0) 推荐(0) 编辑

WIN7 旗舰版原版64位自创安装方法无需光盘

摘要：因为我之前的用的系统是 32位的 XP 系统这个时候如果想改成原版-旗舰版-64位的系统就要动动脑筋了，如果下载了正版原版的64位的旗舰版您会发现无法在XP上直接双击安装原因是您本身的电脑现在是32位的XP ，而64位的安装包在32位的XP上运行不起来怎么办呢？阅读全文

posted @ 2011-11-10 15:34 del88 阅读(19) 评论(0) 推荐(0) 编辑

WIN PE 获取不到硬盘

摘要：因为我的硬盘是6G/S 主板也支持 6G/S 但是主板需要装上驱动后才支持 6G/S 所以如果重装系统的话要用 SATA2口先把系统装上然后装下主板驱动然后再把 SATA线换成 SATA3 接口而 WINPE 装之前如果没有切换到 SATA 2 接口上阅读全文

posted @ 2011-11-10 15:00 del88 阅读(339) 评论(0) 推荐(0) 编辑

2011年11月8日

Datetimerpicker 兼容WIN7的斜杠短日期格式

摘要： start_created := formatdatetime('yyyy-mm-dd',DateTimePicker1.Date) + '' + formatdatetime('hh:mm:ss',DateTimePicker2.Date); end_created := formatdateti 阅读全文

posted @ 2011-11-08 17:38 del88 阅读(10) 评论(0) 推荐(0) 编辑

2011年11月6日

安装方法

摘要：安装前一定认真先看下这个安装方法 http://wenku.baidu.com/view/cf7d4f283169a4517723a323.html?from=related http://kiiuyti5p2.blog.163.com/blog/static/176955046201105112 阅读全文

posted @ 2011-11-06 16:54 del88 阅读(5) 评论(0) 推荐(0) 编辑

遍历选中的复选框-取值

摘要：可以把复选框加在一个容器上也可以直接是窗体上方法1（窗体上）： var i:integer;beginfor i:=1 to form1.ComponentCount do begin if form1.Components[i-1] is Tcheckbox then begin if Tc 阅读全文

posted @ 2011-11-06 16:49 del88 阅读(14) 评论(0) 推荐(0) 编辑

分割字符串 ExtractStrings(推荐、灵活)

摘要： //分割字符串 ExtractStringsvar s: String; List: TStringList;begin s := 'about: #delphi; #pascal, programming'; List := TStringList.Create; ExtractStrings([ 阅读全文

posted @ 2011-11-06 16:20 del88 阅读(182) 评论(0) 推荐(0) 编辑

摘要：背景：原来要替换字符串官方有StringReplace函数，后来官方引进了StringHelper帮助类，更加简化了字符串的替换操作。这里做个简单对比；首先看下函数定义原型： 1.StringReplace函数原型 2.TStringHelper类里的原型：好了，接下来让我们弄个Demo对比下阅读全文

posted @ 2011-11-06 14:10 del88 阅读(455) 评论(2) 推荐(0) 编辑

Delphi中MessageBox用法

摘要：消息框是个很常用的控件，属性比较多，本文列出了它的一些常用方法，及指出了它的一些应用场合。1.最简单用法,不带图形MessageBox(0,'不同意','提示',MB_OK);MessageBox(0,'不同意','提示',MB_OKCANCEL );2.警告对话框:MessageBox(0,'密码阅读全文

posted @ 2011-11-06 13:20 del88 阅读(33) 评论(0) 推荐(0) 编辑

查找

摘要：使用pos函数来查找字符第一次出现的位置 pos(要查找的字符串,在字符串中查找) varstr1:string;i,j:integer;begin str1:='dsf4654f6<ds>ad' ; j:=pos('<',str1);//在字符串str1中查找"<" if j<>0 then // 阅读全文

posted @ 2011-11-06 12:25 del88 阅读(4) 评论(0) 推荐(0) 编辑

引号在通常、SQL、日期中的使用

摘要： Delphi的单引号,真是会把人搞晕的一个符号 Delphi中不使用双引号,单引号必须配对 ①引号内无字串的情况下ShowMessage('');->空字串ShowMessage('' ');->这是错的ShowMessage('''');->显示一个引号原则->从左开始,去掉第一个引号与最后一个引阅读全文

posted @ 2011-11-06 12:18 del88 阅读(15) 评论(0) 推荐(0) 编辑

为什么WebBrowser下载完成一个页触发两次onDocumentComplete事件？

摘要：因为你浏览的页面可能有框架，框架中包含多少个页面，就会触发多少个onDocumentComplete事件。每个单独的框架都可能会触发DocumentComplete事件。框架集页面会最后触发DocumentComplete事件。发送事件的对象可以通过DocumentComplete事件的第一个阅读全文

posted @ 2011-11-06 11:36 del88 阅读(7) 评论(0) 推荐(0) 编辑

如何判断WebBrowser中的某一个网页显示是否完成？

摘要： OnDocumentComplete事件在网页中含有Frame时就不行了，每个Frame都会产生OnDocumentComplete事件，无法知道什么时候真正完成了。有一种方法可以判断网页是否真正完成了： var glpDisp: IDispatch = nil; procedure TForm1 阅读全文

posted @ 2011-11-06 11:33 del88 阅读(2) 评论(0) 推荐(0) 编辑

2011年9月15日

delphi edit 变成password 输入格式

摘要： edit 有个 passwordchar 属性改成 * 这样就可以了阅读全文

posted @ 2011-09-15 14:41 del88 阅读(580) 评论(0) 推荐(0) 编辑

2011年8月29日

去除字符串中回车、换行

摘要： procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := Memo1.Text; str := StringReplace(str, sLineBreak, '', [rfReplaceAll]); M 阅读全文

posted @ 2011-08-29 23:41 del88 阅读(18) 评论(0) 推荐(0) 编辑