TSeries
This commit is contained in:
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user