Werte aus dynamischen array löschen

[jupiter4065139]

sorry, ich bin noch blutiger Anfänger (war etwas daneben)

Delphi-Quellcode:

while Stream.Position < Stream.Size do begin
            Stream.ReadBuffer(Digit, SizeOf(Digit));
            Inc(byte);
 time:= time+ 1/250;
setlength(arr,stream.size);
arr[stream.position].zeit:= time;
arr[stream.position].wert:=Digit;

If (arr[stream.Position].Zeit > 0.1 and arr[stream.Position].Zeit < 0.2) then

begin

move(arr[stream.position+1], arr[stream.position], sizeOf(arr[0])*(Length(arrn) - stream.position - 1));
                setlength(arr, length(arr)-1);

end;

end;

sowas dann ungefähr

Delphi-Quellcode:

while Stream.Position < Stream.Size do begin
            Stream.ReadBuffer(Digit, SizeOf(Digit));
            dec(byte);

wie mach ich denn dann das, ich müsste ja die stream.position an das ende setzen

[baumina]

Vielleicht solltest du nicht darüber nachdenken überflüssige Einträge aus dem Array heraus zu löschen, sondern lieber unerwünschte Einträge in das Array erst gar nicht hinein zu schreiben. Ungefähr so:

Delphi-Quellcode:

setlength(arr,0);

while Stream.Position < Stream.Size do 
begin
  Stream.ReadBuffer(Digit, SizeOf(Digit));
  Inc(byte);
  time:= time+ 1/250;
  If (time <= 0.1) or (time >= 0.2) then
  begin 
    setlength(arr,Length(arr) + 1);
    arr[Length(arr)].zeit:= time;
    arr[Length(arr)].wert:= Digit;
  end;
end;

ungetestet

[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. Sollte das aber der Fall sein, dann ist in jedem Fall des SetSize innerhalb der while-Schleife falsch und effizienter würde man das Array in einem Rutsch aus dem Stream füllen und danach weiter bearbeiten.

Also zeig doch bitte mal noch mehr von deinem Code.

Übrigens: Byte ist ein vordefinierter Datentyp. Delphi lässt zwar die Deklaration einer Variablen dieses Namens zu und behandelt das i.A. auch korrekt, es ist aber kein guter Stil solche Namen zu vergeben.

[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;

[Uwe Raabe]

Zitat von jupiter4065139:

Delphi-Quellcode:

            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;

Die echte Bedingung wäre hier aber schon wichtig, da dein Beispiel überhaupt keinen Sinn macht. Welche Werte sollen denn nun genau gelöscht werden. Danach kann man nämlich nur die Strategie für das Löschen festlegen.

[jupiter4065139]

Das mit dem x ist wirklich verwirrend. Ich will einfach einen bestimmten Bereich aus der Zeitreihe entfernen.
D.h. vor den Spannungswerten aus dem Stream soll eine Zeitreihe gesetzt werden (alles innerhalb von stream.position < stream.size)

 time:=time+1/250; und aus dieser reihe soll der Bereich zwischen

Delphi-Quellcode:

            
               if arr[stream.position].zeit > 0.1  and  arr[stream.position].zeit < 0.2 then   
                 \\löschen
              end;

gelöscht und aufgerückt werden. Natürlich die zugehörigen Spannungswerten aus arr[stream.position].U auch.

[jupiter4065139]

Am Besten wäre das ich mir die Daten aus dem Stream in ein dynamisches Array so übergebe, dass das nicht mit fs.position indiziiert ist sondern mit einer Integervariablen. Mit der könnte ich ja dann die einzelnen Zeilen ansprechen. Geht so etwas?