随笔档案「2012年4月」 - BarneyX

Delphi学习之函数 ⑿其它函数及过程

摘要：//▎============================================================▎////▎=====================⑿其它函数及过程=======================▎////▎============================================================▎//function TrimInt(Value, Min, Max: Integer): Integer; overload; {测试通过}{* 输出限制在Min..Max之间}function IntToByte(... 阅读全文

posted @ 2012-04-20 21:40 BarneyX 阅读(299) 评论(0) 推荐(0)

Delphi学习之函数 ⑾进制函数及过程

摘要：//▎============================================================▎////▎======================⑾进制函数及过程======================▎////▎============================================================▎//function StrToHex(AStr: string): string;{* 字符转化成十六进制}function HexToStr(AStr: string): string;{* 十六进制转化成字符}func 阅读全文

posted @ 2012-04-20 21:39 BarneyX 阅读(183) 评论(0) 推荐(0)

Delphi学习之函数 ⑩数据库功能函数及过程

摘要：//▎============================================================▎////▎===================⑩数据库功能函数及过程===================▎////▎============================================================▎//{function PackDbDbf(Var StatusMsg: String): Boolean;}{* 物理删除数据库(Db，Dbf)中的数据[着了删除标记的记录]}procedure RepairDb(DbName: 阅读全文

posted @ 2012-04-20 21:39 BarneyX 阅读(270) 评论(0) 推荐(0)

Delphi学习之函数 ⑨汉字拼音功能函数

摘要：//▎============================================================▎////▎=====================⑨汉字拼音功能函数=====================▎////▎============================================================▎//function GetHzPy(const AHzStr: string): string; {测试通过}{* 取汉字的拼音}function HowManyChineseChar(Const s:Strin... 阅读全文

posted @ 2012-04-20 21:38 BarneyX 阅读(232) 评论(0) 推荐(0)

Delphi学习之函数 ⑦硬件功能函数

摘要：//▎============================================================▎////▎=====================⑦硬件功能函数=========================▎////▎============================================================▎//function GetClientGUID:string;{ 功能描述：在本机上得到一个GUID.去掉两端的大括号和中间的横线返回值：去掉两端的大括号和中间的横线的一个GUID 适用范围：windows}fun.. 阅读全文

posted @ 2012-04-20 21:37 BarneyX 阅读(342) 评论(0) 推荐(0)

Delphi学习之函数 ⑥系统功能函数

摘要：//▎============================================================▎////▎=====================⑥系统功能函数=========================▎////▎============================================================▎//procedure MoveMouseIntoControl(AWinControl: TControl); {测试通过}{* 移动鼠标到控件}function DynamicResolution(x, y: WO.. 阅读全文

posted @ 2012-04-20 21:36 BarneyX 阅读(238) 评论(0) 推荐(0)

Dlphi学习之函数 ⑤扩展的对话框函数

摘要：//▎============================================================▎////▎====================⑤扩展的对话框函数======================▎////▎============================================================▎//procedure InfoDlg(Mess: string; Caption: string = SCnInformation; Flags: Integer = MB_OK + MB_ICONINFORMATION). 阅读全文

posted @ 2012-04-20 21:35 BarneyX 阅读(220) 评论(0) 推荐(0)

Delphi学习之函数 ④扩展的文件及目录操作函数

摘要：//▎============================================================▎////▎=================④扩展的文件及目录操作函数=================▎////▎============================================================▎//function MoveFile(const sName, dName: string): Boolean; {测试通过}{* 移动文件、目录，参数为源、目标名}procedure FileProperties(const F. 阅读全文

posted @ 2012-04-20 21:34 BarneyX 阅读(240) 评论(0) 推荐(0)

Delphi 学习之函数 ③ 扩展的位操作函数

摘要：//▎============================================================▎////▎===================③ 扩展的位操作函数 ====================▎////▎============================================================▎//type TByteBit = 0..7; {* Byte类型位数范围} TWordBit = 0..15; {* Word类型位数范围} TDWordBit = 0..31; {* DWord类型位数范围}p... 阅读全文

posted @ 2012-04-20 21:33 BarneyX 阅读(285) 评论(0) 推荐(0)

Delphi 学习之函数 ②扩展的日期时间操作函数

摘要：//▎============================================================▎////▎================② 扩展的日期时间操作函数 =================▎////▎============================================================▎//function GetYear(Date: TDate): Integer; {测试通过}{* 取日期年份分量}function GetMonth(Date: TDate): Integer; {测试通过}{* 取日期... 阅读全文

posted @ 2012-04-20 21:32 BarneyX 阅读(237) 评论(0) 推荐(0)

Delphi学习之函数 ① 扩展的字符串操作函数

摘要：//▎============================================================▎////▎================① 扩展的字符串操作函数 ===================▎////▎============================================================▎////从文件中返回Ado连接字串。function GetConnectionString(DataBaseName:string):string;//返回服务器的机器名称.function GetRemoteServerNam. 阅读全文

