Delphi에서 가장 큰 변수 (정수)를 찾으려면 어떻게합니까?

Question

나는 C, S, F 및 U라는 네 개의 정수 변수를 가지며 파일 루틴의 결과에 따라 각각 할당 된 값을 가지므로 C을 나타냅니다. 도깨비, 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;