This commit is contained in:
Michael Schimmel
2025-06-11 13:33:46 +02:00
parent d282d2c40d
commit 7f6672db24
6 changed files with 404 additions and 5 deletions
+2 -2
View File
@@ -563,12 +563,12 @@ begin
if recordCount > 0 then
begin
SetLength(Result, recordCount);
for var i:=0 to High(Result) do
for var i := 0 to High(Result) do
begin
bytesRead := InputStream.Read(rec, SizeOf(TAuraFileDataRecord<T>));
if bytesRead <> SizeOf(TAuraFileDataRecord<T>) then
raise EReadError.CreateFmt('Read error. Expected %d bytes, read %d.', [fileSize, bytesRead]);
Result[i].Create( rec.TimeStamp, rec.Data );
Result[i].Create(rec.TimeStamp, rec.Data);
end;
end;
end;