<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[addie0129的博客]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/addie0129</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; addie0129]]></copyright><item><title><![CDATA[visio应用]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169330</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169330</guid><author>addie0129</author><pubDate>Sat, 23 Apr 2011 15:25:00 +0800</pubDate><description><![CDATA[　　今天要画款图，“画图”程序大小和对其比较难控制，而word的画图也是太简陋。于是在网上找了visio，方便高效。软件介绍http://www.duote.com/softin/931.html。
另外，将画好的文件另存为jpg再插入到word可有效降低文件大小。
在使用过程中，
（1）另存为jpg会发现有些内容无法完全显示，处理办法是：在画的外围加一个大矩形，并在矩形上右键——...]]></description><category></category></item><item><title><![CDATA[类的可见性]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169329</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169329</guid><author>addie0129</author><pubDate>Tue, 12 Apr 2011 23:25:00 +0800</pubDate><description><![CDATA[类成员的可见性是对该类的使用者而言。在声明一个类时，类可以被分为 5 个区域，用以下 5 个 
 关键字标识： 
 private, protected, public, published, automated 。 
 所有的类成员都被放置在不同的区域里，不同区域的类成员具有不同的可见性。如果类的定义和类的使用者在同一个...]]></description><category></category></item><item><title><![CDATA[认识类的属性]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169327</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169327</guid><author>addie0129</author><pubDate>Tue, 12 Apr 2011 23:14:00 +0800</pubDate><description><![CDATA[unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    btn1: TButton;    procedure btn1Click(Send...]]></description><category></category></item><item><title><![CDATA[结构类型（3）结构方法和结构属性]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169328</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169328</guid><author>addie0129</author><pubDate>Tue, 12 Apr 2011 16:21:00 +0800</pubDate><description><![CDATA[----------------------------------------------------------------
结构方法
type TRec = record {定义结构 TRec} name: string[12]; age: Word; function RecShow: string; {在结构中只能使用静态方法...]]></description><category></category></item><item><title><![CDATA[结构类型（2）]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169326</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169326</guid><author>addie0129</author><pubDate>Tue, 12 Apr 2011 16:17:00 +0800</pubDate><description><![CDATA[结构指针
指针 
指针是存放指定类型（或未定义类型）变量内存地址的变量，因此指针间接引用一个值。定义指针不需用特定的关键字，而用一个特殊字符，这个特殊字符是脱字符号(^)，见下例：
type
  PointerToInt = ^Integer;

一旦你定义了指针变量，你就可以用@ 符号把另一个相同类型变量的地址赋给它。见下例：
var
  P: ^Integer;
 ...]]></description><category></category></item><item><title><![CDATA[结构类型（1）]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169322</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169322</guid><author>addie0129</author><pubDate>Tue, 12 Apr 2011 11:05:00 +0800</pubDate><description><![CDATA[记录类型
记录类型用于定义不同类型数据项的固定集合。记录中每个元素，或者说域，有它自己的类型。记录类型定义中列出了所有域，每个域对应一个域名，通过域名可以访问它。
下面简单列举了记录类型的定义、类型变量的声明以及这类变量的使用：
type
  Date = record
    Year: Integer;
    Month: Byte;
    Day: Byte;
...]]></description><category></category></item><item><title><![CDATA[edit中只能输入数字、小数点(只可以1个小数点)和负号+多个edit共用一个事件]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169299</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169299</guid><author>addie0129</author><pubDate>Fri, 01 Apr 2011 22:32:00 +0800</pubDate><description><![CDATA[原来的代码无法限制只输入一个小数点
begin case Key of '0'..'9', #8, #13,#45, #27, '.' : ; //#8退格键，#13回车键 //可输入0-9，退格，回车，点以及负号 else begin MessageBox(0, '请输入数值！', '输入错误', MB_OK+MB_ICO...]]></description><category></category></item><item><title><![CDATA[delphi if...else...语句和函数参数传递]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169298</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169298</guid><author>addie0129</author><pubDate>Thu, 31 Mar 2011 10:24:00 +0800</pubDate><description><![CDATA[1if语句
对if-then型语句，仅当条件满足时，语句才执行；对if-then-else型，if语句在两条语句中选择一条执行。条件用布尔表达式建立，句子中的条件部分可以是一系列条件（用and、 or 、 not等布尔操作符联接起来），if语句又可以嵌套另一个if语句，要注意的是，不能在第一句之后、else 关键词之前加分号，否则编译器将告知语法错误。

if ....then...]]></description><category></category></item><item><title><![CDATA[form隐藏最大化，显示最小化、关闭+程序界面不能调整大小]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169320</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169320</guid><author>addie0129</author><pubDate>Tue, 29 Mar 2011 12:00:00 +0800</pubDate><description><![CDATA[1.form隐藏最大化、最小化，只显示关闭+程序界面不能调整大小
只要将窗体BorderStyle属性设置为：bsToolWindow
2.form隐藏最大化、最小化，只显示关闭+程序界面不能调整大小
将窗体BorderStyle属性设置为：bsSingle 
BorderIcons中的biMaximize设置为false

转载于:https://www.cnblogs.c...]]></description><category></category></item><item><title><![CDATA[修改exe图标，加入版本号]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169325</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169325</guid><author>addie0129</author><pubDate>Tue, 29 Mar 2011 10:05:00 +0800</pubDate><description><![CDATA[1.修改exe图标
Project-&gt; Options-&gt; Application页-&gt; Load  Icon..就可以了
2.加入版本号
Project --&gt; Options --&gt; version info 
对Major、Minor、Release、Buil四项定值一般做法是
1.2.3.41. 重大版本修改,可能是使用不同的协议不同的接...]]></description><category></category></item><item><title><![CDATA[为什么panel总是会遮住speedbutton？]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169317</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169317</guid><author>addie0129</author><pubDate>Mon, 28 Mar 2011 23:34:00 +0800</pubDate><description><![CDATA[为什么我的panel总是会遮住speedbutton？是不是我的speedbutton的transparent设置为true有问题？但是修改成false也不行,我是菜鸟，第一次发贴，大人帮忙！









 hedong (hedong)
▲▲▲▲△
- 


盒子活跃会员




2003-4-28 13:24:43


8楼：
这...]]></description><category></category></item><item><title><![CDATA[安装vclskin v4.11]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169315</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169315</guid><author>addie0129</author><pubDate>Mon, 28 Mar 2011 15:27:00 +0800</pubDate><description><![CDATA[1.下载v4.11解压，copy到lib文件夹下。
2.打开d7，分别open vclskin下d7的WinSkinD7R.dpk和WinSkinD7D.dpk，分别编译，然后install WinSkinD7D.dpk。
 此时安装完毕。
3.添加 Tools-&gt;Environment Options-&gt;Library&gt;Library path。添加为E:...]]></description><category></category></item><item><title><![CDATA[ListBox第一行字体比其他行小的问题，delphi要不要打包]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169323</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169323</guid><author>addie0129</author><pubDate>Fri, 04 Mar 2011 21:48:00 +0800</pubDate><description><![CDATA[ListBox第一行字体比其他行小，把字体设置成“宋体”就可以了。

只是编了个小程序纠结要不啊哟打包，都不知道打包是啥玩意，以为老兄的话让我确定不用打包。“如果没用数据库，没有用Activex控件的话，Delphi根本不用打包，一个Exe就可以执行了。”

转载于:https://www.cnblogs.com/Bubalus/archive/2011/03/04/2013697....]]></description><category></category></item><item><title><![CDATA[判断groupbox中所有的edit是否为空，并给出空的哪个edit为空(2)]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169321</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169321</guid><author>addie0129</author><pubDate>Thu, 03 Mar 2011 21:08:00 +0800</pubDate><description><![CDATA[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...]]></description><category></category></item><item><title><![CDATA[判断groupbox中所有的edit是否为空，并给出空的哪个edit为空]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169313</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169313</guid><author>addie0129</author><pubDate>Thu, 03 Mar 2011 14:08:00 +0800</pubDate><description><![CDATA[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...]]></description><category></category></item><item><title><![CDATA[给 Edit 两个可选值]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169319</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169319</guid><author>addie0129</author><pubDate>Thu, 03 Mar 2011 12:49:00 +0800</pubDate><description><![CDATA[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...]]></description><category></category></item><item><title><![CDATA[使用剪切板：TClipboard 类]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169311</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169311</guid><author>addie0129</author><pubDate>Thu, 03 Mar 2011 12:04:00 +0800</pubDate><description><![CDATA[把窗体客户区图像保存到文件或剪切板 
使用剪切板[5]: SetAsHandle、GetAsHandle - 自定义格式 
使用剪切板[4]: 如果把子控件一起复制? - 同时回复 ghd2004 的问题 
使用剪切板[3]: SetComponent、GetComponent 
使用剪切板[2]: Assign、HasFormat 
使用剪切板[1]: AsText、SetT...]]></description><category></category></item><item><title><![CDATA[Format 函数]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169316</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169316</guid><author>addie0129</author><pubDate>Wed, 02 Mar 2011 16:33:00 +0800</pubDate><description><![CDATA[首部   function  Format(const  Format:  string;  const  Args:  array  of  const):  string;  $[SysUtils.pas 功能   返回按指定方式格式化一个数组常量的字符形式 说明   这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 "%...]]></description><category></category></item><item><title><![CDATA[复制ListBox的结果]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169314</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169314</guid><author>addie0129</author><pubDate>Wed, 02 Mar 2011 14:30:00 +0800</pubDate><description><![CDATA[根据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...]]></description><category></category></item><item><title><![CDATA[System 中的数学函数]]></title><link>https://blog.youkuaiyun.com/addie0129/article/details/102169306</link><guid>https://blog.youkuaiyun.com/addie0129/article/details/102169306</guid><author>addie0129</author><pubDate>Wed, 02 Mar 2011 10:08:00 +0800</pubDate><description><![CDATA[//绝对值: 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);    ...]]></description><category></category></item></channel></rss>