delphide belirlediğim zaman aralıklarında porta voltaj göndermek istiyorum zaman bitincede voltaj kesilsin istiyorum ama saat olarak sadece ilk baştaki saati alıyor program hangi zaman da açılmışsa o zaman ki saati baz alıyor sistem saatini kullanıyorum sonsuz döngü oluşturdum zaman sürekli saysın diye
while true do
buda programı durduruyor
procedure TForm3.Button1Click(Sender: TObject);
var
zaman1,zaman2,saat:TTime;
begin
saat:=time;
zaman1:=StrToTime(Edit1.Text);
zaman2:=StrToTime(Edit2.Text);
while true do
if CompareTime(zaman1,saat)=0 then
PortOut(888,4)
else
if CompareTime(zaman2,saat)=0 then
PortOut(888,0);
lütfen bana yardımcı olun