unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, SUIForm, SUIButton, SUIEdit,Types; type TForm1 = class(TForm) suiForm1: TsuiForm; Label1: TLabel; saat: TsuiEdit; dakka: TsuiEdit; suiButton1: TsuiButton; Timer1: TTimer; tarihh: TsuiEdit; Timer2: TTimer; Label2: TLabel; procedure Timer1Timer(Sender: TObject); procedure suiButton1Click(Sender: TObject); procedure Timer2Timer(Sender: TObject); private public end; var Form1: TForm1; implementation type TValueRelationship = -1..1; procedure TForm1.Timer1Timer(Sender: TObject); var tarih : TDateTime; sonuc : AnsiString; begin tarih:=now; sonuc:=DateTimeToStr(tarih); Label1.Caption:=sonuc; end; procedure TForm1.suiButton1Click(Sender: TObject); begin Timer2.Enabled:=True; end; function CompareDateTime(const A,B:TDateTime):TValueRelationship; Begin end; procedure TForm1.Timer2Timer(Sender: TObject); var tarih,ikinci : TDateTime; noww,t,s,d,nokta : string; begin ikinci:=now; nokta:=':'; t:=tarihh.Text; s:=saat.Text; d:=dakka.Text; noww:=t+' '+s+nokta+d+nokta+'00'; tarih:=strToDateTime(noww); if CompareDateTime(tarih,ikinci)=0 then Begin ShowMessage('ALARM!!!!!!'); Timer2.Enabled:=False; end; end; end.
Boyle bi basit hatırlatıcı tarzı program yaptım.Ama calışmadı.Hata nerde yardımcı olurmusunuz..
__________________