Delphi里有现成的函数可以实现日期加减,是在DateUtils单元里的。
function IncYear(const AValue: TDateTime;
const ANumberOfYears: Integer = 1): TDateTime;
// function IncMonth is in SysUtils
function IncW ...……
功能
在Treeview中完整显示MainMeun菜单
参考代码
procedure MainMenuToTreeView(MenuItem:TMenuItem;PTreeview:TTreeView;PTreeNode:TTreeNode);
var
i:Integer;
newNode:TTreeNode;
begin
for i:=0 to Men ...……