- 博客(36)
- 资源 (14)
- 收藏
- 关注
原创 Delphi StringGrid使用全书( 一)
Delphi StringGrid使用全书( 一) 简介: <br />(1)正确地设置StringGrid列宽而不截断任何一个文字方法是在对StringGrid填充完文本串后调用SetOptimalGridCellWidth过程<br />-----------程序片断-------------------------------------------------<br /> (*<br /> $Header$<br /> Module Name : General/BSGrids.pas<b
2010-12-27 14:06:00 6496
原创 DELPHI写的几个基类型
<br /> <br />//用惯JAVA或C#的人可能对DELPHI非常生气,连基本的类型都没有,我平时工作中,经常会曾试着把一些函数集合在一起,也经常做一些属于自己的基础类型的函数,此处把它们弄出来,有不当之处,请大家点评.<br />unit BaseClass;<br />interface<br />uses<br /> SysUtils, Classes, StrUtils, IdGlobal, Math;<br />type<br /> TCharSet = set of char;<b
2010-12-27 14:01:00 783
原创 Delphi 取当前行
取当前行<br />CurrentLine:=memo1.Perform(EM_LINEFROMCHAR,$FFFF,0);
2010-12-27 12:08:00 625
原创 Delphi Variant 数组的介绍
目的:如何使用Variant 数组; <br />Variant: <br />一种可以拥有各种数据类型; <br />也可以告诉目前存储的数据是什么类型(通过使用VarType函数); <br />可以给相同的Variant分配不同的数据类型,只要Variant包含数字值就可以执行算法; <br /><br />variant数组只不过是variant型的数组,不必包含同类型的 数据; <br />variant数组的创建方法: <br />function VarArrayCreate(const Bo
2010-12-27 11:12:00 4291
原创 Delphi SetFileAttributes 功能:修改文件属性
Delphi SetFileAttributes 功能:修改文件属性SetFileAttributes 功能:修改文件属性<br /><br />这是一个修改文件属性的API<br />使用下面WINDOWS API函数<br />function SetFileAttributes(lpFileName: PChar; dwFileAttributes: DWORD): BOOL; stdcall; <br />{$EXTERNALSYM SetFileAttributes} <br />func
2010-12-24 17:15:00 2369
原创 Delphi 构造单位树
//单位<br /> TDW = class<br /> DW_ID : string; //单位ID<br /> DW_TYPE: string; //单位类型<br /> DW_CODE: string; //单位编码<br /> DW_NAME: string; //单位名称<br /> P_CODE : string; //上级单位编码<br /> L_CODE : string; //级次码<br /> end;<br /> <br />p
2010-12-24 09:54:00 642
原创 Delphi QuotedStr函数的原型
Delphi QuotedStr函数的原型function QuotedStr(const S: string): string;<br />var<br /> I: Integer;<br />begin<br /> Result := S;<br /> for I := Length(Result) downto 1 do<br /> if Result[I] = '''' then Insert('''', Result, I);<br /> Result := '''' + Resul
2010-12-23 16:26:00 1007
原创 DelPhi LockWindowUpdate的函数的用法
<br />Application.ProcessMessages;<br /> LockWindowUpdate(Self.Handle); //锁住当前窗口<br />LockWindowUpdate(0)//解除锁定窗口<br /> <br />LockWindowUpdate不但闪烁,而且有可能引起桌面闪烁。因为LockWindowUpdate并不忽略消息,只是暂时不响应,所以有可能积聚多个重画消息,并在使用LockWindowUpdate(0)之后依次响应。<br />而使用SendMessag
2010-12-23 15:47:00 1450
原创 Delphi 一个不错的弹出进度条的例子
<br />//通过调用 BeginWaitProgress UpdateWaitProgress EndWaitProgress这几个方法来实现<br />procedure IniApp;<br />begin<br /> BeginWaitProgress(Application.Handle, 10, Application);<br /> try<br /> VQUERCLASS := TQUERYClass.Create;<br /> VGridClass := TGridCl
2010-12-23 10:46:00 1204
原创 Delphi 一个不错的弹出进度条的例子
<br />//通过调用 BeginWaitProgress UpdateWaitProgress EndWaitProgress这几个方法来实现<br />procedure IniApp;<br />begin<br /> BeginWaitProgress(Application.Handle, 10, Application);<br /> try<br /> VQUERCLASS := TQUERYClass.Create;<br /> VGridClass := TGridCl
2010-12-23 10:46:00 962
原创 Delphi 一个不错的弹出进度条的例子
<br />//通过调用 BeginWaitProgress UpdateWaitProgress EndWaitProgress这几个方法来实现<br />procedure IniApp;<br />begin<br /> BeginWaitProgress(Application.Handle, 10, Application);<br /> try<br /> VQUERCLASS := TQUERYClass.Create;<br /> VGridClass := TGridCl
2010-12-23 10:46:00 3358
原创 Delphi Windows单元的SetActiveWindows函数的用法
<br />SetActiveWindow <br />函数功能:该函数激活一个窗口。该窗口必须与调用线程的消息队列相关联。 <br />函数原型:HWND SetActiveWindow(HWND hWnd); <br />参数: hWnd:将被激活的最顶层窗口。 <br />返回值:若函数调用成功,则返回原先活动窗口的句柄。若函数调用失败,则返回值为NULL。<br />若要获得更多错误信息,可以调用GetLastError函数。 <br />备注:SetActiveWindow函
2010-12-23 10:43:00 1597
原创 Delphi UpdateWindow函数引用windows单元的用法
<br />UpdateWindow<br />目录<br />功能 <br />函数原型 <br />参数 <br />返回值 <br />使用要求 <br />编辑本段功能<br /> 如果窗口更新的区域不为空,UpdateWindow函数通过发送一个WM_PAINT消息 <br /> 来更新指定窗口的客户区。函数绕过应用程序的消息队列,直接发送WM_PAINT消息 <br /> 给指定窗口的窗口过程,如果更新区域为空,则不发送消息。 <br />编辑本段函数原型<br /> BOOL Upda
2010-12-23 10:36:00 1141
原创 Delphi DbGrideh的列居中对齐
<br />1、使第i字段名居中:<br /> DBGrid1.Columns[i].Title.Alignment := taCenter;<br />2、使数据居中显示:<br /> DBGrid1.Columns[3].Alignment := taCenter;<br />--------------------------------------------------------<br />以上操作也可以Object Inspector属性设计器中设置。<br />-----------
2010-12-21 09:26:00 3075
原创 弹出网页或定时弹出网页的解决办法
<br /><br /><br /><br />启动时弹出对话框 <br />1.系统启动时弹出对话框,通常是一些广告信息,例如欢迎访问某某网站等。 <br />2.开机弹出网页,通常会弹出很多窗口,让你措手不及,恶毒一点的,可以重复弹出窗口直到死机。 <br />解决办法:1.弹出对话框。打开注册表编辑器,找到HKEY_LOCAL_MACHINE/Software\Microsoft\Windows\CurrentVersion\Winlogon主键,然后在右边窗口中找到"LegalNoticeCapti
2010-12-14 09:09:00 481
原创 Java Static的作用
<br />是静态修饰符,什么叫静态修饰符呢?大家都知道,在程序中任何变量或者代码都是在编译时由系统自动分配内存来存储的,而所谓静态就是指在编译后所分配的内存会一直存在,直到程序退出内存才会释放这个空间,也就是只要程序在运行,那么这块内存就会一直存在。这样做有什么意义呢? <br />在Java程序里面,所有的东西都是对象,而对象的抽象就是类,对于一个类而言,如果要使用他的成员,那么普通情况下必须先实例化对象后,通过对象的引用才能够访问这些成员,但是有种情况例外,就是该成员是用static声明的(在这里所讲
2010-12-13 14:51:00 273
原创 Java的数组(Array)、Vector、ArrayList、HashMap的异同
<br />1、数组:Java arrays的元素个数不能下标越界,从很大程度上保证了Java程序的安全性,而其他一些语言出现这一问题时常导致灾难性的后果。<br /> Array可以存放Object和基本数据类型,但创建时必须指定数组的大小,并不能再改<br />1、数组:Java arrays的元素个数不能下标越界,从很大程度上保证了Java程序的安全性,而其他一些语言出现这一问题时常导致灾难性的后果。<br /> Array可以存放Object和基本
2010-12-13 10:34:00 557
原创 java Vector的用法
<br /><br /><br />java Vector的用法(一)<br />一般在需要将多个元素存在一个集合里的时候用<br />帮住文档里的,看的懂的话就拿去吧,应该能满足你了<br />java.util 类 Vector<E><br />boolean add(E o) <br />将指定元素追加到此向量的末尾。 <br />void add(int index, E element) <br />在此向量的指定位置插入指定的元素。 <br />boolean addAll(Collection
2010-12-13 10:33:00 322
原创 Java动态数组的用法详解
Java动态数组的用法详解Java动态数组是一种可以任意伸缩数组长度的对象,在Java中比较常用的是ArrayList,ArrayList是javaAPI中自带的java.util.ArrayList。下面介绍一下ArrayList作为Java动态数组的用法。<br />1.语法:add()是添加一个新的元素,remove()删除一个元素,size()获得ArrayList的长度。ArrayList的下标是从0开始。<br />2.示例代码<br />package wang48.jiaocheng;<
2010-12-13 10:31:00 833
原创 Delphi CompareStr 这个函数可以模糊匹配,且不区分大小写
<br />var<br /> s: string;<br />begin<br /> s:='AA';<br /> if CompareStr('bbaabb',s)>0 then //CompareStr 这个函数可以模糊匹配,且不区分大小写<br /> ShowMessage('aa');<br />end;
2010-12-13 10:23:00 931
原创 Java 解析XML的四种方法
========================================== <br />xml文件 <br /><?xml version="1.0" encoding="GB2312"?> <br /><RESULT> <br /><VALUE> <br /> <NO>A1234</NO> <br /> <ADDR>四川省XX县XX镇XX路X段XX号</ADDR> <br /></VALUE> <br /><VALUE> <br /> <NO>B1234</NO> <br />
2010-12-10 15:03:00 304
原创 java的反射技术功能十分强大,整理一些资料!!
<br /> <br />java的反射技术功能十分强大,整理一些资料!! <br />(如需转载,请注明出处!) <br />Lesson: 检测类examing class <br />1.Retrieving Class Objects <br />获取一个Class对象(metadata) <br />a,从对象的实例获取。 <br />Class c = mystery.getClass();//(return Class) <br />b,从子类的实例获取 <br />TextField t =
2010-12-10 14:58:00 254
原创 java的反射技术功能十分强大,整理一些资料!!
<br /> <br />java的反射技术功能十分强大,整理一些资料!! <br />(如需转载,请注明出处!) <br />Lesson: 检测类examing class <br />1.Retrieving Class Objects <br />获取一个Class对象(metadata) <br />a,从对象的实例获取。 <br />Class c = mystery.getClass();//(return Class) <br />b,从子类的实例获取 <br />TextField t =
2010-12-10 14:58:00 262
原创 Myeclipse7.0注册机
<br /> <br />以前用myeclipse的时候都要先在网上找注册码,到期后又得重新再找注册码,感觉很烦。<br />现在有了这个myeclipse注册机的源代码后再也不能烦了。直接编译运行下面的代码,输入想要注册的用户名后就可以在控制台下生成注册码了。感觉是不是很爽呢?这个源代码号称支持Myeclipse 6.5和7.0两个版本,6.5的我没有试过,我本机的7.0的就已试过,证实可用。下面给出代码:<br />import java.io.BufferedReader;<br />import j
2010-12-10 12:15:00 686
原创 Delphi 判断字符串是不是有效的时间
<br />function TForm_MEA_CHG.isEffectsDate(astrdatetime:string):Boolean; //判断是不是有效的时间<br />var<br /> jstrYear,jstrMonth,jstrday:string;<br /> IMonth:integer;<br />begin<br /> Result:=true;<br /> jstrYear:=Copy(astrdatetime,1,4);<br /> jstrMonth:=Cop
2010-12-09 20:13:00 1613
原创 Oracle 解决ORA-12514: TNS: 监听程序当前无法识别连接描述符中请求的服务
Oracle 解决ORA-12514: TNS: 监听程序当前无法识别连接描述符中请求的服务<br />Oracle2010-12-09 13:37:28阅读0评论0 字号:大中小 订阅<br />错误原因分析: <br />———————— <br /> 检查监听,发现未设置对服务名的监听(Oracle10g默认安装后不自动设置监听)。 <br /> 当你的tnsnames.ora 文件中的SERVICE_NAME没有向你想要连接的数据库服务器中的**********************
2010-12-09 13:37:00 1463
原创 Oracle 表空间
<br />建立表空间<br />CREATE TABLESPACE data01<br />DATAFILE '/oracle/oradata/db/DATA01.dbf' SIZE 500M<br />UNIFORM SIZE 128k; #指定区尺寸为128k,如不指定,区尺寸默认为64k<br />删除表空间<br />DROP TABLESPACE data01 INCLUDING CONTENTS AND DATAFILES;<br />修改表空间大小<br />alte
2010-12-09 13:34:00 288
原创 oracle 修改原字段名
如果表中没有数据:<br /> 直接这样就可以了<br /> alter table 表名 modify (字段名 类型)<br /> eg:alter table student (id number(4)); 如果原表中存在data那么方法就大不相同了,请看!!!<br /> /*修改原字段名*/<br /> ALTER TABLE 表名 RENAME COLUMN 字段名 TO 字段名1;<br /> /*添加一个和原字段同名的字段*/<br /> ALTER TABLE 表名 AD
2010-12-09 13:29:00 861
原创 oracle修改字段名
<br />oracle修改字段名,在oracle9i以后<br />alter table [表名] rename column 旧的字段名 to 新的字段名;<br />测试:<br /> desc TBL_MENU;<br />Name Type Nullable Default Comments <br />------------ ------------- -------- ------- -------- <br />MENUID NUMBER(
2010-12-09 13:27:00 14218
原创 Oracle 中如何将某一个实例下的所有的表的表名获取出来 要我自己创建的不要系统表的表名
<br /><br />登录到你创建表的实例中,执行 SELECT Table_name FROM User_tables ,如果实例不是你单独使用,<br />这样查不出你所创建的表名,要达到这样的效果,建议你所建的表名加上特征,如XX_student或XX_sorce, <br />这样通过 SELECT * FROM User_tables WHERE Table_name LIKE 'XX%' 就可查到你所创建的表名了;<br />或者是创建一个实例,供自己单独使用,查 USER_TABLES表内
2010-12-08 10:49:00 1014
原创 CSS+DIV 推荐的 CSS 规范书写顺序
<br />这里推荐先写显示属性,再写自身属性,再写文字属性;并不代表非得按这个顺序写,但这种写法可以使css结构更清晰易读,修改起来比较方便。而且在团队项目中能更好地提高效率。<br />//显示属性<br />display<br />list-style<br />position<br />float<br />clear<br />//自身属性<br />width<br />height<br />margin<br />padding<br />border<br />background<b
2010-12-01 14:54:00 233
原创 DIV+CSS 请不要再忽悠人了
<br />今天看到神采飞扬发表于前端观察的《DIV+CSS 请不要再忽悠人了》,讲的挺有深意的,尤其对于新手如何正确认识div,学习web标准,使用web标准建站应该有很大帮助。转载过来,共同分享。<br />在大约两年前,DIV+CSS是一对很诱人的组合,会用DIV+CSS制作网页的人,常常会被人赞以大拇指的,记得06年初的时候,我用div+css布局的一个纯静态网站还拿了学校网页设计比赛的一个奖。<br />今天,尽管提到DIV+CSS,还会有很多人热情高涨,但是我会对他摇头了:DIV+CSS不是一切
2010-12-01 14:54:00 284
原创 CSS+DIV 网站优化(seo)
<br />CSS+DIV网站优化(seo)<br />1) 一个网站要有好的seo优化效果,建议先使用一套标准化的css+div布局网站,注意语义标签的使用;<br />2) 网站完工后要向各大搜索引擎网站登陆然后向Google提交sitemap;<br />3) 增加网站有权重的连接,多交一些好的友情链接;<br />4) 写好网站的robots.txt ;<br />5) 在关键字的地方使用标签定义,例如在主关键字用<h1>、次关键字用<h2> ….;<br />6) 在<a hrer=”
2010-12-01 14:53:00 325
原创 CSS+DIV CSS布局口诀
<br />如果在用CSS设计布局时遇到BUG,请认真阅读以下内容,非常容易记忆的,不知道哪位高人把CSS BUG编成了顺口溜了!看看好不好记住呢?<br />一、IE边框若显若无,须注意,定是高度设置已忘记;<br />二、浮动产生有缘故,若要父层包含住,紧跟浮动要清除,容器自然显其中;<br />三、三像素文本慢移不必慌,高度设置帮你忙;<br />四、兼容各个浏览须注意,默认设置行高可能是杀手;<br />五、独立清除浮动须铭记,行高设无,高设零,设计效果兼浏览;<br />六、学布局须思路,路随布局
2010-12-01 14:52:00 293
delphi assertion failure问题解决软件
2016-11-01
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人