在界面里有三个控件,入学年份:DateTimePicker1,系部代码:edit1.text,学号:edit2.text,而学号是由入学年份+系部代码+序号(四位)构成,怎么截取DateTimePicker1的年份,再按照构成为学号呢?急,请各位大师指教
解决方案 »
- GIS中的无级缩放是如何实现的?高分相送。
- Delphi编译出现奇怪问题
- 求救,简单问题
- 如何在delphi中直接使用directdraw???
- COM+组件在Internet上的应用,按要求配置了CIS,始终连接不成功
- 游击队出身的,找不一第一份工作怎么办呀!!??
- 求助:cxGrid中如何使用行,列索引使指定单元格取得编辑焦点?
- 请教各位了,在delphi中如何生成可执行文件(送100分)
- 那位大哥给看看,俺的毛病出现在那里,这个问题对你们可能不难,但是对我很难,谁会???/
- 第一次来,我以前是学VB的,望各位指点我买那些书delphi好呀
- 可否获取windows开始菜单的高度?
- 怎样才能得到TDBGrid中的记录数?
procedure TForm1.Button1Click(Sender: TObject);var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end;
str:string;
beginstr:= copy(DatetimeToStr(DateTimePicker1.datetime)),1,4) + edit1.text + edit2.text ;showmessage(str);end;