^{ISeries.DeleteRange
ISeries}

<sup>procedure DeleteRange(start, Quantity: Integer);

Type Library
TeeChartx

Description
DeleteRange deletes a range of points from the Series very quickly. It is ideal for limiting use of memory for high volume real-time data.</sup>

^{Dim totalCtr As Double}

^{Private Sub Check1_Click()}

^{Timer1.Enabled = Check1.Value}

^{End Sub}

^{Private Sub Form_Load()}

^{Timer1.Interval = 25}

^{Check1.Value = 1}

^{TeeCommander1.Chart = TChart1}

^{With TChart1}

^{.Aspect.View3D = False}

^{.Header.Text.Clear}

^{.AddSeries scFastLine}

^{.Series(0).asFastLine.AddRealTime 0, Sin(0)}

^{For i = 0 To 49}

^{.Series(0).asFastLine.AddRealTime .Series(0).XValues.Last + 1, Sin((.Series(0).XValues.Last + 1) / 2)}

^{Next i}

^{totalCtr = .Series(0).Count}

^{End With}

^{End Sub}

^{Private Sub TChart1_OnAfterDraw()}

^{TChart1.Canvas.TextOut 10, 10, "Point count: " & TChart1.Series(0).Count & ", Total points processed: " & totalCtr}

^{End Sub}

^{Private Sub Timer1_Timer()}

^{If Check1.Value = 1 Then}

^{With TChart1}

^{.Series(0).asFastLine.AddRealTime .Series(0).XValues.Last + 1, Sin((.Series(0).XValues.Last + 1) / 2)}

^{totalCtr = totalCtr + 1}

^{If .Series(0).Count > 100 And .Axis.Bottom.Minimum > .Series(0).XValues.Minimum + 199 Then}

^{.Series(0).DeleteRange 0, 100}

^{End If}

^{End With}

^{End If}

^{End Sub}