Am 12.12.2011 21:05 schrieb "Chris Kelling" <[email protected]>: > That worked, but now, later in the code: > > rowNum := 1; > while rowNum <= stgInvOps.RowCount do > begin > read(inventory,stock); > stgInvOps.Cells[0,rowNum] := inttostr(stock.ClassNumber); > inc(rowNum); > end; > closefile(inventory); >
Replace the "<=" condition by "<". The row indices go from 0 to RowCount-1. Regards, Sven
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
