delphi 取最大值函数

maxvalue 取得array 存储的double的值串的最大值，一直没找到，巧合看到了，记录一下，位于math

function MaxValue(const Data: array of Double): Double;