摘要：
今天要画款图，“画图”程序大小和对其比较难控制，而word的画图也是太简陋。于是在网上找了visio，方便高效。软件介绍http://www.duote.com/softin/931.html。另外，将画好的文件另存为jpg再插入到word可有效降低文件大小。在使用过程中，（1）另存为jpg会发现有些内容无法完全显示，处理办法是：在画的外围加一个大矩形，并在矩形上右键——形状——置于底层，这样就相当于再画周围加了个相框，其中内容可以完全显示了。（2）visio默认是淡蓝色背景和连接线，可用此办法转换成纯黑白图案：形状——动作——配色方案里选择“黑白” 阅读全文
摘要：
类成员的可见性是对该类的使用者而言。在声明一个类时，类可以被分为 5 个区域，用以下 5 个 关键字标识： private, protected, public, published, automated 。 所有的类成员都被放置在不同的区域里，不同区域的类成员具有不同的可见性。如果类的定义和类的使用者在同一个单元内，那么该类的所有成员无论位于哪个区域，对于使用者而言都是可见的。 一个类对于相同单元的其他类来说，类似于 C++中的“友类”，其所有成员都可以被访问。因此，类成 员的可见性设置只是在它们位于不同单元时，才是有效的。这时候，区域内成员的可见性规定如下： (1) private 域：. 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;//TMyClass1 类里面只有两个字段(变量来到类里面称做字段) 阅读全文
摘要：
----------------------------------------------------------------结构方法type TRec = record {定义结构 TRec} name: string[12]; age: Word; function RecShow: string; {在结构中只能使用静态方法} end;{ TRec 结构方法的实现}function TRec.RecShow: string;const str = '%s今年%d岁了';begin Result := Format(str, [name,age]);end;//使用结构p 阅读全文
摘要：
结构指针指针 指针是存放指定类型（或未定义类型）变量内存地址的变量，因此指针间接引用一个值。定义指针不需用特定的关键字，而用一个特殊字符，这个特殊字符是脱字符号(^)，见下例：type PointerToInt = ^Integer;一旦你定义了指针变量，你就可以用@ 符号把另一个相同类型变量的地址赋给它。见下例：var P: ^Integer; X: Integer;begin P := @X; // change the value in two different ways X := 10; P^ := 20; 如果定义了一个指针P，那么P表示指针所指向的内存地址，而P^表示内存所存储的 阅读全文
摘要：
广电的“无奈”成就别人的“美梦”2011-3-11 18:01:00 DVBCN数字电视中文网 人气(2274) 作者：海生 来源: DVBCN数字电视中文网刚刚在美国拉斯维加斯结束的CES2011展会，是个眼花缭乱的大秀场，事实上一场风生水起的战争在悄然打响。2月8-10日在迪拜举行的Cabsat2011（中东和北非地区的广播电视与卫星电视展览会）国内广电企业更给力，据DVBCN最新统计大概超过60家企业参加Cabsat2011，其实早在Cabsat2004年中东迪拜之行，就有同洲、创维、成功、高斯贝尔、四川视频、珠海中大、深圳迈威、江苏银河等30多家国内广电企业参展。每一年的展会都像一个风 阅读全文
摘要：
记录类型记录类型用于定义不同类型数据项的固定集合。记录中每个元素，或者说域，有它自己的类型。记录类型定义中列出了所有域，每个域对应一个域名，通过域名可以访问它。下面简单列举了记录类型的定义、类型变量的声明以及这类变量的使用：type Date = record Year: Integer; Month: Byte; Day: Byte; end; var BirthDay: Date; begin BirthDay.Year := 1997; BirthDay.Month := 2; BirthDay.Day := 14;类和对象可以看作是记录类型的扩展。Delphi 库趋向于用类替代记录类型 阅读全文
摘要：
原来的代码无法限制只输入一个小数点begin case Key of '0'..'9', #8, #13,#45, #27, '.' : ; //#8退格键，#13回车键 //可输入0-9，退格，回车，点以及负号 else begin MessageBox(0, '请输入数值！', '输入错误', MB_OK+MB_ICONERROR); Key := #0; end; end; end;限制只输入一个小数点：在keypress事件加入如下代码即可 if not (key in ['0'..' 阅读全文
摘要：
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 阅读全文