Schleife konstruieren

[jupiter4065139]

Hallo allesamt,

ich hab nen problem mit einem Datensatz, der zeitlich getaktet ist z.B. so:

Delphi-Quellcode:

 
Abtastung:=2000;
Zeitschritt:=Zeitschritt+1/Abtastung;     
wertestr := FloatToStr(Zeitschritt);   

       If (Zeitschritt > 1000/Abtastung) then begin
                ...        

         delete(wertestr,1,100);                   
              end;

Ich möchte jetzt, wenn der Zeitschritt größer 0.5 (=1000/Abtastung) die Abtastung verkleinern auf 100 und die Zwischenwerte löschen. Anders ausgedrückt, ich suche ne Schleife in der ich die nächsten 19 Werte lösche, den 20. Wert behalte, die nächsten 19 wieder lösche usw. Kann mir vielleicht jemand nen Denkanstoss geben, wie ich das am besten in einer Schleife löse.

Vielen Dank schonmal, Jupi