addie0129-优快云博客

转载 visio应用

　　今天要画款图，“画图”程序大小和对其比较难控制，而word的画图也是太简陋。于是在网上找了visio，方便高效。软件介绍http://www.duote.com/softin/931.html。另外，将画好的文件另存为jpg再插入到word可有效降低文件大小。在使用过程中，（1）另存为jpg会发现有些内容无法完全显示，处理办法是：在画的外围加一个大矩形，并在矩形上右键——...

2011-04-23 15:25:00 227

转载类的可见性

类成员的可见性是对该类的使用者而言。在声明一个类时，类可以被分为 5 个区域，用以下 5 个关键字标识： private, protected, public, published, automated 。所有的类成员都被放置在不同的区域里，不同区域的类成员具有不同的可见性。如果类的定义和类的使用者在同一个...

2011-04-12 23:25:00 612

转载认识类的属性

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Send...

2011-04-12 23:14:00 201

转载结构类型（3）结构方法和结构属性

---------------------------------------------------------------- 结构方法 type TRec = record {定义结构 TRec} name: string[12]; age: Word; function RecShow: string; {在结构中只能使用静态方法...

2011-04-12 16:21:00 242

转载结构类型（2）

结构指针指针指针是存放指定类型（或未定义类型）变量内存地址的变量，因此指针间接引用一个值。定义指针不需用特定的关键字，而用一个特殊字符，这个特殊字符是脱字符号(^)，见下例： type PointerToInt = ^Integer; 一旦你定义了指针变量，你就可以用@ 符号把另一个相同类型变量的地址赋给它。见下例： var P: ^Integer; ...

2011-04-12 16:17:00 144

转载结构类型（1）

记录类型记录类型用于定义不同类型数据项的固定集合。记录中每个元素，或者说域，有它自己的类型。记录类型定义中列出了所有域，每个域对应一个域名，通过域名可以访问它。下面简单列举了记录类型的定义、类型变量的声明以及这类变量的使用： type Date = record Year: Integer; Month: Byte; Day: Byte; ...

2011-04-12 11:05:00 159

转载 edit中只能输入数字、小数点(只可以1个小数点)和负号+多个edit共用一个事件

原来的代码无法限制只输入一个小数点 begin case Key of '0'..'9', #8, #13,#45, #27, '.' : ; //#8退格键，#13回车键 //可输入0-9，退格，回车，点以及负号 else begin MessageBox(0, '请输入数值！', '输入错误', MB_OK+MB_ICO...

2011-04-01 22:32:00 251

转载 delphi if...else...语句和函数参数传递

1if语句对if-then型语句，仅当条件满足时，语句才执行；对if-then-else型，if语句在两条语句中选择一条执行。条件用布尔表达式建立，句子中的条件部分可以是一系列条件（用and、 or 、 not等布尔操作符联接起来），if语句又可以嵌套另一个if语句，要注意的是，不能在第一句之后、else 关键词之前加分号，否则编译器将告知语法错误。 if ....then...

2011-03-31 10:24:00 484

转载 form隐藏最大化，显示最小化、关闭+程序界面不能调整大小

1.form隐藏最大化、最小化，只显示关闭+程序界面不能调整大小只要将窗体BorderStyle属性设置为：bsToolWindow 2.form隐藏最大化、最小化，只显示关闭+程序界面不能调整大小将窗体BorderStyle属性设置为：bsSingle BorderIcons中的biMaximize设置为false 转载于:https://www.cnblogs.c...

2011-03-29 12:00:00 773

转载修改exe图标，加入版本号

1.修改exe图标 Project-> Options-> Application页-> Load Icon..就可以了 2.加入版本号 Project --> Options --> version info 对Major、Minor、Release、Buil四项定值一般做法是 1.2.3.41. 重大版本修改,可能是使用不同的协议不同的接...

2011-03-29 10:05:00 283

转载为什么panel总是会遮住speedbutton？

为什么我的panel总是会遮住speedbutton？是不是我的speedbutton的transparent设置为true有问题？但是修改成false也不行,我是菜鸟，第一次发贴，大人帮忙！ hedong (hedong) ▲▲▲▲△ - 盒子活跃会员 2003-4-28 13:24:43 8楼：这...

2011-03-28 23:34:00 174

转载安装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:...

2011-03-28 15:27:00 175

转载 ListBox第一行字体比其他行小的问题，delphi要不要打包

ListBox第一行字体比其他行小，把字体设置成“宋体”就可以了。只是编了个小程序纠结要不啊哟打包，都不知道打包是啥玩意，以为老兄的话让我确定不用打包。“如果没用数据库，没有用Activex控件的话，Delphi根本不用打包，一个Exe就可以执行了。” 转载于:https://www.cnblogs.com/Bubalus/archive/2011/03/04/2013697....

2011-03-04 21:48:00 227

转载判断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 th...

2011-03-03 21:08:00 155

转载判断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...

2011-03-03 14:08:00 191

转载给 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; 转载于:https://www.cnblogs.c...

2011-03-03 12:49:00 100

转载使用剪切板：TClipboard 类

把窗体客户区图像保存到文件或剪切板使用剪切板[5]: SetAsHandle、GetAsHandle - 自定义格式使用剪切板[4]: 如果把子控件一起复制? - 同时回复 ghd2004 的问题使用剪切板[3]: SetComponent、GetComponent 使用剪切板[2]: Assign、HasFormat 使用剪切板[1]: AsText、SetT...

2011-03-03 12:04:00 224

转载 Format 函数

首部 function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas 功能返回按指定方式格式化一个数组常量的字符形式说明这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 "%...

2011-03-02 16:33:00 184

转载复制ListBox的结果

根据haochin的回复，我稍微改了一下，最后是这样： use Clipbrd procedure TForm1.Button2Click(Sender: TObject);var I : Integer; begin Clipboard.Clear; for I := 0 to ListBox1.Count - 1 do begin Clipboard.AsText...

2011-03-02 14:30:00 144

转载 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); ...

