function dayofweek(date: tdatetime): integer;//把日期转成星期
RzStatusPane2//要求是要STRING的，怎么把上面的integer付到RzStatusPane2；

procedure TForm1.FormCreate(Sender: TObject);
var
mytime:TDateTime;
begin
mytime:=NOW;
.......
......
......
self.RzStatusPane2.Caption:=dayofweek(mytime);//错误提示：Incompatible types: 'String' and 'Word'
是什么原因？？
.......
.......
end
上面的错误要在没改？？

为什么不用inttostr呢?

self.RzStatusPane2.Caption:=IntToStr(dayofweek(mytime));
哈哈我也刚发现
不过也谢谢楼上的（可以用的，我试完才来发的）
各位有兴趣的试试！~

[此贴子已经被作者于2006-6-14 16:12:42编辑过]

晕死！~
发现得到的星期不对~~
还的求助！~

xu2000
问下：这个要怎么该？？
虽然：
self.RzStatusPane2.Caption:=IntToStr(dayofweek(mytime)-1);
好象也 可以（我不打包票，因为我在没-1的情况得到的星期比实际多一天）
有什么好办法来解决

怎么不对了？

是这样的，在delphi星期日是第一天。
你是不是这方面没弄明白。

即，星期一得到的应该是2。
我觉得你写的代码应该没问题。

是啊
我希望的是星期日是0
星期一是1
不过我现在就改成下面的方式：
procedure TForm1.FormCreate(Sender: TObject);
var
mytime,a:TDateTime;
begin
mytime:=Now;
if dayofweek(mytime)=1 then
begin
self.RzStatusPane2.Caption:='今天星期日';
end
else
self.RzStatusPane2.Caption:='今天星期'+IntToStr(dayofweek(mytime)-1);
end;
end.

[此贴子已经被作者于2006-6-14 16:39:16编辑过]