Entfernen Teil der Bedingung in einigen Fällen

Question

Gibt es eine Möglichkeit, Teil der Bedingung in IF Anweisung zu entfernen, je nachdem, ob ich es brauche oder nicht. Weiter Code ist beispielsweise weil in meinem Code eine Menge von benutzerdefinierten Funktionen und Prozeduren in meiner Sprache gibt es:

IF A THEN 
Q := TQuery.Create(Application); 
IF B AND C AND D AND E AND Q.FieldByName('Example').AsInteger = 1 then 
BEGIN 
... 
END 

So lassen Sie uns sagen, nach TQuery schaffen, die ich einige Daten in sie importiert haben (ich habe nicht schreibe diesen Teil des Codes hier). Gibt es eine Möglichkeit, Teil mit Q in der zweiten IF-Anweisung zu entfernen, wenn die Q nicht erstellt wurde (weil die Bedingung A wurde nicht erfüllt) oder muss ich die gesamte IF Anweisung wieder nur ohne Q Teil wringen?

Ich dachte mit etwas wie CASE zu überprüfen, ob Q erstellt wird und wenn es nicht ist, nur um diesen Teil des Satzes zu überspringen. Wenn es möglich ist, wie kann ich es überspringen?

Answer 1

Schnelle und schmutzige Art und Weise

IF B AND C AND D AND E AND (NOT A OR Q.FieldByName('Example').AsInteger = 1) then 

Als Hinweis, versuchen Sie, wenn die Bedingungen einfacher zu halten.

EvaluationRequested := A AND C ... 
QueryNeedsAval := NOT A OR ... 
if EvaluationRequested AND QueryNeedsAval then 
begin 
    ... 
end;