Label1.Caption := DateToStr(StrToDate(edit1.Text) + StrToInt(edit2.Text));
解决方案 »
- 散分,没有理由!
- 精确的屏幕取词的源码,高分相送,请高手帮忙.
- 请问这样定义游标为什么出错,在线等…
- 初学Delphi,请教几个问题
- 能不能给toolbar的button按钮上加上文本?
- 请问为什么我在Delphi 6下的Microsoft Jet 4.0 OLE DB Provider不支持Excel?
- 如何使一个form的title隐藏起来,即没有窗口
- 为什么编译后有1,2M啊,我用delphi6写程序?
- 关于windows“另存为”的对话框
- “list index out of bounds (0)”是什么东西????
- 请帮我看一下
- 怎样用DELPHI实现,只删除指定文件夹内的文件,而不把文件夹一起删除?!答对一定给分
begin
a:= strtodate(Edit1.text);
a:= a+ Strtoint(Edit2.text);
label1.caption := datetostr(a);
end;
试试看???
试试看???