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