私はメソッドを持っているすべてのメソッドを実行し、組み合わせてブール結果

Question

を返すためのエレガントな方法は何ですか：少なくとも場合

function SomeClass.DoSomethingManyTimesForDifferentParams: Boolean; 
begin 
    DoSomething('one'); 
    DoSomething('two'); 
    DoSomething('three'); 
end; 

：

function SomeClass.DoSomething(param: String): Boolean; 

は、この方法は、1つの方法で、例えば、頻繁に使用されているとしましょう1つのDoSomethingメソッドはFalseを返します。メソッド全体の結果はFalseでなければなりませんが、すべてのメソッド呼び出しで作業を行う必要があります。ただ醜いです

function SomeClass.DoSomethingManyTimesForDifferentParams: Boolean; 
var 
    r1, r2, r3: Boolean; 
begin 
    r1 := DoSomething('one'); 
    r2 := DoSomething('two'); 
    r3 := DoSomething('three'); 
    Result := r1 and r2 and r3; 
end; 

：

は今、私はこれを持っています。 DoSomething呼び出しをインライン化できません。最初のメソッドが返された場合は、 Falseの残りのメソッドはどれも最適化のために呼び出されません。私は思いつくことができないシンプルでエレガントな方法を欠いていると思う。

Answer 1

IMHO、より安全かつ簡単なパターンは、次のことがあります

function SomeClass.DoSomethingManyTimesForDifferentParams: Boolean; 
begin 
    result := DoSomething('one'); 
    if not DoSomething('two') then 
    result := false; 
    if not DoSomething('three') then 
    result := false; 
end; 

読んで理解することは明らかです。

その他のメソッドは、現在のブール式の評価設定に基づいているため、エラーが発生しやすくなります。

booleanの代わりに列挙型を返すことも考えてください。これにより、コードロジックがより明示的になる可能性があります。falseはエラーですか？より良い返信dsFailedはTDoSomeThingResult = (dsSuccess, dsFailed)です。

Answer 2

リスト内の異なるパラメータを渡すのはどうですか？ような何か：

function DoSomethingManyTimes(const AList: array of String); 
var 
    ss: string; 
begin 
    result := true; 
    for ss in AList do begin 
    result := DoSomething(ss) and result; 
    end; 
end; 

Answer 3

あなたはコードの前complete Boolean expression evaluation *を有効にしてから、後でそれを無効にすることができます

BOOLEVALディレクティブ ONで

function SomeClass.DoSomethingManyTimesForDifferentParams: Boolean; 
begin 
    {$IFOPT B-} 
    {$DEFINE BOOLEVALISOFF} 
    {$BOOLEVAL ON} 
    {$ENDIF} 

    Result := DoSomething('one') and 
      DoSomething('two') and 
      DoSomething('three'); 

    {$IFDEF BOOLEVALISOFF} 
    {$UNDEF BOOLEVALISOFF} 
    {$BOOLEVAL OFF} 
    {$ENDIF} 
end; 

、コンパイラも、各式の結果を評価し、コードを生成します。全体的な結果はすでにわかっていますが、すべての関数が呼び出されます。

（*この指示文は、マニュアルではBoolean short-circuit evaluationと呼ばれていますが、逆の動作をするので混乱します）。

Answer 4

これを達成する方法は複数あります。

（私の意見に基づいて）最も簡単かつ明確な方法は、あなたが特定のパラメータの結果が真であることを必要とするときにも同様のアプローチを使用することができますので、

function SomeClass.DoSomethingManyTimesForDifferentParams: Boolean; 
begin 
    if DoSomething('one') and 
    DoSomething('two') and 
    DoSomething('three') = true then Result := True 
    else Result := False; 
end; 

のような複数の条件でif文を使用することですが、他のためにそのような偽です：

function SomeClass.DoSomethingManyTimesForDifferentParams: Boolean; 
begin 
    if (DoSomething('one') = True) and 
    (DoSomething('two') = True) and 
    (DoSomething('three') = False) = True then Result := True 
    else Result := False; 
end; 

この例では、全体的な機能は、DoSomethingへの最初の2つのコールがTrueを返しますし、何かをする最後の呼び出しが希望する場合にのみTrueを発生します返信False。 前の例では必要ではないが、必要に応じて各別の条件をそれ自身のかっこに入れることに注意してください。

あなたには、いくつかのリストでは、あなたのパラメータを持っている場合は、ループの中から、あなたのDoSomethingメソッドを呼び出すなどの結果を確認し、あなたが多数、あるいはダイナミックを持っている場合は、ループを使用して、最後のアプローチは特に便利来るので

function DoSomethingManyTimes(const AList: array of String): Boolean; 
var 
    ss: string; 
begin 
    for ss in AList do begin 
    result := DoSomething(ss); 
    //Break the loop if the result previously called DoSomething is False 
    //to avoid calling DoSomething for every input parameter. 
    if Result = False then Break; 
    end; 
end; 

DoSomethingメソッドに送信するパラメータの数。しかし、それはDoSomethingがすべてのパラメータに対してtrueを返すことを期待しているので、2番目の例のように異なる組み合わせの能力がないので、制限があります。TrueとFalse結果