[Lazarus] FW: Re: more file operation problems

[Sven Barth]

Am 12.12.2011 21:05 schrieb "Chris Kelling" <kellingc at cox.net>:
> 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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20111212/c02119eb/attachment-0003.html>