Moving Average

[fl63]

Hallo Marabu,
Bei der Version ohne = erscheint bei meinem Testdurchschnit(5er) bereits in der vierten Zeile ein Ergebnis. Wie wir uns bereits geeinigt haben muß bei einem 5er Durchschnitt das erste Ergebnis in der 5ten Zeile stehen.
Bei der Vesion mit = funktioniert alles korrekt.

Leider habe ich noch immer Probleme den Skip Wert in die Procedure Data to Strings einzufügen. Ich komme dabei zu keinem vernünftigen Ergebnis.
Vielleicht hilfst du mir noch mal dabei.

[marabu]

Hallo,

ich habe dir eine Demo zum Studium angehängt. Mit dem Einfügen des Gleichheitszeichens korrigierst du nach meiner Einschätzung einen Fehler, den du an anderer Stelle machst.

Freundliche Grüße

[fl63]

Hallo Marabu,
Also den Skip so einzubinden hätte ich in 1000Jahren nicht geschafft. Die Hoffnung, daß durch die korrekte Einbindung des Skips die Spaltenüberschrift erhalten bleibt ist leider dahin. Ich werd sie dann wohl nachträglich wieder hinzufügen. Dennoch Danke für Deine Hilfe.
Wochenendgrüße fl63

[marabu]

Hallo,

die Demo aus meinem vorigen Beitrag sollte dir nur verdeutlichen, dass das von dir eingefügte Gleichheitszeichen keine Korrektur meines Codes ist, sondern ein Symptom deines eigenen Codes kuriert. Die Erhaltung von Spalten- und Zeilenüberschriften zeigt eine weitere Demo im Anhang. Den gewünschten Effekt erreiche ich durch kleine Änderungen an der Prozedur DataToStrings():

Delphi-Quellcode:

procedure DataToStrings(data: TDoubleDynArray; strings: TStrings;
    skip: Word = 0; const fmt: string = '%f');
var
  i: Integer;
begin
  for i := Low(data) to High(data) do
    if IsZero(Data[i])
      then strings[i + skip] := ''
      else strings[i + skip] := Format(fmt, [Data[i]]);
end;

Ich verzichte auf strings.Clear und überschreibe nur noch die notwendigen Zellen.

Freundliche Grüße