Einzelnen Beitrag anzeigen

wendelin

Registriert seit: 29. Dez 2010
Ort: Nürnberg
126 Beiträge
 
Delphi 7 Enterprise
 
#15

AW: Dyn. Array of Double an funktion übergeben

  Alt 24. Mär 2021, 10:44
Hallo,
vielen Dank für Eure Antworten.

Die Fehlermedung 'Incompatible Types' Array und dyn. Array kam von einer falschen Array-Var.
Jetzt läuft es!

Ich habe noch eine Frage: Warum muß im Funktionskopf das Array of Double als Konstante deklariert werden ?

Ich habe noch die Funktion IndexOfMinValue geschrieben:
Delphi-Quellcode:
function IndexOfMinValue_1(Const x : Array of Double): Integer;
Var
  Index : Integer;
  MinValue : Double;
begin
  Result := high(x);
  MinValue := MaxDouble;
  for Index := 0 to high(x) do begin
    if x[Index] < MinValue then begin
      Result := Index;
      MinValue := x[Index];
    end;
  end;
end;
Wendelin
Wolfgang
  Mit Zitat antworten Zitat