修复已经丢失的delphi文件关联

安装delphi7和delphi2010以后,文件默认的关联跳到2010上去了,卸载delphi2010之后,pas和dpk的文件图标不是默认的图标,显示的未知文件,看到很不爽啊。。。。习惯了的图标没在了,很是郁闷。。。

可以采用以下方法进行修复..

恢复文件关联的Windows命令
ASSOC [.ext[=[fileType]]]

  .ext      指定跟文件类型关联的文件扩展名
  fileType  指定跟文件扩展名关联的文件类型

用CMD进入窗口命令行模式,执行以下命令,搞定。
assoc   .bpg=BorlandProjectGroup
assoc   .dpr=DelphiProject
assoc   .pas=DelphiUnit
assoc   .dfm=DelphiForm
assoc   .xfm=DelphiCLXForm
assoc   .dpk=DelphiPackage

BorlandProjectGroup,DelphiProject,这些东东从哪里来的,答案就是另一个Windows命令 ftype,它能显示系统中已经注册的文件类型。

Posted in 软件开发 at January 17, 2011. by 傻猫 .    Views: 7195    No Comments

attachEvent 的用法

Binds the specified function to an event, so that the function gets called whenever the event fires on the object.

dhtml语法

<I>bSuccess</I> = <I><SPAN class=moreinfo title="an element from the Applies To list below">object</SPAN></I><B>.attachEvent(</B><I>sEvent</I><B>, </B><I>fpNotify</I><B>)</B>

Parameters

sEvent Required. Stringthat specifies any of the standard DHTML Events.
fpNotify Required. Pointer that specifiesthe function to call when sEvent fires.

Return Value

Boolean. Returns one of the following possible values:

true The function was bound successfully to the event.
false The function was not bound to the event.

查看更多内容...

Posted in Web开发 at January 14, 2011. by 傻猫 .    Views: 5556    No Comments

Delphi统计字数(汉字+字母+符号)

根据asc码分别进行统计,看有多少字母和符号,汉字分开统计,一个汉字算计数1

function TFrm_main.MsgCounter(str: string): string;
var
  s:string;   //保存字符串
  i,e,c:integer;//保存变量
begin
  s:=str;
  e:=0;c:=0;
  for i:=1 to length(s) do
  begin
    if (ord(s[i])>=33)and(ord(s[i])<=126) then
    //判断字符的顺序号
      begin
        inc(e);
      end
    else
    if (ord(s[i])>=127) then
    //判断字符的顺序号
      begin
        inc(c);
      end;
  end;  

  Result:=IntToStr(e+(c div 2));
end;

Posted in 软件开发 at January 7, 2011. by 傻猫 .    Views: 7759    5 Comments

mscrm4屏幕ctrl+s热键

在MSCRM4的项目中,有一个特别的要求,需要把热键ctrl+s屏蔽掉,在onsave事件里添加以下脚本即可,当按下ctrl+s时,直接取消操作。

function document.onkeydown()  
{
    if (event.ctrlKey == true && event.keyCode == 83)
    {//Ctrl+S
        window.event.cancelBubble = true;//禁止此次操作
   }
}
onsave.jpg

Posted in Web开发 at January 7, 2011. by 傻猫 .    Views: 5509    1 Comment

mscrm4隐藏grid页上的按钮

前几篇文章里,介绍了如何在toolbar上面增加按钮,如何去掉详细页上的toolbar上的按钮,如何去掉菜单,如何添加菜单,那要在搜索页grid页上隐藏按钮怎么做呢? 修改_root目录下的HomePage.aspx文件,在<head>之前添加一个onload脚本,先找到要隐藏按钮的ID值,通过下面的函数即可隐藏grid页上的按钮。

不同实体grid页上的按钮都可以隐藏的,即使相同的功能的按钮,他的ID值不一样。

<script language="JavaScript">
function window.onload()
{
   // HandleBackButtonIssues(_currentTypeCode);
    for (var index in document.getElementsByTagName("LI")) {
            var o = document.getElementsByTagName("LI")[index];
            if (o.id == "_MBopenObj10072") {
                o.style.display = 'none'; //隐藏
            }
        }
  
}
</script>
</head>

Posted in Web开发 at January 7, 2011. by 傻猫 .    Views: 4302    No Comments