Datum für die nächsten 2 Wochen ausgeben?

[BluesKid]

Moin moin

Delphi-Quellcode:

type ZeigListe = ^TStrings;

procedure incDate(Datum : TDatetime; aCount : Integer; aList : ZeigListe);
//Addiert zu "Datum" die anzahl Tage in "aCount" und gibt alles in "aList" aus
var i : Integer;
begin
  for i := 0 to aCount do aList.Add(datetostr(Datum + i));
end;

Der Aufruf (Bsplw.)

  incDate(now, 13, @Memo1.lines)
schönen Gruß
Sam