03 2011 档案

delphi if...else...语句和函数参数传递
摘要：1if语句对if-then型语句，仅当条件满足时，语句才执行；对if-then-else型，if语句在两条语句中选择一条执行。条件用布尔表达式建立，句子中的条件部分可以是一系列条件（用and、 or 、 not等布尔操作符联接起来），if语句又可以嵌套另一个if语句，要注意的是，不能在第一句之后、else 关键词之前加分号，否则编译器将告知语法错误。if ....thenbegin.......with..... do begin....... end;if .... thenbegin....endelse begin..... end ;//endIfend//endBeginelsebe 阅读全文
posted @ 2011-03-31 10:24 吴越 阅读(4151) 评论(0) 推荐(0)
form隐藏最大化，显示最小化、关闭+程序界面不能调整大小
摘要：1.form隐藏最大化、最小化，只显示关闭+程序界面不能调整大小只要将窗体BorderStyle属性设置为：bsToolWindow2.form隐藏最大化、最小化，只显示关闭+程序界面不能调整大小将窗体BorderStyle属性设置为：bsSingle BorderIcons中的biMaximize设置为false 阅读全文
posted @ 2011-03-29 12:00 吴越 阅读(798) 评论(0) 推荐(0)
修改exe图标，加入版本号
摘要：1.修改exe图标Project-> Options-> Application页-> Load Icon..就可以了2.加入版本号Project --> Options --> version info 对Major、Minor、Release、Buil四项定值一般做法是1.2.3.41. 重大版本修改,可能是使用不同的协议不同的接口2. 功能性版本,重要功能的增加3. BUG修复4. 优化(对数据等不产生实质的影响) 阅读全文
posted @ 2011-03-29 10:05 吴越 阅读(506) 评论(0) 推荐(0)
为什么panel总是会遮住speedbutton？
摘要：为什么我的panel总是会遮住speedbutton？是不是我的speedbutton的transparent设置为true有问题？但是修改成false也不行,我是菜鸟，第一次发贴，大人帮忙！ hedong (hedong)▲▲▲▲△- 盒子活跃会员2003-4-28 13:24:438楼：这也算问题？楼主需要看看入门书籍。如果speedbutton和panel的parent都是Form，当然运行时speedbutton会被panel挡住。只要将speedbutton的Parent设置为panel就可以了。方法就是：1.选择speedbutton,Ctrl+X2.再选择Panel，　Ctrl+ 阅读全文
posted @ 2011-03-28 23:34 吴越 阅读(217) 评论(0) 推荐(0)
安装vclskin v4.11
摘要：1.下载v4.11解压，copy到lib文件夹下。2.打开d7，分别open vclskin下d7的WinSkinD7R.dpk和WinSkinD7D.dpk，分别编译，然后install WinSkinD7D.dpk。 此时安装完毕。3.添加 Tools->Environment Options->Library>Library path。添加为E:\Borland\Delphi7\Lib\VCLSKIN.v4.11.2006.7.25.Delphi.BCB.PATCH\d7ps，安装也可直接双击v4.11下面的，install.exe 阅读全文
posted @ 2011-03-28 15:27 吴越 阅读(585) 评论(0) 推荐(0)
ListBox第一行字体比其他行小的问题，delphi要不要打包
摘要：ListBox第一行字体比其他行小，把字体设置成“宋体”就可以了。只是编了个小程序纠结要不啊哟打包，都不知道打包是啥玩意，以为老兄的话让我确定不用打包。“如果没用数据库，没有用Activex控件的话，Delphi根本不用打包，一个Exe就可以执行了。” 阅读全文
posted @ 2011-03-04 21:48 吴越 阅读(361) 评论(0) 推荐(0)
判断groupbox中所有的edit是否为空，并给出空的哪个edit为空(2)
摘要：procedure isNull(grp:TGroupBox);var I:Integer;const arr: array[0..1] of string = ('edit1为空', 'edit2为空');begin for I := 0 to grp.ControlCount - 1 do begin if grp.Controls[i] is TEdit then begin if (grp.Controls[i] as TEdit).Text = '' then begin showmessage(arr[i]); B:=false; e 阅读全文
posted @ 2011-03-03 21:08 吴越 阅读(179) 评论(0) 推荐(0)
判断groupbox中所有的edit是否为空，并给出空的哪个edit为空
摘要：procedure TForm1.Button1Click(Sender: TObject);var I:Integer;const arr: array[0..1] of string = ('edit1为空', 'edit2为空');begin for I := 0 to grp1.ControlCount - 1 do begin //grp1即为groupbox1 if grp1.Controls[i] is TEdit then begin if (grp1.Controls[i] as TEdit).Text = '' then be 阅读全文
posted @ 2011-03-03 14:08 吴越 阅读(212) 评论(0) 推荐(0)
给 Edit 两个可选值
摘要：procedure TForm1.Edit1Click(Sender: TObject);const arr: array[-1..0] of string = ('man', 'woman');begin Edit1.Tag := not Edit1.Tag; Edit1.Text := arr[Edit1.Tag];end; 阅读全文
posted @ 2011-03-03 12:49 吴越 阅读(105) 评论(0) 推荐(0)
使用剪切板：TClipboard 类
摘要：把窗体客户区图像保存到文件或剪切板 使用剪切板[5]: SetAsHandle、GetAsHandle - 自定义格式 使用剪切板[4]: 如果把子控件一起复制? - 同时回复 ghd2004 的问题 使用剪切板[3]: SetComponent、GetComponent 使用剪切板[2]: Assign、HasFormat 使用剪切板[1]: AsText、SetTextBuf、GetTextBuf 阅读全文
posted @ 2011-03-03 12:04 吴越 阅读(233) 评论(0) 推荐(0)
Format 函数
摘要：首部 function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas 功能 返回按指定方式格式化一个数组常量的字符形式 说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 "% " [索引 ": "] [ "- "] [宽度] [ ". " 摘要] 类型 Format( 'x=%d ', [12]); // 'x=12 ' //最普通 阅读全文
posted @ 2011-03-02 16:33 吴越 阅读(465) 评论(0) 推荐(0)
复制ListBox的结果
摘要：根据haochin的回复，我稍微改了一下，最后是这样：use Clipbrdprocedure TForm1.Button2Click(Sender: TObject);var I : Integer;begin Clipboard.Clear; for I := 0 to ListBox1.Count - 1 do begin Clipboard.AsText := Clipboard.AsText +listbox1.Items[I]+#13#10; end; //Clipboard.SetTextBuf(PChar(listbox1.Items.Text));end;可作为详细参考的内容 阅读全文
posted @ 2011-03-02 14:30 吴越 阅读(476) 评论(0) 推荐(0)
System 中的数学函数
摘要：//绝对值: Absvar d: Real; v: Variant;begin d := Abs(-1.2); ShowMessage(FloatToStr(d)); {1.2} v := '-100'; ShowMessage(v); {-100; v 是变体类型无需转换} v := Abs(v); ShowMessage(v); {100; 如果变量的确是个数字, 变体类型也是可以取绝对值}end;//返回整数: Trunc、Round、Intvar i: Integer; d: Real;begin i := Trunc(1234.5678); {截断} ShowMess 阅读全文
posted @ 2011-03-02 10:08 吴越 阅读(174) 评论(0) 推荐(0)
返回整数的四种情况
摘要：//返回整数的四种情况const a = 1.8; b = -1.8;begin {返回比值大的最小整数:} ShowMessage(IntToStr(Ceil(1.8)) + ',' + IntToStr(Ceil(-1.8))); {返回：2,-1} {返回比值小的最大整数:} ShowMessage(IntToStr(Floor(1.8)) + ',' + IntToStr(Floor(-1.8))); {返回：1,-2} {删除小数部分:} ShowMessage(IntToStr(Trunc(1.8)) + ',' + IntToStr 阅读全文
posted @ 2011-03-02 10:07 吴越 阅读(233) 评论(0) 推荐(0)
Math 中常用的数学函数
摘要：//整除与余数: DivModconst a = 11; b = 3;var x,y: Word;begin ShowMessage(IntToStr(a div b)); {整除得 3} ShowMessage(IntToStr(a mod b)); {余数 2} DivMod(a,b,x,y); ShowMessage(IntToStr(x)); {3} ShowMessage(IntToStr(y)); {2}end;//返回整数: Ceil、Floorvar d1,d2: Real;const d = 1.2;begin {向大补入} d1 := Ceil(d); d2 := Ceil 阅读全文
posted @ 2011-03-02 10:06 吴越 阅读(377) 评论(0) 推荐(0)
Delphi 数据类型列表
摘要：分类范围字节备注简单类型序数整数Integer-2147483648 .. 21474836474有符号32位Cardinal0 .. 42949672954无符号32位Shortint-128 .. 1271有符号8位Smallint-32768 .. 327672有符号16位Longint-2147483648 .. 21474836474有符号32位Int64-263 .. 2638有符号64位Byte0 .. 2551无符号8位Word0 .. 655352无符号16位Longword0 .. 42949672954无符号32位字符AnsiChar(Char)ANSI字符集8位Wide 阅读全文
posted @ 2011-03-01 23:23 吴越 阅读(161) 评论(0) 推荐(0)
Delphi 运行时和编译错误信息表
摘要：错误信息形式为: Run-time error nnn at xxxx; 其中nnn是运行时的错误编号; xxxx是运行时的错误地址.编号说明I/O错误: (编号100-149)100磁盘读错误,若要对超过格式文件尾进行读取时101磁盘写错误,若磁盘满时,由CloseFile,Write,Writeln或Flush报告102没有指定文件,若文件变量没有由Assign或AssignFile赋值,由Reset, Rewrite,Append,Rename和Erase报告103文件没有打开,若文件未打开,由CloseFile,Read,Write,Seek,Eof, FilePos,FileSize 阅读全文
posted @ 2011-03-01 23:21 吴越 阅读(234) 评论(0) 推荐(0)
类型转换函数
摘要：函数功能Chr将一个有序数据转换为一个ANSI字符Ord将一个有序类型值转换为它的序号Round转换一个实型值为四舍五入后的整型值Trunc转换一个实型值为小数截断后的整型值Int返回浮点数的整数部分IntToStr将数值转换为字符串IntToHex将数值转换为十六进制数字符串StrToInt将字符串转换为一个整型数，如字符串不是一个合法的整型将引发异常StrToIntDef将字符串转换为一个整数，如字符串不合法返回一个缺省值Val将字符串转换为一个数字（传统Turbo Pascal例程用于向后兼容）Str将数字转换为格式化字符串（传统Turbo Pascal例程用于向后兼容）StrPas将零 阅读全文
posted @ 2011-03-01 23:16 吴越 阅读(145) 评论(0) 推荐(0)
Delphi 快捷键
摘要：分类快捷键解释备注组件设计类Escape选择当前组件容器Shift + Click选择多个组件；选择窗体Tab选择下一个组件Shift + Tab选择上一个组件方向键选择此方向的下一个组件Ctrl + 方向键将所选组件的位置移动 1 个像素Shift + 方向键将所选组件的大小改变 1 个像素Ctrl + Shift + 方向键将所选组件的位置移动 1 个栅格Del删除所选组件Ctrl + 鼠标拖动选择一个容器内的多个组件可以一起修改共同属性Tab(在 Object Inspector 中使用)搜索属性或事件代码编辑类F1; Ctrl + F1光标所在单词的帮助Ctrl + Shift + E 阅读全文
posted @ 2011-03-01 23:14 吴越 阅读(128) 评论(0) 推荐(0)
ASCII 参考手册
摘要：HTML 和 XHTML 用标准的 7 比特 ASCII 代码在网络上传输数据。7 比特 ASCII 代码可提供 128 个不同的字符值。7 比特 可显示的 ASCII 代码结果描述实体编号space !exclamation mark!"quotation mark"#number sign#$dollar sign$%percent sign%&ampersand&'apostrophe'(left parenthesis&#40 阅读全文
posted @ 2011-03-01 21:28 吴越 阅读(133) 评论(0) 推荐(0)
Delphi笔记（整理）-符号和基本语法
摘要：空格（#32）和控制符（#0 到#31，其中#13 叫回车符或行的结束符）被称为空白符（blank）。 特殊符号是非文字和数字字符，或这类字符的组合，它们有固定的意义。 ‘[’相当于‘(.’，‘]’相当于‘.）’；‘(*’和‘*)’分别相当于‘{’和‘}’（表示注释）。 ，!（惊叹号）、 ”（双引号）、 %（百分号）、 ?（问号）、 \（反斜杠）、 _（下划线）、 |（通道）和 ~（破折 号）不是特殊符号 $前缀表示一个16 进制数字，比如$8F 标签是一个不超过4 位的阿拉伯数字序列，也就是从0 到9999，打头的0 没有意义 。若单引号中没有内容（’’），它被称为空串（null strin 阅读全文
posted @ 2011-03-01 21:04 吴越 阅读(1924) 评论(1) 推荐(0)
限定只能输入数字和小数点
摘要：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin case Key of '0'..'9', #8, #13, #27, '.' : ; else begin MessageBox(Handle, '请输入数字', PChar('输入错误'), MB_OK + MB_ICONINFORMATION); Key := #0; end; end;end;//只能输入数字和小数点，//只需要编写edit1的KeyPress事件，edi 阅读全文
posted @ 2011-03-01 20:48 吴越 阅读(169) 评论(0) 推荐(0)
Delphi的实数计算结果中只保留2位小数
摘要：Delphi的实数计算结果中如何只保留2位小数━━━━━━━━━━━━━━━━━━━━━━━━━━你可以使用这样的办法： x := Round(x * 100) / 100; 高峰、空中人的意见： 在USER部份加入MATH单元后可以使用 x:=RoundTo(y, 2) 郑茂强的意见： 我是用这个办法的： x=a/b; x=strtofloat(formatfloat('0.00',x)); 阅读全文
posted @ 2011-03-01 20:38 吴越 阅读(3712) 评论(0) 推荐(0)
判断edit是否为空
摘要：if (Edit1.Text='')or(Edit2.Text='') then... 阅读全文
posted @ 2011-03-01 20:36 吴越 阅读(289) 评论(0) 推荐(0)