摘要: //包含控件数: var num: Integer; begin num := Self.ControlCount; ShowMessage('窗体上共有控件: ' + IntToStr(num)); //没有包括不可视控件和panl内的控件 //ShowMessage('Panel1上共有控件: ' + IntToStr(Panel1.ControlCount)); end; ... 阅读全文
posted @ 2007-11-23 18:10 万一 阅读(3902) 评论(6) 推荐(0) 编辑
摘要: arr = new Array( //这里加入页号------------- 1,3,5,7,9 //------------------------- ); //var re = /.*\/|\.pdf$/ig; //var filename = this.path.replace(re,""); var re = /\.pdf$/ig; var filepath = this.path.... 阅读全文
posted @ 2007-11-23 12:01 万一 阅读(4569) 评论(11) 推荐(0) 编辑