求助，有分！

Question

如何实现在一个文本框中输入一个整形数，使当前日期减去这个数的结果在后面的label中显示xxxx年xx月xx日，详细代码分多！

Answer 1

label1.caption:=formatdatetime('yyyy/mm/dd',date1-i)

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
   year, month, day: word;
   s, syear, smonth, sday: String;
   TT: Tdatetime;
   DD: integer;   
begin
     s:= edit1.text;
     try
        strtoint(s);
     except
           showmessage('请正确输入天数！' );
           exit;
     end;
     DD := strtoint(s);
     TT := date - DD;
     decodedate(TT, year, month, day);
     syear:= inttostr(year);
     smonth:= inttostr(month);
     sday:= inttostr(day);
     Label1.caption:= syaer + '年' + smonth + '月' + sday + '日';
end;

Answer 3

谢谢银兄：高！高！
还有一问，缓冲区怎么清空
 共有
var 
array of  [i,j]：integer;
for(i=1 to 15)
  for(j=a to g)

Answer 4

正常的动态数组是不需要释放的，他们在生存期是自管理的。
你如果想自己释放也可以这样myarray:=NIL;原则上不需要一定释放。
如果你的数组较大，用完后程序并不关闭，则最好将其释放，因为占用资源会影响系统性能，
同时影响你的程序中其他功能的性能。
还有如果你的数组的内容不需要了，如果又要重新改变它的长度，则这时最好先释放，
因为Delphi的数组用Setlength重新分配长度时会根据实际情况，先分配在块新的内存空间，
再把原来的数据复制过去，再释放原来占用的空间，所以如果你原来的数据不需要的话，
复制过程是不需要的！