Alle Kalenderwochen in Combobox darstellen

[DeddyH]

Alternativvorschlag:

Delphi-Quellcode:

procedure ListCalendarWeeks(Year: word; Dest: TStrings;
  const Prefix: string = 'KW ');
var
  i: integer;
begin
  Assert(Assigned(Dest), 'Zielliste nicht zugewiesen');
  Dest.BeginUpdate;
  try
    Dest.Clear;
    for i := 1 to WeeksInAYear(Year) do
      Dest.Add(Format('%s%d', [Prefix, i]));
  finally
    Dest.EndUpdate;
  end;
end;

procedure TForm24.FormCreate(Sender: TObject);
begin
  ListCalendarWeeks(YearOf(now), ComboBox1.Items);
  ComboBox1.ItemIndex := WeekOf(now) - 1;
end;