TFPList: need CheckIndex
Original Reporter info from Mantis: Alextp
-
Reporter name: CudaText man
Original Reporter info from Mantis: Alextp
- Reporter name: CudaText man
Description:
TFPList
fgl.pp
6 places need method CheckIndex
e.g.
procedure TFPSList.Move(CurIndex, NewIndex: Integer);
..
begin
if (CurIndex < 0) or (CurIndex >= Count) then
Error(SListIndexError, CurIndex);
if (NewIndex < 0) or (NewIndex >= Count) then
Error(SListIndexError, NewIndex);
Additional information:
related to http://mantis.freepascal.org/view.php?id=30869
Mantis conversion info:
- Mantis ID: 30886
- Version: 3.1.1
- Fixed in version: 3.1.1
- Fixed in revision: 34872 (#aa6a8acb)
- Target version: 3.2.0