Pause in if.. else.. Verzweigung

[Major1337]

Hey,
ich möchte eine Art break in einer if / else Verzweigung

Delphi-Quellcode:

if .. then
begin
//..
end
else
//..
// BREAK;
end;

Bei // Break soll eine Pause folgen, wie kann ich das realisieren?

[mirage228]

Erstmal ist das keine Schleife (sondern eine "IF"-Bedingung) :mrgreen:

Zu Deinem Problem: Verwende Sleep, um das Programm für eine gegebene Anzahl an Millisekunden zu pausieren :)

Viele Grüße

[Klaus01]

Guten Morgen,

1€ in die Kaffeekasse für if/else Schleife, wo ist das bitte eine Schleife?

Ansonsten schau Dir mal Sleep oder delay an.

Grüße
Klaus

[Major1337]

Er soll erst weitermachen, wenn eine andere Aktion ausgeführt wird.

[DeddyH]

Erklär das mal genauer. Du kannst doch ereignisgesteuert arbeiten, indem die andere Aktion wieder diese Methode aufruft, oder versteh ich da was falsch?

[Sir Rufo]

Delphi-Quellcode:

while not SollIchWeitermachen do Application.ProcessMessages;

Aber schön ist das so nicht.

Und so ballern wir uns auch nicht die CPU zu :mrgreen:

Delphi-Quellcode:

while 
  not SollIchWeitermachen 
do 
  begin
    Application.ProcessMessages;  // Mal die Anderen zu Wort kommen lassen
    if 
      not SollIchWeitermachen
    then
      Sleep( 10 );  // 10 Millisekunden verschnaufen
  end;

[uligerhardt]

Zitat:

Zitat von mirage228

Erstmal ist das keine Schleife (sondern eine "IF"-Bedingung) :mrgreen:

Clicky :lol:

[Major1337]

Delphi-Quellcode:

if DateBeginSucheEdit.text <> '' then
  begin
    if DateEndSucheEdit.Text <> '' then
      begin
         tage := Round(StrToDate(DateEndSucheEdit.Text) - StrToDate(DateBeginSucheEdit.Text));
         
         if  tage <= 10 then
         begin
          SmartQuery1.SQL.Add('and datum >= :ANFANG and datum <= :ENDE');
          SmartQuery1.ParamByName('ANFANG').Value := StrToDate(DateBeginSucheEdit.Text);
          SmartQuery1.ParamByName('ENDE').Value := StrToDate(DateEndSucheEdit.Text);
      end
      else
      ShowMessage('Differenz darf nicht über 10 Tage sein.');
      DateBeginSucheEdit.Clear;
      DateEndSucheEdit.Clear;
      DateBeginSucheEdit.SetFocus;


      // --BREAK--
       end
    else
      begin
        SmartQuery1.SQL.Add('and datum = :ANFANG');
        DateEndSucheEdit.Text := DateBeginSucheEdit.Text;
        SmartQuery1.ParamByName('ANFANG').Value := StrToDate(DateBeginSucheEdit.Text);
      end
  end
else
  begin
    if DateEndSucheEdit.Text <> '' then
      begin
         SmartQuery1.SQL.Add('and datum = :ENDE');
        DateBeginSucheEdit.Text := DateEndSucheEdit.Text;
         SmartQuery1.ParamByName('ENDE').Value := StrToDate(DateEndSucheEdit.Text);
    end;
  end;

  SmartQuery1.open;
end;

Bei Break soll die Pause folgen, andernfalls zeigt er doch alle Tage an, trotz Fehlermeldung.

[mirage228]

Zitat:

Zitat von uligerhardt

Zitat:

Zitat von mirage228

Erstmal ist das keine Schleife (sondern eine "IF"-Bedingung) :mrgreen:

Clicky :lol:

:twisted:

@Major1337: Mach doch einfach ein "Exit" und lass den Benutzer die Methode erneut aufrufen? :gruebel:

[Major1337]

Danke, Exit ist die Lösung. ^^

[Sir Rufo]

Delphi-Quellcode:

if 
  StrToDateDef( DateBeginSucheEdit.text, 0 ) - StrToDateDef( DateBeginSucheEdit.text, 0 ) <= 10
then
  begin
    
    // Hier führen wir jetzt mal alles aus, weil die Eingaben sind in Ordnung

  end
else
  begin
    ShowMessage( 'Die Eingaben sind Quatsch! Bitte Wiederholen!' );
  end;

Keine Schleife, kein Exit, keine Klimmzüge und überschaubarer.