Terminerrinerung ?

[Vader]

hallo,

ich möchte gerne eine art terminerinnerung programmieren,das müßte so ausschauen:
wenn es der 05.10.2005 und 10:00 uhr ist dann sollte ein infofenster mit der errinnerung
kommen !

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin

if  "datum und uhrzeit richtig"

then forminfo.show;

end;

mfg vader

[hibbert]

versuchs mal mit

Delphi-Quellcode:

strtodate('27.01.1987');
date;
datetostr(now);

das gleiche geht auch mit time :wink:

hibbert

[Vader]

hallo,

Delphi-Quellcode:

rocedure TForm1.FormCreate(Sender: TObject);
begin
if  datetostr(now)
then forminfo.show;

end;

Delphi-Quellcode:

[Fehler] Unit1.pas(28): Ausdruckstyp muß BOOLEAN sein

mfg vader

[Luckie]

Les dir in der Delphi Hilfe oder deinem Buch mal das Kapitel über Verzweigungen mit if durch.

[Chegga]

Hi,

als erstes solltest du vielleicht das noch mal anschauen:
Verzweigungen

@ Topic:
Hier ein kleines Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  If Date = StrToDate('05.10.2005')
  Then ShowMessage('Sharky always says: *blubb*');
end;

MfG Marc

[PierreB]

Delphi-Quellcode:

procedure Form1.OnClick(Sender: TObject);
var
zeit : TTime; 
datum : TDate;
begin
datum := StrToDate('05.10.2005');
zeit := TimeToStr('17:52:00');
if (TimeToStr(zeit) = TimeToStr(now)) and (DateToStr(datum) = DateToStr(now)) then infoform.Show;
end;

[Nikolas]

Bei solchen Überprüfungen ist es sinnvoll, nicht auf '=' sondern auf '>' zu prüfen. Wenn der Rechner in dieser Sekunde grad viel zu tun hat und deswegen diese Zeile nicht ausführt, kann es gut passieren, dass der Termin verpasst wird.
Wenn du aber prüfst, ob der Termin in der Vergangenheit liegt, hast du o.g. Problem nicht. Wenn du nach der Form.show-Anweisung dann sagst, dass dieser Termin nicht mehr angezeigt werden soll, hast du auch keine Probleme damit, dass der Termin später unendlich oft angezeigt wird.

[PierreB]

Zitat:

Bei solchen Überprüfungen ist es sinnvoll, nicht auf '=' sondern auf '>' zu prüfen

Delphi-Quellcode:

procedure Form1.OnClick(Sender: TObject);
var
zeit : TTime; 
datum : TDate;
begin
datum := StrToDate('05.10.2005');
zeit := TimeToStr('17:52:00');
if (TimeToStr(zeit) <> TimeToStr(now)) and (DateToStr(datum) <> DateToStr(now)) then ShowMessage('Es st noch nicht soweit') else forminfo.show;
end;

[Vader]

hallo PierreB,

der fehler kommt:

Delphi-Quellcode:

[Fehler] Unit1.pas(33): Inkompatible Typen: 'TDateTime' und 'String'

mfg vader

[PierreB]

Zitat:

[Fehler] Unit1.pas(33): Inkompatible Typen: 'TDateTime' und 'String'

Delphi-Quellcode:

procedure Form1.OnClick(Sender: TObject);
var
zeit : TTime; 
datum : TDate;
begin
datum := StrToDate('05.10.2005');
zeit := StrToTime('17:52:00');
if (TimeToStr(zeit) <> TimeToStr(now)) and (DateToStr(datum) <> DateToStr(now)) then ShowMessage('Es st noch nicht soweit') else forminfo.show;
end;

So sollte es jetzt gehen, ich sollte meine Sources vor dem Posten mal prüfen.
(Den Fehler hättest du aber auch selber beheben können) ;)