paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 22:12:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix of 877

Browse Source
This commit is contained in:
pierre 2000-03-20 14:30:03 +00:00
parent 7cb441eadb
commit 48174a41fe
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/inc/lists.inc
View File

@ -29,7 +29,7 @@ Const
function TList.Get(Index: Integer): Pointer; function TList.Get(Index: Integer): Pointer;
begin begin
If (Index<0) or (Index>FCount) then If (Index<0) or (Index>=FCount) then
Error(SListIndexError,Index); Error(SListIndexError,Index);
Result:=FList^[Index]; Result:=FList^[Index];
end; end;
@ -395,7 +395,10 @@ end;
{ {
$Log$ $Log$
Revision 1.10 2000-01-07 01:24:33 peter Revision 1.11 2000-03-20 14:30:03 pierre
* fix of 877
Revision 1.10 2000/01/07 01:24:33 peter
* updated copyright to 2000 * updated copyright to 2000
Revision 1.9 2000/01/06 01:20:33 peter Revision 1.9 2000/01/06 01:20:33 peter