DateUtils.IsPM - 判断时间是否是下午

2017年02月06日 74 阅读

DateUtils.IsPM - 判断时间是否是下午2012-01-11 博客园 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） procedure FormCreate（Sender: TObject）; en...

Delphi中把Integer数组保存到文件并读取

2017年02月06日 58 阅读

Delphi中把Integer数组保存到文件并读取2012-01-11 博客园 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TButton...

Delphi中用命令行参数实现启动时最小化

2017年02月06日 59 阅读

Delphi中用命令行参数实现启动时最小化2012-01-11 博客园 涂磊Program Project1;Uses Forms, Windows, Messages, SysUtils;{$R *.res}Begin {=================-start 隐藏主窗体=================} If LowerCase（ParamStr（1）） = "-start" Then Begin ShowWindo...

Delphi TTreeView学习（一）

2017年02月06日 60 阅读

Delphi TTreeView学习（一）2012-01-11 博客园 云中君需要了解的属性：AutoExpandproperty AutoExpand: Boolean;Set AutoExpand to true to cause the selected item to expand and the unselected items to collapse.BorderStyleproperty BorderStyle: TBorderStyleTB...

Delphi TTreeView学习（二）-- TTreeNodes

2017年02月06日 67 阅读

Delphi TTreeView学习（二）-- TTreeNodes2012-01-11 博客园 云中君需要了解的属性：Countproperty Count: Integer;Use Count to determine the number of tree nodes in the tree view that owns the tree nodes object. Count provides an upper bound when iteratin...

Delphi TTreeView学习（三）-- TTreeNode

2017年02月06日 62 阅读

Delphi TTreeView学习（三）-- TTreeNode2012-01-11 博客园 云中君需要了解的属性：AbsoluteIndexproperty AbsoluteIndex: Integer;Use AbsoluteIndex to determine absolute position of a node in a tree nodes object. The first tree node in a tree nodes object ...

Delphi中属性的自动完成

2017年02月06日 65 阅读

Delphi中属性的自动完成2012-01-11 博客园 万一//在 type 区写入： TMyClass = class property s: string; end;//然后把光标放在其中，执行 Ctrl+Shift+C，可以自动生成以下代码： TMyClass = class private Fs: string; procedure Sets（const Value: string）; published pro...

用Delphi实现虚拟盘映射

2017年02月06日 66 阅读

用Delphi实现虚拟盘映射2012-01-11本实例演示如何映射和断开网络虚拟盘。向窗体上添加两个TLabel组件、两个TEdit组件和两个TButton组件，设计完成的主界面如图1所示。图1 主界面首先添加“连接”按钮的响应代码，在其中调用WNetAddConnection2函数，根据用户输入的本地虚拟盘和网络共享目录来映射虚拟盘，响应代码如下：procedure TfrmMain.btnConnectClick（Sender:...

Delphi中使用TWebBrowser编辑网页

2017年02月06日 62 阅读

Delphi中使用TWebBrowser编辑网页2012-01-11 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls;type TForm1 = class（TForm） Web...

用Delphi将商品金额小写转大写

2017年02月06日 66 阅读

用Delphi将商品金额小写转大写2012-01-11 博客园 涂磊Function DecimalToChineseCurrency（Decimal: String）: String; Var s, t : TStringList; i, ti : Integer; tmps : String; IsDecimal : Integer; Begin IsD...

Delphi下的通配符查找函数

2017年02月06日 60 阅读

Delphi下的通配符查找函数2012-01-11 博客园 涂磊//Delphi 下的通配符查找函数Function IsLike（ax, abc: String）: Boolean; //ax是子串,abc是源串Var abcstart, axstart, abclength, axlength: Integer; endpartabc, endpartax, subax: String; temp, abcwww, axwww: Integer;...

Delphi中关于Button的OnClick的思考

2017年02月06日 58 阅读

Delphi中关于Button的OnClick的思考2012-01-11 博客园 涂磊Unit Unit1;InterfaceUses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;Type TForm1 = Class（TForm） Panel1: TPanel; Button1...

