Slideshow Problem Hilfe bitte

[f4r]

Hi Leute,

hab n problem
und zwar hab ich ne form mit ner spinedit das das interval der slideshow angeben soll
das ding ist sie soll mind. 3 sek und max 30 sek. lang sein
also hab ich folgendes geproggt:

Delphi-Quellcode:

procedure TSsForm.Label4Click(Sender: TObject);
begin
if not (spinedit1.value=3) or
       (spinedit1.value=4) or
       (spinedit1.value=5) or
       (spinedit1.value=6) or
       (spinedit1.value=7) or
       (spinedit1.value=8) or
       (spinedit1.value=9) or
       (spinedit1.value=10) or
       (spinedit1.value=11) or
       (spinedit1.value=12) or
       (spinedit1.value=13) or
       (spinedit1.value=14) or
       (spinedit1.value=15) or
       (spinedit1.value=16) or
       (spinedit1.value=17) or
       (spinedit1.value=18) or
       (spinedit1.value=19) or
       (spinedit1.value=20) or
       (spinedit1.value=21) or
       (spinedit1.value=22) or
       (spinedit1.value=23) or
       (spinedit1.value=24) or
       (spinedit1.value=25) or
       (spinedit1.value=26) or
       (spinedit1.value=27) or
       (spinedit1.value=28) or
       (spinedit1.value=29) or
       (spinedit1.value=30) then
       begin
       showmessage('Das Interval muss zwischen 3 und 30 Sekunden liegen !');
       end
else
begin
Picshowform.slideshowtimer.interval:=SpinEdit1.value * 1000;
Picshowform.slideshowtimer.enabled:=true;
Picshowform.visible:=true;
SSForm.Visible:=false;
end;
end;

3 sekunden geht sobal ich aber was reinscheib was innerhalb des erlaubten liegt also z.b. 10
zeigt er mir die message ??? was ist falsch am quellcode ??

danke im voraus

gruss

[Ratte]

Das not gilt nur für (spinedit1.value=1). Besser wäre aber:

Delphi-Quellcode:

 
IF not ((spinedit.value>2)  and (spinedit.value<31)) THEN showmessage('Das Interval muss zwischen 3 und 30 Sekunden liegen !');

mfg,
Ratte

EDIT: klammer vergessen und hervorhebungen eingebaut

[Hador]

Oder alternativ ganz ohne not:

Delphi-Quellcode:

if (spinedit.value<3) or (spinedit.value>31) then showmessage('Das Interval muss zwischen 3 und 30 Sekunden liegen !');

[f4r]

aso danke dann mach ich das so wie ihr mir das rät funktioniert sowieso meistens 3mal so gut :D woher das wohl kommt ???

gruss