Ich kann dir leider immer noch nicht ganz folgen, aber trotzdem mal ein Versuch:
Delphi-Quellcode:
StreamSize := Stream.Size;
SetLength(arr, (StreamSize - Stream.Position) div Sizeof(digit));
j := 0;
time := 0;
while Stream.Position < StreamSize do begin
Stream.ReadBuffer(digit, SizeOf(digit));
Spannung := 10 * digit / 32768;
time := time + 1 / 250;
inc(j);
arr[j].Zeit := time;
arr[j].U := Spannung;
end;
Das Speichern von Stream.Size in einer lokalen Variablen soll verhindern, daß bei jedem Stream.Size zwei Seek-Anweisungen durchgeführt werden.
Nach der while-Schleife stehen erstmal alle Werte im Array, dessen Größe über Length(arr) abgefragt werden kann (bedenke: der höchste Index ist 1 weniger - alternativ kann man den auch mit High(arr) bekommen).
Wenn du nun einen bestimmten Zeitbereich aus dem Array löschen willst, solltest du ausnutzen, daß die Einträge zeitlich aufeinander folgen. Du musst also nur den Index des ersten und letzten (bzw. den danach) zu löschenden Eintrags finden. Dazu wird das Array einfach durchlaufen:
Delphi-Quellcode:
idx1 := -1;
idx2 := -1;
for I := 0 to Length(arr) - 1 do begin
if idx1 < 0 then begin
if arr[I].Zeit > vonZeit then begin
idx1 := I;
end;
end
else if arr[I].Zeit > bisZeit then begin
idx2 := I;
Break;
end;
end;
{ idx1 gibt den ersten zu löschenden Eintrag an, idx2 den nach dem letzten zu löschenden }
Jetzt kann der entsprechende Bereich entfernt werden.
Delphi-Quellcode:
if idx1 >= 0 then begin
if (idx2 < 0) then begin
{ bis zum Ende löschen }
SetLength(arr, idx1 - 1);
end
else begin
Move(arr[idx2], arr[idx1], (idx2 - idx1)*Sizeof(arr[0]));
end;
end;