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

markieren

Delphi-Quellcode:

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

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

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

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

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

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

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

Und so ballern wir uns auch nicht die CPU zu

markieren

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;

Zitat von mirage228:

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

Clicky

zusammenfalten · markieren

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.

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?

Danke, Exit ist die Lösung. ^^