2011-03-02 10:08:00 152

转载返回整数的四种情况

//返回整数的四种情况const a = 1.8; b = -1.8;begin {返回比值大的最小整数:} ShowMessage(IntToStr(Ceil(1.8)) + ',' + IntToStr(Ceil(-1.8))); {返回：2,-1} {返回比值小的最大整数:} ShowMessage(IntToStr(Floor(1.8)) + ',' + I...

2011-03-02 10:07:00 319

转载 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} ShowMe...

2011-03-02 10:06:00 239

转载 Delphi 数据类型列表

分类范围字节备注简单类型序数整数 Integer -2147483648 .. 2147483647 4 有符号32位 Cardinal 0 .. 4294967295 4 无符号32位 Shortint -128 .. 127 1 有符号8位 Smallint -32768 .. 32767...

2011-03-01 23:23:00 99

转载 Delphi 运行时和编译错误信息表

错误信息形式为: Run-time error nnn at xxxx; 其中nnn是运行时的错误编号; xxxx是运行时的错误地址. 编号说明 I/O错误: (编号100-149) 100 磁盘读错误,若要对超过格式文件尾进行读取时 101 磁盘写错误,若磁盘满时,由CloseFile,W...

2011-03-01 23:21:00 190

转载类型转换函数

函数功能 Chr 将一个有序数据转换为一个ANSI字符 Ord 将一个有序类型值转换为它的序号 Round 转换一个实型值为四舍五入后的整型值 Trunc 转换一个实型值为小数截断后的整型值 Int 返回浮点数的整数部分 IntToStr 将数值转换为字符串 IntToHex 将数值转换为十六...

2011-03-01 23:16:00 90

转载 Delphi 快捷键

分类快捷键解释备注组件设计类 Escape 选择当前组件容器 Shift + Click 选择多个组件；选择窗体 Tab 选择下一个组件 Shift + Tab 选择上一个组件方向键选择此方向的下一个组件 Ctrl + 方向键将所选组...

2011-03-01 23:14:00 89

转载 ASCII 参考手册

HTML 和 XHTML 用标准的 7 比特 ASCII 代码在网络上传输数据。 7 比特 ASCII 代码可提供 128 个不同的字符值。 7 比特可显示的 ASCII 代码结果描述实体编号 space   ! exclamation mark ! " quotation ma...

2011-03-01 21:28:00 158

转载 Delphi笔记（整理）-符号和基本语法

空格（#32）和控制符（#0 到#31，其中#13 叫回车符或行的结束符）被称为空白符（blank）。特殊符号是非文字和数字字符，或这类字符的组合，它们有固定的意义。 ‘[’相当于‘(.’，‘]’相当于‘.）’；‘(*’和‘*)’分别相当于‘{’和‘}’（表示注释）。，!（惊叹号）、 ”（双引号）、 %（百分号）、 ?（问号）、 \（反斜杠）、 _（下划线）、 |（通道）和 ~（...

2011-03-01 21:04:00 287

转载限定只能输入数字和小数点

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_I...

2011-03-01 20:48:00 151

转载 Delphi的实数计算结果中只保留2位小数

Delphi的实数计算结果中如何只保留2位小数━━━━━━━━━━━━━━━━━━━━━━━━━━ 你可以使用这样的办法： x := Round(x * 100) / 100; 高峰、空中人的意见：在USER部份加入MATH单元后可以使用 x:=RoundTo(y, 2) 郑茂强的意见：我是用这个办法的： ...

2011-03-01 20:38:00 1808

转载判断edit是否为空

if (Edit1.Text='')or(Edit2.Text='') then ... 转载于:https://www.cnblogs.com/Bubalus/archive/2011/03/01/2013716.html

2011-03-01 20:36:00 558

addie0129的博客