Hhhmm, ist schon ein bißchen was, aber noch nicht das was ich suche.
Bei diesem Code:
Zitat von
Frank Borland:
Delphi-Quellcode:
Table3.First;
Table3.MoveBy(Anzahl);
// an Ende sonst so oft wie Anzahl gegen den letzten Satz
for i := RecCount-1-Anzahl to RecCount -1 do
begin
Value := Momentum(Anzahl);
Series4.AddY(Value, Table3.FieldByName('Datum').AsString, clTeal);
Table3.Next;
end;
kommt folgendes Ergebnis raus:
siehe Anhang ersterversuch.jpg
Der zweite Vorschlag ist schon besser
Zitat von
Frank Borland:
Delphi-Quellcode:
Table3.First;
Table3.MoveBy(Anzahl);
while not Table3.eof do begin
Value := Momentum(Anzahl);
Series4.AddY(Value, Table3.FieldByName('Datum').AsString, clTeal);
Table3.Next;
end; // while
siehe Bild zweiterversuch.jpg
Aber die ideale Lösung ist das noch nicht.
Wie schaffe ich es, dass die Kurve mit vernünftigen Werten bis zum Ende
fortgeführt wird?
