addie0129-CSDN博客

转载 visio应用

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

2011-04-23 15:25:00 138

转载类的可见性

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

2011-04-12 23:25:00 486

转载认识类的属性

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 126

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

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

2011-04-12 16:21:00 170

转载结构类型（2）

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

2011-04-12 16:17:00 77

转载结构类型（1）

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

2011-04-12 11:05:00 90

转载 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 157

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

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

2011-03-31 10:24:00 356

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

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

2011-03-29 12:00:00 674

转载修改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 176

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

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

2011-03-28 23:34:00 129

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

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

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

2011-03-04 21:48:00 156

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

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

转载给 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 53

转载使用剪切板：TClipboard 类

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

2011-03-03 12:04:00 153

转载 Format 函数

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

2011-03-02 16:33:00 102

转载复制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...

2011-03-02 14:30:00 93

转载 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 94

转载返回整数的四种情况

//返回整数的四种情况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 262

转载 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 171

转载 Delphi 数据类型列表

分类范围字节备注简单类型序数整数Integer-2147483648 .. 21474836474有符号32位Cardinal0 .. 42949672954无符号32位Shortint-128 .. 1271有符号8位Smallint-32768 .. 32767...

2011-03-01 23:23:00 53

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

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

2011-03-01 23:21:00 88

转载类型转换函数

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

2011-03-01 23:16:00 52

转载 Delphi 快捷键

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

2011-03-01 23:14:00 48

转载 ASCII 参考手册

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

2011-03-01 21:28:00 104

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

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

2011-03-01 21:04:00 201

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

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 88

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

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

2011-03-01 20:38:00 1662

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

addie0129的博客