Werte aus dynamischen array löschen

[jupiter4065139]

Zitat von Uwe Raabe:

Da ist schon mal ein grundsätzlicher Fehler: du indizierst das Array nach der Stream.Position. Die ist aber immer Byte-orientiert und würde nur dann Sinn machen, wenn Digit auch als Byte deklariert ist.

Genau das ist ja mein Problem. Wie müsste ich denn den stream einlesen, damit der mit einer integer Variablen indiziiert ist. Ich hab das bisher mit der .position gemacht, weil das erst mal funktionierte. Wenn ich dort jetzt aber eine schleife reinsetze kriege ich probleme.

Delphi-Quellcode:

type
    TDatensatz = record
        Zeit:Extended;
        U:Extended;        
        end;
    TDatenarray = array of TDatensatz ;

 
arr:TDatenarray;
 var j:byte;
 x, bis:integer; 
 digit:smallint; 
Stream,Stream2:TFilestream;
time, spannung:extended;
Listen:String;
begin
try
          j := 0;
          time:=0;
         
          while stream.Position < stream.Size do begin
            stream.ReadBuffer(Digit, SizeOf(Digit));
            inc(j);
              Spannung:= 10 * digit / 32768;
              time:=time+1/250;
                   setlength(arr, fs.size);
                      arr[stream.Position].Zeit:=time;
                      arr[stream.position].U:=Spannung; 
      
            for x:= 0 to bis DO  //bis wird über inputbox gelesen
               Begin
               if arr[stream.position].zeit > 0.1*x  and  arr[stream.position].zeit < 0.2*x then   //die Bedingung sieht eigentlich anders aus, aber so in der art  
                  begin
                     // den Bereich wollte ich jetzt löschen
                        move(arr[stream.position+1], arr[stream.position],  sizeof(arr[0])*(length(arr) -stream.position-1));
                        setlength(arr, length(arr)+1);         
                  end;
              end;
//ab hier in einen 2.stream speichern
             Listen := floattostr(arr[stream.position].zeit) + #9 + FloatToStr(arr[stream.position].U) + #9 + #13#10;   //AK
              Stream2.WriteBuffer(Listen[1], Listen(string));
             Listen := '';
              j    := 0;

            end;
            end;
finally
          stream.Free;
          stream2.Free;
        end;