delphi 下的日期计算
在项目中，需要做一个日期的提醒功能，挺郁闷的，对日期的计算:
很幸运的是在delphi 中有现有的计算函数，DateUtils单元；
路径:*\Delphi7\Source\Rtl\Common 目录下。
贴出一部分:
function IncYear(const AValue: TDateTime;
const ANumberOfYears: Integer = 1): TDateTime;
// function IncMonth is in SysUtils
function IncWeek(const AValue: TDateTime;
const ANumberOfWeeks: Integer = 1): TDateTime;
function IncDay(const AValue: TDateTime;
const ANumberOfDays: Integer = 1): TDateTime;
function IncHour(const AValue: TDateTime;
const ANumberOfHours: Int64 = 1): TDateTime;
function IncMinute(const AValue: TDateTime;
const ANumberOfMinutes: Int64 = 1): TDateTime;
function IncSecond(const AValue: TDateTime;
const ANumberOfSeconds: Int64 = 1): TDateTime;
function IncMilliSecond(const AValue: TDateTime;
const ANumberOfMilliSeconds: Int64 = 1): TDateTime;
参考地址:http://info.52z.com/html/24801.html
相关文档：
<1>利用Unit的
Initalization与Finalization这两个小节
可以在Unit的这两个小节中安排Unit的进入和退出，但是
Program
与
Library并没有这两个部分，所以只能写在Unit中。
<2>利用ExitProc变量
在Library的begin
..end.中间是可以写代码
的，
这里可以放置
DLL初始化代码
。如果想要做善 ......
Delphi用WebBrowser编程-自动登录操作
2009年08月18日 星期二 00:39
利用Delphi的Olevariant类型
--------------------------------------------------------------------------------
单个frames的输入
var
o : Olevariant;
begin
o := WebBrowser.OleObject.document.all.item('LoginUserID',0); &nbs ......
procedure Delay(msecs:integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
Tick := GetTickCount + DWord(msecs);
while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <&g ......
delphi中的DLL中的声明原码如下：
这里声明了输出性参数分别为数字与字符类型
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + '这是传出的' ......
定义：
CbName: TComboBox;
width: Integer; //实际所需的宽度
在执行代码中按如下方法写：
width := CbName.Canvas.TextWidth(CbName.Items[I]); //可用此方法通过遍历获得某选项的最大宽度，也可以按自己的� ......
