+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: or komutu hakkinda (/showthread.php?tid=7678)
or komutu hakkinda - sadikacar60 - 12-04-2024
ttime:=StrToInt(edtTime.Text);
if (not(ttime=15)or not(ttime=30)or not(ttime=45)or not(ttime=60) ) then begin ShowMessage('15-30-45-60 dk girmelisiniz'); exit; end;
if ((ttime<>15)or(ttime<>30)or(ttime<>45)or(ttime<>60) ) then begin ShowMessage('15-30-45-60 dk girmelisiniz'); exit; end;
arkadaslar 15 30 45 60 rakamlari haricinde deger girilince uyari versin istiyorum ama yukardaki kodlar calismadi neyi gozden
kaciriyorum acaba
saygilar
if not ((ttime=15)or(ttime=30)or(ttime=45)or(ttime=60) ) then begin ShowMessage('15-30-45-60 dk girmelisiniz'); exit; end;
bu sekilde yapinca calisti
cok tesekkurler
or komutu hakkinda - sso - 12-04-2024
if not ttime IN [15,30,45,60] then begin ShowMessage('15-30-45-60 dk girmelisiniz'); exit; end;