SUM-Funktion mag kein dynamisches array

[messie]

Hallo,

würde gerne die SUM-Funktion oder eine vergleichbare (Mean, StdDev) mit einem dynamischen array verwenden. Das motzt der Compiler aber an, will nur statische arrays. Gibt es Alternativen? Kann ja nur mit der Art der Speicherzuweisung zu tun haben, den auch mit einem statischen array weiß die Funktion ja noch nicht, wie groß das array ist. Ich würde aber gerne aus Geschwindigkeitsgründen die Assembler-Routinen nutzen.

Grüße, Messie

[marabu]

Hallo messie,

zumindest in D7 geht das problemlos:

Delphi-Quellcode:

var
  da: array of double;
  d: double;
  i: integer;
begin
  SetLength(da, 6);
  for i := Low(da) to High(da) do
    da[i] := i * 123.3;
  d := Sum(da);
  ShowMessage(FloatToStr(d));
end;

Grüße vom marabu

[BlackJack]

[OT]gibt es eine solche funktion wie Sum() eigentlich auch mit der funktionalität von Min() oder Max()?[/OT]

[messie]

Zitat von marabu:

Hallo messie,

zumindest in D7 geht das problemlos:

Delphi-Quellcode:

var
  da: array of double;
  d: double;
  i: integer;
begin
  SetLength(da, 6);
  for i := Low(da) to High(da) do
    da[i] := i * 123.3;
  d := Sum(da);
  ShowMessage(FloatToStr(d));
end;

Grüße vom marabu

Nee, genau das geht nicht, auch mit mean nicht. Vielleicht kannst Du mir einfach mal Deine math.pas schicken und ich vergleiche das mal?

Danke, Messie

@ BlackJack: Bei D6 heißen die MinValue und MAxValue, auch in math.pas

[marabu]

Hallo messie,

so gerne ich dir helfe, aber den Quelltext einer Borland-Unit weitergeben darf ich nicht. Für zero knowledge Ansätze stehe ich gerne zur Verfügung: Die Implementierung umfasst 27 Instruktionen.

marabu

[messie]

Ja, bei mir waren es auch 27. Danach habe ich Dein Beispiel nochmal 1:1 ausprobiert in einem neuen Programm.

Ich habe das Problem beheben können: ein Bug in der Compiler-Fehlermeldung! Ich hatte nicht gesehen, daß ich ein ein array of real hatte und auch Deinen Quelltext damit benutzt. Meldung:

Zitat:

[Fehler] Unit1.pas(35): Inkompatible Typen: 'Array' und 'dynamic array'

Hat - glaube ich - einen geschichtlichen Hintergrund.

Danke, Messie