posted @ 2012-04-20 21:30 BarneyX 阅读(540) 评论(0) 推荐(0)

html 初次接触html学习【1】

摘要：html 初次接触html学习【1】/* 许多的编程哥们”学习“编程都是从网页开始学起的，当然了这都是大学里这样教的我学习编程时不是这样学起的。今天在学校机房里上机觉的没意思！！就抽点时间看看html也不至于我的时间白白的浪费掉！当然想做出网络上那些绚丽的网页就得从最基础的地方学习起来，而我网页最基础的的当属html的标记语言了，在介绍这些东西的时候我们还是来看看一下网页的构成吧!一、html的构成结构；（头部{head}、眼睛{title}、身体{body}）看到这些单词或是词组大家有没有觉这样的构成像是一个人的基本结构！没错，一个网页的结构基本上就是由这几块构成的。1.头部[h... 阅读全文

posted @ 2012-04-20 14:53 BarneyX 阅读(233) 评论(0) 推荐(0)

Delphi 操作一个桌面泡泡程序

摘要：在网上转的时候看到了一篇文章关于透明显示PNG图片的例子，于是突发奇想做了一个桌面泡泡程序，程序做的比简陋没有什么技术可讲，发上来希望给大家带来点启发。高手跳过：主要是通过窗体实现的；见笑了；程序在Delphi 2010可编译通过；下面就是这个程序的源码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Unit2, MPlayer, ExtCtrls,Unit3, Unit4, Menus, pngimag.. 阅读全文

posted @ 2012-04-16 23:11 BarneyX 阅读(455) 评论(0) 推荐(0)

Delphi TRect函数例子

摘要：{在网上看到个这个例子感觉还不错，将它移到自己的博客里没事的时候看看；TRect 作用：保存一个矩形的左上角和右下角的坐标值；声明： type TRect = packed record case integer of 0:(Left, Top, Right, Botton:Integer); 1:(TopLeft, BottonRight:TPoint); end; 由上面的TRect可知，TRect是一个记录类型（TRect），保存了矩形的左上角右下角两个点，4个坐标或2个点的值。这个声明是Record类型使用Case子... 阅读全文

posted @ 2012-04-16 22:54 BarneyX 阅读(1832) 评论(0) 推荐(0)

c 语言指针运算

摘要：//指针的算术运算/*指针可以加上或减去一个整数，指针的这种运算的意义和通常的数值的加减运算的意义是不一样的，惟单元为单位。*/ char a[20]; int *ptr = (int *)a;//强制类型转换并不会改变A的类型； ptr++; //指针PTR的类型是INT*，它指向的类型是INT，它被初始化为指向整形变量A，接下来的第三句中，指针PTR被加了1，它被初始化为指为指向整形变量A //接下来的第三句中，指针PTR被加了1，编译器是这样处理的，它把指针PTR的值加上了SIZEOF（INT），在32位程序中，是被加上了4，因为在32位程序中， //INT占四个... 阅读全文

posted @ 2012-04-16 22:28 BarneyX 阅读(581) 评论(0) 推荐(0)

c 语言指针

摘要：# include <stdio.h>int main(void){ int p;//——这个是一个普通的整形变量； int *p;//首先从P处开始，先与*结合，所以说明P是一个指针，然后再与INT结合，说明指针所 //指向的的内容的类型为INT型，所以P是一个返回整形数据的指针； int p[3]; /* 首先从P处开始，先与[]结合，说明P是一个数组，然后与INT结合，说明数组里的元素是整形的，所以P是一个由整形数据组成的数组； */ int *p[3];// []比*的优先级高； /* 首先从P处开始，先与[]结合，因为其优先级比*高，所以P是一个数组，然后再与*结合，. 阅读全文

posted @ 2012-04-16 22:27 BarneyX 阅读(271) 评论(0) 推荐(0)

Delphi 文件操作（4）Reset

摘要：｛Reset过程｝procedure Reset(var F [: File; RecSize: Word ] );{作用：对于文本文件，Reset过程将以只读方式打开文件，对于类型文件和无类型文件，Reset过程将以可读写方式打开文件procedure Reset(var F [: File; RecSize: Word ] ); F:File 类型变量，可以是任何文件类型； RecSize：文件的大小，这个参数是一个可选参数，只有当F为无类型文件时才可以被指定。如果F为无类型文件，则RecSize指定了在数据传输过程中使用的记录的大小。如果参数RecSize被省略了，则默... 阅读全文

posted @ 2012-04-16 09:53 BarneyX 阅读(601) 评论(0) 推荐(0)

Delphi 文件操作【3】AssignFile

摘要：unit AssignFileSetting;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TOb... 阅读全文

posted @ 2012-04-15 23:39 BarneyX 阅读(797) 评论(0) 推荐(0)