`
eueuy
  • 浏览: 70521 次
  • 性别: Icon_minigender_1
  • 来自: 天津
最近访客 更多访客>>
社区版块
存档分类
最新评论
文章列表
获得类的泛型: 有一个类: public class Test<T> { }     现在想获得T的Class。在JAVA目前的泛型机制下,不可能。(原因参见JAVA泛型机制。说白了就是泛型是在编译期获得的,而且有擦除机制。所以在编译前,JAVA也不知道T是啥,编译后,JAVA知道了然后忘记了。囧)   网上流传过一个方法,就是写下一个Test类的子类,然后在子类中调用类似   Class<T> entityClass = (Class<T>) ((ParameterizedType) getClass().g ...
  EXTJS提供的COMBOX有一个自动完成的功能 ,就是你只要输入头几个字,那么以这几个字开头的所有列表项都会显示出来供你选。但是有一个缺陷,就是COMBOX只会按照头几个字严格去匹配, 而如果想模糊查询,就不行了。 比如,我有一个保存了所有客户公司名称的COMBOX,我记不得某个公司的全名,但我知道这个公司大概叫“百邦”,那么我只要在COMBOX中输入“百邦”,即可查出所有包含“百邦”的公司。实现代码如下。   //combox用到的store comboxVendorStore=new Ext.data.JsonStore({ url:'/pcms/dictionar ...
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 == 16) || (i == 20))       guid += "-";  }    return guid;}
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"; Connection conn= DriverManager.getConnection(url,user,passw ...
  Checking If File Is In Use From 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 would fail if the file doesn't exist at all. ~~~~~~~~~~~~~~~~~~~~~~~~~function IsFileInUse(fName : str ...
来自:独孤客, 时间:2004-8-9 19:10:58, ID:2756192 RadioButton1.Checked := StrToBool(IntToStr(-1));     来自:bjaman, 时间:2004-8-9 19:24:14, ID:2756214 楼上兄弟正解。如此可以实现非0即true。  
问题:Tray Menu 问题 ( 积分:10, 回复:4, 阅读:34 )分类:Windows API ( 版主:amo, cAkk ) 来自:lordofbinladen, 时间:2004-8-7 13:04:00, ID:2753251 [显示:小字体 | 大字体]   在 Tray 增加了一个自定义Icon, 可顺利popup menu。问题是当Popup menu 后, 若点选其他软件而没选择Menu 的项, Menu 将一直开著, 请问如何解?   来自:antong, 时间:2004-8-7 13:43:54, ID:2753298 | ...
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;key:hkey;sSubKey:string;ulType:dword):boolean;var  sTemp:pchar;  hSubKey: hkey;  Datatype:dword;begi ...
问题:请问这样的字符串怎么比较? ( 积分: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.444IP3:=111.*.333.444怎么比较才能让它们相等?   来自:011101, 时间:2004-8-1 22:39:14, ID:2742935 有几个?就跳过几个字符。*号不知怎么办? ...
在private处输入:    { Private declarations }         FCanResize,FisDown:Boolean;    FDetax,FDetaY:Integer;    FP,FOldP:TPoint;   {==============================================}   procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);beginFisDown: ...
varwindir:array[0..255] of char;begingetwindowsdirectory(windir,sizeof(windir));end.
问题:问个比较白的问题--如何让窗体总是显示在最上面? ( 积分:50, 回复:4, 阅读:24 )分类:控件 - 使用 ( 版主:amo, cAkk ) 来自:梅梅, 时间:2004-3-5 11:33:00, ID:2486067 [显示:小字体 | 大字体]   同上   来自:jackchin, 时间:2004-3-5 11:38:32, ID:2486070 FormStyle 设成fsStayOnTop, 如果要自己的主窗体总在最前面, 不被其他程序覆盖, 可以用:SetWindowPos(Application.Handle, ...
  知道了文件名怎么去掉后缀名? Function DelExt(str:string):string; begin  delete(str,pos('.',str),length(str)-pos('.',str)+1);   resault:=str;end; 怎么判断后缀 if UpperCase(ExtractFileExt(cobaddress.text)) <> '.SWF' then showmessage('不是有效的Flash影片文件!') else loadmovie(cobaddress.text);
Get File From the Net Create a Delphi application that downloads files from the Internet; add an auto-update feature to your programs. <!-- BEGIN FREQUENCY TEMPLATE --> <!--more of this feature. Use to link to multi-page features on your own site.--><!--end more ...
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:widestring;//要引用shlobj,comobj,activex 在 usesbegin  sf:=s;  tmo:=createcomobject(clsid_shelllink);  tms:=tmo ...
Global site tag (gtag.js) - Google Analytics