SysUtils-Function

2016年07月27日 46 阅读

SysUtils-Function2012-01-11 博客园 万一SysUtils.AbortSysUtils.AddExitProcSysUtils.AddTerminateProcSysUtils.AdjustLineBreaksSysUtils.AnsiCompareFileNameSysUtils.AnsiCompareStrSysUtils.AnsiCompareTextSysUtils.AnsiDequotedStrSysUtils.Ansi...

IsLeapYear、IsInLeapYear - 是否是闰年

2016年07月27日 50 阅读

IsLeapYear、IsInLeapYear - 是否是闰年2012-01-11 博客园 万一SysUtils.IsLeapYear（）;DateUtils.IsInLeapYear（）;unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = cla...

详解Delphi中的字符串

2016年07月27日 49 阅读

详解Delphi中的字符串2012-01-11一：各种字符串字符串是ObjectPascal所有数据类型中最有用的类型。许多函数以字符串为传递参数。由于在Delphi中字符串的定义和使用有各种方式，包括Pascal中典型的字符串（String），Delphi支持的长字符串（ANSIString），类似于C语言的字符数组（ArrayofChar），指向字符的指针（Pchar）等。下面的文章就跟谈谈这些类型在定义和应用中的区别和注意事项。1．传统的Pascal...

Classes-Function

2016年07月27日 51 阅读

Classes-Function2012-01-11 博客园 万一Classes.ActivateClassGroupClasses.ActiveClassGroupClasses.AllocateHWndClasses.AncestorIsValidClasses.BeginGlobalLoadingClasses.BinToHexClasses.BoundsClasses.CheckSynchronizeClasses.ClassGroupOfClas...

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

2016年07月27日 93 阅读

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数组保存到文件并读取

2016年07月27日 40 阅读

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中用命令行参数实现启动时最小化

2016年07月27日 45 阅读

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学习（一）

2016年07月27日 50 阅读

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

2016年07月27日 44 阅读

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

2016年07月27日 45 阅读

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中属性的自动完成

2016年07月27日 51 阅读

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实现虚拟盘映射

2016年07月27日 49 阅读

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

Delphi中使用TWebBrowser编辑网页

2016年07月27日 43 阅读

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将商品金额小写转大写

2016年07月27日 47 阅读

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

Delphi下的通配符查找函数

2016年07月27日 44 阅读

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的思考

2016年07月27日 50 阅读

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获取常用系统变量

2016年07月27日 46 阅读

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

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

2016年07月27日 44 阅读

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

Delphi存储过程的调用方法

2016年07月27日 45 阅读

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

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

2016年07月27日 48 阅读

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