版主：
*ST右安龙
*ST右安龙
按主题
按用户名
按昵称
按相册
主题:请教啊
认证会员
代码如下
procedure TForm1.Button3Click(Sender: TObject);
var
present:tdatetime; //这个tdatetime是什么意思啊
Year,manth,day,Hour,min,sec,msec:word;
temp:string;
begin
present:=now;
decodedate(present,Year,manth,day); //decdedate又是什么意思
temp:=inttostr(Year)+'.'+inttostr(manth)+'.'+inttostr(day);
decodetime(present,Hour,min,sec,msec); //decodetime 是什么意思呢
label1.Caption:=temp+' '+inttostr(Hour)+':'+inttostr(min)+':'+inttostr(sec);
//inttostr是获取字符串 还是获取数啊
小弟 在这里请教下啊
end;
end.
procedure TForm1.Button3Click(Sender: TObject);
var
present:tdatetime; //这个tdatetime是什么意思啊
Year,manth,day,Hour,min,sec,msec:word;
temp:string;
begin
present:=now;
decodedate(present,Year,manth,day); //decdedate又是什么意思
temp:=inttostr(Year)+'.'+inttostr(manth)+'.'+inttostr(day);
decodetime(present,Hour,min,sec,msec); //decodetime 是什么意思呢
label1.Caption:=temp+' '+inttostr(Hour)+':'+inttostr(min)+':'+inttostr(sec);
//inttostr是获取字符串 还是获取数啊
小弟 在这里请教下啊
end;
end.
-------------------------------------------------------------------------------------------
春哥纯爷们，铁血真汉子，人民好兄弟，父亲好儿子，胸口碎大石，双拳能站人，双臂能过马，菊花开瓶盖，夜御百女枪不倒，菊花百战色仍红。
发表于:2009-06-27 00:47:12
推荐：牙齿有问题，您找我!
...楼主...
47
0
来自：上海
注册：2009-05-12
发帖：0＋31
注册：2009-05-12
发帖：0＋31
present:tdatetime; //这个tdatetime是什么意思啊
这个是时间类,负责处理时间类型的。
//decdedate又是什么意思 将当前时间分解成年月日的形式。
//decodetime 是什么意思呢 还是刚才的那个时间分解出 时分秒
inttostr 强制类型转换 delphi中整型就是整型 必须强制转换成字符型 负责赋值给labele.caption时会报错。
整个代码就是取当前时间，并且显示出来。
这个是时间类,负责处理时间类型的。
//decdedate又是什么意思 将当前时间分解成年月日的形式。
//decodetime 是什么意思呢 还是刚才的那个时间分解出 时分秒
inttostr 强制类型转换 delphi中整型就是整型 必须强制转换成字符型 负责赋值给labele.caption时会报错。
整个代码就是取当前时间，并且显示出来。
-------------------------------------------------------------------------------------------
世人笑我太疯癫，我笑世人看不穿。不见武林豪杰墓，无花无酒锄作田。
发表于:2009-08-27 16:29:02
推荐：一个上海男人如何让自己的老婆在圣诞夜热血沸腾
...第1楼...
回复主题 [ 返回Delphi ]  |
|
|---|---|
| 主题： | 请教啊 |
手机看宽带山
