Delphi中关于用string类型进行循环的问题

Question

我想用两个string类型的数据进行循环，例如：edit1.text中的数据位2010-09-08，edit2.text中的数据位2010-09-12，
简要代码如下：
var count:string;
......
count:=edit1.text;
while (count<=edit2.Text) do
  begin
  count:=count+'''+1+''';
  end;
怎么实现count的递增？

Answer 1

你的意思是要将日期差累加吧？
如果是，那么将string转为tdatatime直接累加就行。

Answer 2

var a:TData;
begin
  a:=a+1;
  DataTimeTostr(a);
end;

Answer 3

用TDateTime类型，然后用IncDay方法对其进行日期加减
要
uses
DateUtils;里面有很多对于日期的操作