Am 12.12.2011 21:20 schrieb "Sven Barth" <[email protected]>: > > 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.
And replace the "rowNum := 1" by "rowNum := 0" of course. Regards, Sven
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
