(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
Delphi 11 Alexandria
|
22. Jun 2003, 02:00
Moin DJ-SPM,
ein kleines Beispiel:
Delphi-Quellcode:
var
tiWecker : TTime;
tiDiff : TTime;
tiNow : TTime;
begin
tiWecker := StrToTime('02:00');
tiDiff := StrToTime('00:01');
tiNow := Time;
if (tiNow >= tiWecker) and (tiNow < (tiWecker+tiDiff)) then ShowMessage('Klingeling');
end;
Ein Tip noch: TIniFile kennt auch die Methoden WriteTime und ReadTime.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|