Das while-not-eof-Konstrukt stellt sicher, daß es ein definiertes Ende gibt. Wenn aber
Anzahl>RecordCount ist mußt Du Anzahl:=RecordCount setzen um wenigstens
einen Wert zu bekommen.
Delphi-Quellcode:
if (Anzahl>RecordCount)
then Anzahl:= RecordCount;
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
Die X-Achse muß RecordCount-Anzahl+1 Werte aufnehmen können.
Und wenn jeder Datensatz in Table3
genau einen Tag darstellt sollte das klappen.
Gruß
Malte