Zaman kontrolü sorunu?

[tnt77]

Değerli Arkadaşlar;
Delphi'de bilgisayarın saatinin benim istediğim saate geldiğinde bazı komutları gerçekleştirmesi amacıyla bir program yapmaya çalışıyorum.Saat olaylarında bir sorun yok ancak iki saatin birbirine eşit olduğunda yapması gereken işlemi yapmıyor yada ben yapamıyorum.Ama 1saat>=2saat dediğimde mesela ozaman yapıyor ama sürekli tekrar ediyo ozaman yardımlarınızı bekliyorum basit bir örnekle sorunu giderirseniz çok sevinirim.

hatanın nerede olduğu hakkında size fikir vermesi açısından kodlarıda ekledim.

////////////////////////////////
var
Form1: TForm1;
x,y:Ttime;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=strtotime(maskedit1.Text);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
y:=now;
if comparetime(y,x)=0 then
label1.Caption:='süre doldu'
else
label2.Caption:='süre dolmadı';
end;

end.

/////////////////////////

bu if comparetime(y,x)=0 then kodundamı hata var acaba bu durumdayken çalışmıyor ama 1 desem çalışıyor anlamadım gitti.
Yardımlarınızı bekliyorum.Saygılarımla...

[conari]

Kod: Tümünü seç

y:=now;
y:=time;

olarak kullanıp denermisiniz.

[khanco]

zamanı stringe çevirip karşılaştırmayı denersen küsüratları sileceği için sana 1 sn karşılaştırma zamanı kalacaktır.
o zaman bu seçenek 1 saniyeden küçük dilim önemli değilse kullanılabilir.