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)

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]

while not SollIchWeitermachen do Application.ProcessMessages; Aber schön ist das so nicht.

Und so ballern wir uns auch nicht die CPU zu

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 von mirage228:

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

Clicky

[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 von uligerhardt:

Zitat von mirage228:

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

Clicky

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

[Major1337]

Danke, Exit ist die Lösung. ^^