Hallo liebe Delphi-PRAXIS'ler,
ich habe ein Problem wo ich einfach nicht hintersteige:
Code:
repeat
incDay(Tag);
if DayOfWeek(Tag)=6 then Tage.Items.Add(Datetostr(Tag));
until Tag=Now;
Das Problem ist, dass sich das Programm aufhängt und nichts tut
Zur Erklärung:
Tag:TDateTime;
Tage: TCheckListBox;
Liebe Grüße
loirad