Letze Monate auflisten

[Hawkeye219]

Hallo,

vielleicht kann man es so angehen:

Delphi-Quellcode:

var
  DT, EndDate : TDateTime;
begin
  DT := Now;
  EndDate := DT - 120;

  Memo.Clear;
  while (DT >= EndDate) do
    begin
      Memo.Lines.Add (FormatDateTime('mmmm yyyy', DT));
      DT := IncMonth(DT, -1);
    end;
end;

Gruß Hawkeye