[Electronic_Arts]

Вот такая у мя так сказать проблема у мя в MaskEdit1 стоит дата
29.11.2008

как мне начиная с этой даты прибавлять в нее 6 месяца - и добавить полученные результаты добавляем в Edit1, Edit2, Edit3 ...и т.д до Edit6

пример: берем текущую дату 29.11.2008
и получаем прибавленные 6 месяца в Edit1, Edit2, Edit3...

Edit1.text:='29.12.2008';
Edit2.text:='29.01.2009';
Edit3.text:='29.02.2009';
Edit4.text:='29.03.2009';
Edit5.text:='29.04.2009';
Edit6.text:='29.05.2009';

мне в голоу ничего не приходит - а как то подругому это можно реолизовать ??????

[Drozh]

Простой код

Код:

var
 Date: TDate;
 i: Integer;
begin
 Date := StrToDate(MaskEdit1.Text);

  for i := 1 to 6 do
  begin
   Date := IncMonth(Date);
   (FindComponent(Format('Edit%d', [i])) as TEdit).Text := DateToStr(Date);
  end;
end;

Выводит:
Edit1.text:='29.12.2008';
Edit2.text:='29.01.2009';
Edit3.text:='28.02.2009'; // т.к. в феврале 2009 нет 29 числа
Edit4.text:='28.03.2009';
Edit5.text:='28.04.2009';
Edit6.text:='28.05.2009';