Abfragen des Input

[christheg]

also eleganter wäre dann zb

Delphi-Quellcode:

procedure TForm1.StartesequenzielleAufnahme1Click(Sender: TObject); 
begin 
  while QAPIExtReadDI32(handle, 0, 0) = 0 do
  Aufnahme:=true;  AnsichtUpdate1Click(self);  //aktualisiere Menüs 
  if form1.IniEinzelbild then begin 
     // Foto - Sequenz 
     timer1.Interval:=form1.IniIntervall*1000; 
     TimerStatus:=TSBildFolge; 
     timer1.Enabled:=true; 
  end else begin 
     // Video - Folge 
     TimerStatus:=TSvideoFolge; 
     repeat 
       label1.Caption:='Videoaufnahme'; 
       NextDateiname; 
       EinVideo;                                        // aufnehmen 
       Timer1.Interval:=form1.IniEinzelVideoDauer*1000; 
       timer1.Enabled:=true; 
       repeat 
         Application.ProcessMessages;                   //Abbruchmöglichkeit 1 
       until TimerStatus<>TSvideoFolge; 
       label1.Caption:='Videoerholpause'; 
       EinVideoStop;                                    // erholen 
       Timer1.Interval:=form1.IniErholzeit; 
       timer1.Enabled:=true; 
       repeat 
         Application.ProcessMessages;                   //Abbruchmöglichkeit 1 
         label1.Caption:=inttostr(timer1.interval)+'x'+inttostr(Timerstatus); 
       until TimerStatus<>TSvideoFolgePause; 
     until TimerStatus=TSStopAnforderung;              // abbruch? 
     Aufnahme:=false; 
     AnsichtUpdate1Click(self); 
  end; 
end;

kann es leider erst morgen testen von daher die vielen fragen sry :/