READ() raises exception External SIGSEGV
Original Reporter info from Mantis: kellingc
-
Reporter name: Chris Kelling
Original Reporter info from Mantis: kellingc
- Reporter name: Chris Kelling
Description:
when in a while loop, read reads the first record, and the next call to read raises an exception 'External: SIGSEGV'
Additional information:
code fragment follows:
var
stock : stockitem;
rowNum : integer;
{inventory is defined in another unit as file of stockitem}
begin
assignfile(inventory,'Ops');
reset(inventory);
stgInvOps.RowCount:= system.filesize(inventory)+1;
rowNum := 1;
while not eof(inventory) do
begin
read(inventory,stock);
stgInvOps.Cells[0,rowNum] := inttostr(stock.ClassNumber);
inc(rowNum);
end;
closefile(inventory);
end;
Mantis conversion info:
- Mantis ID: 20898
- Version: 0.9.30.2