各位老大:这样的问题可以解决吗？

[kevinworkroom]

问题是这样的：
在TreeView中动态生成从2002-1-1到今天(2004-10-25),
要求在TV中分三级：第一级是年，第二级是月，然后是日，
如下：
--2001
| ---1
| | |-1
| | |-2
| | |..
| | |-30
| | |-31
| |
| +-2
| +-3
| ...
| +-11
| +-12
+-2002
+-2003
+-2004

[jinjazz]

treeview1.add(..)
treeview1.addchild(..)

[jinjazz]

sorry
---
treeview1.Items.Add()
treeview1.Items.Addchild()

[Nirvanaxumm]

没这么简单，还要考虑大小月和闰年2月的问题。
其余用循环创建就行了。

[kevinworkroom]

jinjazz(人雅的标记--落寞刺客)说清楚点可以吗？
我用了你这个方面不行，






还请各位回答问题的时候详细点　。

[kevinworkroom]

Tn :=TreeView1.Items.AddChild(nil,'1');
Tn:=TreeView1.Items.AddChild(Tn,'11');
TreeView1.Items.AddChild(Tn,'111');

我用这个方面做，循环到月的时候它给我添加了12级，晕

[ksaiy]

http://www.delphibox.com/article.asp?articleid=875

这里有个例子很详细的.你修改一下吧.

[jinjazz]

>>没这么简单，还要考虑大小月和闰年2月的问题。

无语

var T0,T1:Ttreenode;
aDay:Tdatetime;
Y,M,D:word;
begin
Y:=0;M:=0;D:=0;
aDay:=strtodate('2002-01-01');
while aDay<=now do
begin
if yearof(aDay)<>Y then
begin
Y:=yearof(aDay);
T0:=treeview1.Items.Add(nil,inttostr(Y));
end;
if monthof(aDay)<>M then
begin
M:=monthof(aDay);
T1:=treeview1.Items.AddChild(T0,inttostr(M));
end;
D:=dayof(aDay);
treeview1.Items.AddChild(T1,inttostr(D));
aDay:=aDay+1;
end;
end;

[jinjazz]

uses dateutils;

[kevinworkroom]

我要的不是和数据库相关的，改了也用不了，我要的是一种方面，可以解决问题的。

动态增加我到是实现了，但是没有办法控件第一天和最后一天，还有每个有多少天，我现在做出来的东西都是固定的。

[kevinworkroom]

jinjazz(人雅的标记--落寞刺客) 高手高手高手高手高手高手高手高手
俺是delphi初学者，立志向你学习。

[Nirvanaxumm]

哦，想不到可以这样。