已知两个日期值，怎么得到两者之间的所有日期值

已知两个日期值，如何得到两者之间的所有日期值
例如我有两个日期值：

2009-12-29
2010-10-15

我需要得到两者之间的所有的日期值，也包括这两者本身。

我希望得到的结果是一个string数组，数组里保存的就是所有日期的字符串。

即：('2009-12-29','2009-12-30','2009-12-31','2010-01-01','2010-01-02',......,'2010-10-14','2010-10-15')

非常感谢！！

[解决办法]

Delphi(Pascal) code

var  DateFrom, DateTo: TDate;  Count0 : integer;  Dates : array of string;begin  DateFrom := EncodeDate(2009, 12, 29);  DateTo   := EncodeDate(2010, 10, 15);  SetLength(Dates, 0);  for Count0 := trunc(DateFrom) to trunc(DateTo) do  begin    SetLength(Dates, length(Dates) + 1);    Dates[high(Dates)] := formatdatetime(Count0, 'yyyy"-"mm"-"dd');  end;    end;