上一页 1 2 3 4 5 6 7 8 ··· 24 下一页
摘要: /**************************************** * 函数名称:GetFoldAll(string Path) * 功能说明:获取指定文件夹下所有子目录及文件(树形) * 参 数:Path:详细路径 * 调用示列: * string strDirlist = Server.MapPath("templates"); * this.Literal1.Text = EC.FileObj.GetFoldAll(strDirlist); *************************************... 阅读全文
posted @ 2011-08-30 17:18 许明吉博客 阅读(7306) 评论(0) 推荐(0) 编辑
摘要: 在Delphi中,可利用类Tcanvas的CopyRect方法实现图象的放大和缩小。其功能是将源画布上的一个指定矩形区域(简称源矩形)内的象素,拷贝到目的画布上的一个指定矩形区域(简称目的矩形)中。亦可称之为象素块复制。 由CopyMode属性确定拷贝的模式。在直接拷贝模式(cmSrcCopy)下,当源矩形与目的矩形相等时,图象不变;若源矩形大于目的矩形,图象则缩小;而当源矩形小于目的矩形时,图象便被放大(在目的矩形中扩展)。源矩形与目的矩形大小之比,决定图象的缩放倍数。CopyRect方法声明如下: Procedure CopyRect(const Dest: TRect; Canvas.. 阅读全文
posted @ 2011-08-29 11:26 许明吉博客 阅读(1176) 评论(0) 推荐(0) 编辑
摘要: Delphi的四舍五入函数作者:nick 日期:2007-11-13字体大小:小中大一、四舍五入法四舍五入是一种应用非常广泛的近似计算方法,其有算术舍入法和银行家舍入法两种。所谓算术舍入法,就是我们通常意义上的四舍五入法。其规则是:当舍去位的数值大于等于5时,在舍去该位的同时向前位进一;当舍去位的数值小于5时,则直接舍去该位。所谓银行家舍入法,其实质是一种四舍六入五留双(又称四舍六入五奇偶)法。其规则是:当舍去位的数值小于5时,直接舍去该位;当舍去位的数值大于等于6时,在舍去该位的同时向前位进一;当舍去位的数值等于5时,如果前位数值为奇,则在舍去该位的同时向前位进一,如果前位数值为偶,则直接舍 阅读全文
posted @ 2011-08-29 11:22 许明吉博客 阅读(436) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.btn1Click(Sender: TObject);begin{$Define ss} (* 用于定义一个条件符号,一旦定义,条件符号就为真 *){$IFDEF ss} (* 对条件符号进行判断,为真则编译源文件 *) ShowMessage('ss Has defined!!'); Text := 'ss Has defined!!'; Form1.Color := clLime;{$ELSE} (* 与$IFDEF配合使用,如果$IFDEF条件为假,则只对源文件$ELSE后一小部分进行编译 *) ShowMess... 阅读全文
posted @ 2011-08-29 09:38 许明吉博客 阅读(697) 评论(0) 推荐(0) 编辑
摘要: function get_py(st : string):string;function GetPYIndexChar( hzchar:string):char;begin //的到一个汉字的拼音头个字母 case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of $B0A1..$B0C4 : result := 'A'; $B0C5..$B2C0 : result := 'B'; $B2C1..$B4ED : result := 'C'; $B4EE..$B6E9 : result := 'D' 阅读全文
posted @ 2011-08-29 09:36 许明吉博客 阅读(590) 评论(0) 推荐(0) 编辑
摘要: 以下四个函数和一个结构体声名;实现操作结构体文件的实例 /// <summary> /// 导入等值线文件 (主要是读取结构体文件信息) /// </summary> /// <param name="sender"></param> /// <param name="e"></param> private void bt_AsgFileLoadin_Click(object sender, EventArgs e) { string file_types = "等值线分级 阅读全文
posted @ 2011-08-26 15:59 许明吉博客 阅读(3630) 评论(0) 推荐(0) 编辑
摘要: dxdocksitedxdockpanel注意正在编辑的property 阅读全文
posted @ 2011-08-25 10:08 许明吉博客 阅读(725) 评论(0) 推荐(0) 编辑
摘要: 1新手上路1.1控件简介Dock panelsDock panels是建立停靠应用的最主要部分,是在应用内部的windows局部窗口,可以放置其他的VCL控件。当一个Dock panels放在Form上后,它会自动漂浮在Form之上。如果需要停靠到窗体中,需要使用TdxDockSite控件,并且可以设置主题风格。注意,当要对Dock panels控件进行删除、复制粘贴或者其他一些操作时,务必使用控件的上下文菜单来实现。Dock panels之间可以互相停靠,停靠的结果有2种类型-tab containers和side containers,例如,可以将side containers放到一个ta 阅读全文
posted @ 2011-08-25 10:04 许明吉博客 阅读(4079) 评论(0) 推荐(0) 编辑
摘要: library ConnDBDll; { Important note about DLL memory management: ShareMem must be the first unit in your library 's USES clause AND your project 's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. Th 阅读全文
posted @ 2011-08-18 23:15 许明吉博客 阅读(458) 评论(0) 推荐(0) 编辑
摘要: http://www.duote.com/tech/2/5390_4.html#contentbody 阅读全文
posted @ 2011-08-17 23:39 许明吉博客 阅读(250) 评论(0) 推荐(0) 编辑
上一页 1 2 3 4 5 6 7 8 ··· 24 下一页