以下内容为程序代码:
1 runmode:1;
2
3 extgbdataset('date',numtostr(year,0)+'-'+numtostr(month,0)+'-'+numtostr(day,0));
4 extgbdataset('time',numtostr(hour,0)+':'+numtostr(minute,0));
5
6 string:=extgbdata('date')+' '+extgbdata('time');
7
8 drawtextex(1,1,100,1,string);
