Moving Average

[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