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;