如何找到數組中最大值的索引？

Question

在Delphi 6中是否有內置函數？即，檢索MaxValue函數返回值的索引的函數。

如果不是什麼是最有效的例程？

Answer 1

德爾福沒有提供這樣的功能，不在Delphi 6中，除非我錯了，甚至在現代的Delphi版本中都沒有。

沒有關於數組內容的任何信息，您必須檢查每個元素以查找最大值以及相應的索引。

uses 
    Math; // MaxDouble is defined by this unit 

function IndexOfMaxValue(const x: array of Double): Integer; 
var 
    Index: Integer; 
    MaxValue: Double; 
begin 
    Result := -1; 
    MaxValue := -MaxDouble; 
    for Index := 0 to high(x) do begin 
    if x[Index]>MaxValue then begin 
     Result := Index; 
     MaxValue := x[Index]; 
    end; 
    end; 
end; 

注意，在並列的情況下，即與所述最大值超過一個元件，該函數將返回第一個這樣的元素的索引。

正如@LURD指出的那樣，如果數組中的所有元素都是-MaxDouble那麼函數返回-1。這可以這樣解決：

function IndexOfMaxValue(const x: array of Double): Integer; 
var 
    Index: Integer; 
    MaxValue: Double; 
begin 
    if high(x) = -1 then begin 
    Result := -1; 
    end else begin 
    Result := 0; 
    MaxValue := x[0]; 
    for Index := 1 to high(x) do begin 
     if x[Index]>MaxValue then begin 
     Result := Index; 
     MaxValue := x[Index]; 
     end; 
    end; 
    end; 
end;