菜鸟问题```

Question

if (copy(datetostr(date),7,1)='-')then
 label3.Caption:=copy(datetostr(date),6,1)
 else
 label3.caption:=copy(datetostr(date),6,2);label3.caption:=copy(datetostr(date),6,2);在这句里是具体什么概念噢````

Answer 1

datetostr(date)是将当前的日期转换成一个字符串：
1. 情况一：当月份为1-9时, 转换的字符串格式是yyyy-m-dd；
2. 情况二：当月份为10-12时, 转换的字符串格式是yyyy-mm-dd。
(注：当天是1-9时，这里的dd也有可能只有一位)
这段代码是想在label3中显示出当前的月份，所以它判断了这符串的第7个字符是不是'-'，如果是，则是情况1，否则是情况2。
情况1时，需要输出这个字符串的第6个字符，即copy(datetostr(date),6,1)
情况2时，需要输出这个字符串的第6和第7个字符，即copy(datetostr(date),6,2)

Answer 2

BTW，这段代码可以改为如下的代码：
  label1.Caption := IntToStr(MonthOf(Date));
其中MonthOf函数属于DateUtils单元，所以别忘了在单元前面uses DateUtils

Answer 3

还可以改写成：
label3.Caption := FormatDateTime('m', Date);