Delphi中用GetEnvironmentVariable获取常用系统变量

2017年02月06日 70 阅读

Delphi中用GetEnvironmentVariable获取常用系统变量2012-01-11 博客园 云海空间软件//譬如 WINDIR 是表示系统目录的系统变量, 可以这样获取:var s: string; begin s := GetEnvironmentVariable（"WINDIR"）; ShowMessage（s）; {C:WINDOWS}end;（*-----------------------------------------...

Delphi编程禁止用户关闭操作系统

2017年02月06日 74 阅读

Delphi编程禁止用户关闭操作系统2012-01-11本实例介绍在程序运行的过程中禁止用户关闭操作系统。用户是否可以关闭操作系统是通过对WM_QueryEndSession的处理来实现的，为此首先需要在程序中添加WM_QueryEndSession消息处理的声明：procedure QueryEndSession（var Msg:TMessage）;Message WM_QueryEndSession;它的响应代码如下：procedure TForm1....

Delphi存储过程的调用方法

2017年02月06日 94 阅读

Delphi存储过程的调用方法2012-01-11 博客园 生的伟大活得憋屈网上对该问题的帖子很多，但是经常不是很全面，笔者在使用时也遇到了很多实际问题，比如参数不存在啊、类型没有引用啊等等。下面我尽量细致地来通过例子实现一下，如果还有不正确的地方，希望得到高手指点，首先，我们使用一种简单的方式，即通过控件的方式来定义存储过程和数据源。新建一个单元，命名为：DataMConn，在加入一个ADO单元下的ADOStoredProc，这里命名为ADOSPTemp...

Delphi的Indy通信中发送流文件的注意事项

2017年02月06日 62 阅读

Delphi的Indy通信中发送流文件的注意事项2012-01-11 博客园 DJ尐舞客户端发送流到服务器端有几种方式，这里讨论两种：1.客户端连接到服务器后，发送一个流，服务器接收一个流。{*------------------------------------------------------------------------------ 客户端发送流,假定已经建立连接--------------------------------------...

Delphi调用WMI读取USB设备的PID和VID

2017年02月06日 100 阅读

Delphi调用WMI读取USB设备的PID和VID2012-01-15WMI（Windows®Management Instrumentation ） 非常强大，它可以以数据库的形式查询你的电脑的软件和硬件，在它的数据库里面，时刻保存着最新的软件信息和硬件信息，因此你可以用WMI来检测CUP 主频、温度，读取WINDOWS的进程.........本文就介绍如何使用WMI读取USB设备的PID和VID码1. Windows, Messages, S...

delphi读取磁盘信息

2017年02月06日 72 阅读

delphi读取磁盘信息2012-01-151．读硬盘序列号function GetDiskSerial（DiskChar: Char）: string;varSerialNum : pdword;a, b : dword;Buffer : array [0..255] of char;beginresult := "";if GetVolumeInformation（PChar（diskchar+":"）, Buf...

Delphi中用ADO求表达式的值的另类方法

2017年02月06日 60 阅读

Delphi中用ADO求表达式的值的另类方法2012-01-15 博客园 涂磊Delphi里求表达式的值的另类方法（用ADO）[1]用一个ADOConnectioin1（已经连上一个数据库）和一个ADOQuery1[2]With ADOQuery1 do close; SQl.clear; SQL.ADD（"Select 123+34*11"）;//只能进行整数运算 Open; Showmessage（IntToStr（Fields[0].AsIntege...

Delphi利用数据库实现文件打包

2017年02月06日 56 阅读

Delphi利用数据库实现文件打包2012-01-15 csdn博客 张国威Delphi利用数据库实现文件打包的基本思路分析：【1】在Delphi中，把文件读取为文件流，再以流的形式保存在数据库的OLE 对象的字段中；【2】当要释放文件包时，可以直接读取数据库的OLE 对象字段，另保存为文件。以下为具体代码的实现过程：【1】打开Delphi，去到“File”＝》“New”＝》Application，新建一个应...