Prüfung ob Wochentag in der Zeit vorhanden

[stahli]

Delphi-Quellcode:

for i:=0 to Tage.Items.Count-1 do
  if Tage.Items.Strings[i]='' then Tage.Items.Delete(i);

Die Schleife solltest Du rückwärts laufen lassen, da Du sonst 2 aufeinander folgende Leerzeilen nicht erkennst.

Ansonsten:
Was funktioniert denn nicht?
Setze mal einen Haltepunkt, debugge schrittweise und untersuche Deine Variablen. Das sollte helfen...

[loirad]

Hinweis gleich eingearbeitet!
Für Now bekomme ich beim debuggen nur:"Nicht verfügbarer Wert" und für Tag nur so eine komische Zahl (vermutlich integer Wert für das Datum)!
Sonst fällt mir nichts auf

[stahli]

Welches Delphi hast Du?
Kannst Du bei den Überwachten Ausdrücken "Funktionen zulassen"? Dann wird die Funktion ausgeführt und das Ergebnis im Debuger angetzeigt.
Ansonsten nutze eine lokale Variable, der Du "Now" zuweist. Die Variable lässt sich dann auf jeden Fall auslesen.

[Bjoerk]

Tag:= IncDay(Tag);

[Darlo]

Hi,

der Variablename "tag" ist ziemlich unglücklich da TComponent."tag" bereits vergeben ist. Ggf. löst das schon Dein Problem, ansonsten schau Dir folgendes mal an (schon auf Deinen Code modifiziert, die until-Anweisung hat hier nicht wirklich einen Sinn....):

Delphi-Quellcode:

var
  startDate, myIncDate: TDate;
  i: integer;
begin
//Finde das Datum des nächsten Sonntags
i := 1;
startDate := now;
repeat
  myIncDate := incDay(startDate,i);
  if DayOfWeek(myIncDate) = 7 then showmessage('Nächster Sonntag am: '+Datetostr(myIncDate+1));
  i := i+1;
 until (DayOfWeek(myIncDate)=DayOfWeek(Now));

Gruß Darlo

[Darlo]

Zitat von Bjoerk:

Tag:= IncDay(Tag);

Hab Deinen Post nicht richtig gelesen....
Hast ja bereits die Antwort gegeben gehabt.

[loirad]

Ich will alle Freitage ausgeben. Den Rest probiere ich heute Nachmittag aus.