Kalender mit Checkboxen

[Pullmoll]

Hallo,
ich habe ein ähnliches Problem, ich möchte das man einen oder mehrere Wochentage (Montag, Diensatg, ...) per Checkbox auswählen kann und diese werden dann mit dem heutigen Wochentag vergleicht. Leider stoße ich aber auf das Problem das ich es nicht hin bekomme. (Hatte vor diese dann mit einer Case_Anweisung zu vergleichen)

mein Ansatz:

var
Wochentag: integer;
datum : TDateTime;

begin
datum := date; //Datum von Heute
wochentag := LongDayNames[DayOfWeek(datum)];
Label1_Wochentag.Caption := IntToStr[DayOfWeeek(Datum)];

normal sollte DayOfWeek doch einen Integer Wert zurück geben oder?
andere Lösungsvorschläge ?

[himitsu]

Ja, einen Integer, aber einen Lösungsvorschlag kann ich leider nicht geben, da ich garnicht weiß (hat irgendwie keiner verraten), wo eigentlich dein Problem liegt.

Und den Fehler bei wochentag := LongDayNames[... hat dir der Compiler bestimmt schon genannt.

[hoika]

Hallo,

Ohne, dass ich jetzt Delphi starte

http://www.delphibasics.co.uk/RTL.asp?Name=DayOfWeek

Was ist denn hier falsch?

Außer das eee .


Heiko

[Pullmoll]

Hallo,
erstmal Danke für die schnelle Hilfe. Was ich möchte, ist der Integerwert von der funktion DayOfWeek, diese hat aber als Ausgabewert ein Word Datentype, so wie ich es verstanden habe, denn der compiler zeigt mir immer an dieser Stelle:

Label1_Wochentag.Caption := IntToStr[DayOfWeeek(Datum)];

eine Fehlermeldung:
[Fehler] DiitalUhr_u.pas(89): Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann

ich benutze Delphi 7 Personal von dem Buch Delphi für Kids.

Ich habe vor das man bei meinem Wecker/Uhr die Wochentage an denen der Wecker klingeln soll per Checkboxen aktivieren werden kann und der durch einen Timer der per Button eingeshaltet wird ständig überprüft ob der/einer der Wecktag(e) erreicht ist wenn ja soll er nach der Uhrzeit gucken. Es läuft auch alles so wie ich es will bloß, dass Problem mit den Wochentagen bleibt.

Den Wochentag alleine als ausgeschriebenes Wort hab ich bereits als Information auf meinem Formular.

lbl_wochentag.Caption := ('Heute ist '+wochentag);

Ich hoffe das ich meine Situation etwas genauer beschreiben konnte und das ihr mir vielleicht etwas weiter helfen könnt.

[himitsu]

Ganz sicher, daß der Funktionsaufruf IntToStr[...] wirklich so stimmt?

[Pullmoll]

wie meinst du ?

[Captnemo]

Also:
IntToStr(..) ! Runde Klammern, nicht Eckige!

Und DayOfWeek(..) ! Man beachte Week wird mit 2 e geschrieben, nicht mit 3 !

Darüberhinaus stören mich das Form1.Hide bzw. Form1.Show im OnClick des Zurück-Buttons. Nicht schön.