iteye_12363-优快云博客

总结：关于得到泛型的Class

获得类的泛型：有一个类:public class Test<T> { } 现在想获得T的Class。在JAVA目前的泛型机制下，不可能。(原因参见JAVA泛型机制。说白了就是泛型是在编译期获得的，而且有擦除机制。所以在编译前，JAVA也不知道T是啥，编译后，JAVA知道了然后忘记了。囧) 网上流传过一个方法，就是写下一个Te...

2011-01-17 16:13:52 240

让Combox的自动完成支持模糊查询

EXTJS提供的COMBOX有一个自动完成的功能，就是你只要输入头几个字，那么以这几个字开头的所有列表项都会显示出来供你选。但是有一个缺陷，就是COMBOX只会按照头几个字严格去匹配，而如果想模糊查询，就不行了。比如，我有一个保存了所有客户公司名称的COMBOX，我记不得某个公司的全名，但我知道这个公司大概叫“百邦”，那么我只要在COMBOX中输入“百邦”，即可查出所有包含“百邦”的...

2010-09-27 11:56:00 655

原创 GUID UUID创建函数

function newGuid(){　　　　　　var guid = "";　　　　　　for (var i = 1; i <= 32; i++) {　　　　　　　　var n = Math.floor(Math.random() * 16.0).toString(16);　　　　　　　　guid += n;　　　　　　　　if ((i == 8) || (i == 12) || (i...

2010-06-11 10:10:28 252

1、Oracle8/8i/9i数据库（thin模式） Class.forName("oracle.jdbc.driver.OracleDriver").newInstance(); String url="jdbc:oracle:thin:@localhost:1521:orcl"; //orcl为数据库的SID String user="test"; String password="test"...

2010-06-11 10:08:38 228

原创判断文件是否使用中 Checking If File Is In Use

Checking If File Is In UseFrom Zarko Gajic,Your Guide to Delphi Programming. FREE Newsletter. Sign up now!IsFileInUse will return true if the file is locked for exclusive access. It wo...

2010-06-11 10:07:10 254

原创 INT 转 BOOL 值的方法

来自：独孤客, 时间：2004-8-9 19:10:58, ID：2756192RadioButton1.Checked := StrToBool(IntToStr(-1)); 来自：bjaman, 时间：2004-8-9 19:24:14, ID：2756214楼上兄弟正解。如此可以实现非0即true。 ...

2010-06-11 10:06:42 5183

原创 Tray Menu 不点不消失的问题

问题：Tray Menu 问题 ( 积分：10, 回复：4, 阅读：34 )分类：Windows API ( 版主：amo, cAkk ) 来自：lordofbinladen, 时间：2004-8-7 13:04:00, ID：2753251[显示：小字体 | 大字体] 在 Tray 增加了一个自定义Icon, 可顺利popup menu。问题是当P...

2010-06-11 10:05:40 618

原创 API读取注册表

vartmp:string; const REG_INSTALL_PATH_ITEM='InstallPath'; REG_INSTALL_KEY='SOFTWARE\Blizzard Entertainment\World of Warcraft'; function readreg(sKey:string;var pBuffer:string;dwBufSize:dword...

2010-06-11 10:05:08 191

原创比较IP地址

问题：请问这样的字符串怎么比较？ ( 积分：20, 回复：4, 阅读：32 )分类：Object Pascal ( 版主：menxin, cAkk ) 来自：fffddd, 时间：2004-8-1 21:34:00, ID：2742872[显示：小字体 | 大字体] 比如：IP1：＝111.222.333.444IP2：＝1?1.222.333.44...

2010-06-11 10:02:01 208

原创移动窗体自制

在private处输入： { Private declarations } FCanResize,FisDown:Boolean; FDetax,FDetaY:Integer; FP,FOldP:TPoint; {==============================================} procedure TForm1.Ima...

2010-06-11 10:01:37 113

原创获得Windows系统路径

varwindir:array[0..255] of char;begingetwindowsdirectory(windir,sizeof(windir));end.

2010-06-11 10:01:11 136

原创如何让窗体总是显示在最上面？

问题：问个比较白的问题--如何让窗体总是显示在最上面？ ( 积分：50, 回复：4, 阅读：24 )分类：控件 - 使用 ( 版主：amo, cAkk ) 来自：梅梅, 时间：2004-3-5 11:33:00, ID：2486067[显示：小字体 | 大字体] 同上来自：jackchin, 时间：2004-3-5 11:38:32...

2010-06-11 10:00:32 714

原创后缀名相关

知道了文件名怎么去掉后缀名？Function DelExt(str:string):string;begin delete(str,pos('.',str),length(str)-pos('.',str)+1); resault:=str;end;怎么判断后缀if UpperCase(ExtractFileExt(cobaddress.text)) &l...

2010-06-11 09:59:54 162

原创下载文件 Get File From the Net

Get File From the Net Create a Delphi application that downloads files from the Internet; add an auto-update feature to your programs. &l...

2010-06-11 09:59:26 172

原创在桌面上创建.lnk的方法

procedure createico(s:string;s1:string);//s:程序名称　s1:快捷方式名称var tmo:iunknown; tms:ishelllink; tmpf:ipersistfile; pidl:pitemidlist; sd:array[0..max_path] of char; sf,ss:string; linkf:widest...

2010-06-11 09:58:45 353

原创 WindowsAPI - shellexecute

shellexecute(application.Handle,'open',PChar(runpath),nil,nil,SW_SHOWNORMAL); 比如我要打开c:\111.doc你可以这样写uses shellapiShellExecute(handle, 'open','winword.exe', '111.doc', 'c:\', SW_SHOWNORMAL);Shell...

2010-06-11 09:58:16 193

原创如何注册dll组件

问题：怎样注册dll组件？ ( 积分：100, 回复：11, 阅读：101 )分类：控件 - 使用 ( 版主：amo, cAkk ) 来自：末熊, 时间：2001-12-18 11:45:00, ID：795857[显示：小字体 | 大字体] 怎样注册dll组件？请帮帮忙，我是初学者，大家不要见笑1 来自：zhihuali, 时间：2001-...

2010-06-11 09:57:47 652

原创文件关联相关

问题：我想象Word和Excel一样。一双击文档文件就打开我的程序，并自动调用这个文档内容 ( 积分：200, 回复：5, 阅读：31 )分类：包装发布 ( 版主：雁孤行, OopsWare ) 来自：田伯光, 时间：2004-8-15 20:21:00, ID：2765310[显示：小字体 | 大字体] 不知道要如何处理，望各位大哥大姐给予指导，将...

2010-06-11 09:56:49 115

原创下载文件的WindowsAPI - DownloadFile

uses urlmon; function DownloadFile(Source, Dest: string): Boolean; //下载文件的函数begintryResult := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;exceptResult := False;end;end;...

2010-06-11 09:56:13 725

原创简介的读写 INI文件方法

with TInifile.Create(ExtractFilePath(Paramstr(0))+'设置.ini') do begin WriteString('服务器','版本号',edit1.text); Free; end; //OR// with TInifile.Create(ExtractFilePath(Paramstr(0))+'设置.ini')...

2010-06-11 09:55:26 143

原创如何捕捉WebBrowser中点击一个链接

问题：在WebBrowser中点击一个链接后,如何激活一个form? ( 积分：10, 回复：5, 阅读：33 )分类：控件 - 使用 ( 版主：amo, cAkk ) 来自：cfeeling, 时间：2004-7-15 20:17:00, ID：2714268[显示：小字体 | 大字体] 请教来自：antong, 时间：2004-...

2010-06-11 09:54:51 410

原创文件复制 CopyFile Functions

{This way uses a File stream.}Procedure FileCopy( Const sourcefilename, targetfilename: String );Var S, T: TFileStream;Begin S := TFileStream.Create( sourcefilename, fmOpenRead ); try T := TFi...

2010-06-11 09:53:36 157

原创检查文件名&路径是否合法的函数

{===================================================功能：检查文件路径和文件名是否合法参数： Filename : string //文件名返回值 : True : 合法 | False : 不合法备注 : 仅检查是否合法，不检测文件是否存在作者 :...

2010-06-11 09:53:06 997

原创 Windows API - MessageBox

if MessageBox(handle,'確定要刪除當前記錄?','確定',MB_IconQuestion+MB_YesNo)=IDNO then Abort; TApplication类中封装的MessageBox是直接调用Windows API的，两者的差别就是Tapplication省去了一个从String转到PChar的过程。这给调用者带来了一定的方便。以下是...

2010-06-11 09:52:35 142

给纯Pascal程序换图标(LoadIcon)

=====================程序代码============================== program aaaaa; {$R 'Icon.res'} //导入制作好的包含图标的资源文件 uses windows, SysUtils; begin { TODO -oUser -cConsole Main : Insert code here }...

2010-06-11 09:51:38 182

原创准确探测进程存在否+列出所有进程

//不光可以用文件名来探测进程的存在，还能列出所有的进程列表。 uses TLHelp32; procedure TForm1.Button1Click(Sender: TObject); var FSnapshotHandle:THandle; FProcessEntry32:TProcessEntry32; Ret : BOOL; ProcessID : int...

2010-06-11 09:50:59 107

原创利用MPHexEditorEx控件实现2进制替换

窗体上放MPHexEditorEx控件用以下函数替换EXE文件字符设置MPHexEditorEx的CrateBackup为False; function TFormMain.ReplacePass(Filename,Find, Replace: string): boolean;var LIntSize, LIntPos, LIntPos2: Integer; ...

2010-06-11 09:50:33 370

原创陈前辈谈Delphi编程中“流”的应用

谈Delphi编程中“流”的应用陈经韬什么是流？流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具。在流中，定义了一些处理数据的基本操作，如读取数据，写入数据等，程序员是对流进行所有操作的，而不用关心流的另一头数据的真正流向。流不但可以处理文件，还可以处理...

2010-06-11 09:49:52 229

原创 Windows Hook 详解

基本概念钩子(Hook)，是Windows消息处理机制的一个平台,应用程序可以在上面设置子程以监视指定窗口的某种消息，而且所监视的窗口可以是其他进程所创建的。当消息到达后，在目标窗口处理函数之前处理它。钩子机制允许应用程序截获处理window消息或特定事件。钩子实际上是一个处理消息的程序段，通过系统调用，把它挂入系统。每当特定的消息发出，在没有到达目的窗口前，钩子程序就先捕获该消息，亦即钩子函数...

2010-06-11 09:48:43 442

原创编程实现网页表单数据的自动提交

MSHTML是微软公司的一个COM组件，该组件封装了HTML语言中的所有元素及其属性，通过其提供的标准接口，可以访问指定网页的所有元素．MSHTML对象模型是由一些对象和集合组成的．处于根部的是HTML，描述了打开页面的1个窗口，包括一系列集合和对象。如Frames集合，History，Location，Navigator，Document，Vi—sum，Event对象等．其中描述呈现在客户窗口实...

2010-06-11 09:47:41 173

原创读写文本文件

//////////////读文本////////////function ReadText(filename:string):string;varS: String;AllText: String;F: TextFile;beginAssignFile(F, filename); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。Reset(F); // ...

2010-06-11 09:46:50 98

将String 类型转化成想要的日期格式

代码： //Format Date function formatDate(value) { return new Date(value).dateFormat('Y/m/d'); }

2010-05-17 17:25:19 367

原创解决Ext.Panel中嵌套的Grid不出滚动条的问题

原因和 WorkSpace.doLayout(); 是一样的。布局需要重建才能现实出效果。所以 gridPanel.getGridView().refresh(); 搞定

2010-05-15 10:27:27 227

原创 [转]解决myeclipse不编译的方法

转自 http://taotao5212008.iteye.com/blog/586668落英逸风解决myeclipse不编译的方法 MyEclipse不编译解决1. 确保 project->build automatically 已经被选上. MyEclipse不编译解决2. 如果选上了,也不好使, 使用这一招: project->clean..->选第2个 cl...

2010-05-14 11:54:18 101

原创 [转]Ext继承关系讲解

Ext提供了这样的一个实用函数 Ext.extend (API 参考) 在EXT框架中实现类继承的机制。这赋予了你扩展任何JavaScript基类的能力，而无须对类自身进行代码的修改（这里通常指的是子类，或是从它继承的，一个基类）扩展Ext组件这是个较理想的方法。要从一个现有的类创建出一个新类，首先要通过一个函数声明新类的构造器，然后调用新类属性所共享的扩展方法。这些共享的属性通常是方法，但是...

2010-05-12 09:24:33 110

[转]关于ie的内存泄漏与javascript内存释放

最近做一个公司的业务系统，公司要求能尽可能的与c/s近似，也就是如c/s一样，点击文本框可以弹出此项目的相关内容，进行选择输入。　　我使用了弹出窗口，然后在子窗口双击选中项目，把选中的值返回给父窗体。　　在系统做完了之后，在客户使用的过程，由于客户使用的是512m的内存配置，所以在打开了30--40个窗体之后，ie的虚拟内存占用量达到近200m，从而使系统变慢，javascript的运行也...

2010-05-04 18:31:29 144

[转]EXT 中的面向对象特性小结

1.命名空間：對類的定義方式Extjs 代碼： Ext.namespace("org.bestupon");java代碼： package org.bestupon 實例： Ext.namespace("Ext.bestupon");Ext.bestupon.Person = Ext.emptyFn;/*** Ext.bestupon.Person = function() {}*...

2010-05-04 18:00:34 130

JavaScript中的对象动态加载技术

什么是JavaScript对象动态加载JavaScript动态加载(JavaScript Object Dynamic Loading) - 之所以叫做动态，是应为其有别与通常的静态加载形式。典型的JavaScript静态加载方式，是通过<script>标签将我们可能需要的所有JS文件依次嵌入到一个HTML页面中，当浏览器执行到<script> 标签，就会到我们指定...

2010-04-28 15:28:20 132

[转]从代码学习设计模式 - 工厂模式

没有使用工厂模式时的代码： interface Fruit{ public void eat(); } class Apple implements Fruit{ public void eat(){ System.out.println("**吃苹果**") ; ...

2010-04-21 16:25:00 141

[转]JAVA使用JSON之Google Gson

比如一个User对象,我想要一个框架可以直接转换成{id:1001,name='张三'} 就目前来看，Google的GSON组件不错，而且支持 JDK5 的泛型。地址：http://code.google.com/p/google-gson/User 用户类：public class User {@Exposeprivate Long id;@Exposeprivate Str...

2010-04-21 16:06:00 112

空空如也

空空如也