Delphiの場合どの変数（整数）が最大であるかを調べるには

Question

私はC、S、F、Uの4つの整数変数を持っていますが、それぞれファイルルーチンの結果に応じて値が割り当てられます。 S成功、F ailedおよびU serDefined。どの変数が最大値を保持しているかを調べる最も良い方法は何ですか？

Answer 1

はこのような何かを試してみてください：

var 
    C, S, F, U: Integer; 

    function WhichIsHighest(const Values: array of Integer): Integer; 
    var 
    I, Highest: Integer; 
    begin 
    Result := Low(Values); 
    Highest := Values[Result]; 
    for I := Result+1 to High(Values) do begin 
     if Values[I] > Highest then begin 
     Result := I; 
     Highest := Values[I]; 
     end; 
    end; 

begin 
    ... set C, S, F, U as needed ... 

    case WhichIsHighest([C, S, F, U]) of 
    0: ...; // C is highest 
    1: ...; // S is highest 
    2: ...; // F is highest 
    3: ...; // U is highest 
    end; 
end;