Hallo,
ich suchte vor einiger Zeit nach einer Funktion ähnlich der function MaxIntValue.
Nur für Real-Zahlen! Übergeben wollte ich ein Dyn. Array.
Also so etwas wie MaxFloatValue(Array of Double). Gibt es aber nicht.
Nun habe ich bei 'StackOverflow' eine Ersatzfunktion gefunden :
Delphi-Quellcode:
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;
Diese funktioniert aber nicht.Es gibt diverse Fehlermeldungen
Wie muß ich o.g. function aufrufen ?
Wendelin