paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TTextStrings: check Index out of bounds

Browse Source 
git-svn-id: trunk@42186 -
This commit is contained in:
mattias 2013-07-23 21:46:48 +00:00
parent 08bdff7239
commit 31d427c439
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/textstrings.pas
View File

@ -199,9 +199,11 @@ end;
function TTextStrings.GetObject(Index: Integer): TObject;
begin
if FArraysValid then
Result:=FLineRanges[Index].TheObject
else
if FArraysValid then begin
if (Index<0) or (Index>=FLineCount) then
Error(rsListIndexExceedsBounds, Index);
Result:=FLineRanges[Index].TheObject;
end else
Result:=nil;
end;
@ -217,6 +219,8 @@ var
NewEndPos: Integer;
begin
if not FArraysValid then BuildArrays;
if (Index<0) or (Index>=FLineCount) then
Error(rsListIndexExceedsBounds, Index);
OldStartPos:=FLineRanges[Index].StartPos;
OldEndPos:=FLineRanges[Index].EndPos;
NewLineLen:=length(s);
@ -256,6 +260,8 @@ end;
procedure TTextStrings.PutObject(Index: Integer; AnObject: TObject);
begin
if not FArraysValid then BuildArrays;
if (Index<0) or (Index>=FLineCount) then
Error(rsListIndexExceedsBounds, Index);
FLineRanges[Index].TheObject:=AnObject;
end;
@ -399,6 +405,8 @@ var
i: Integer;
begin
if not FArraysValid then BuildArrays;
if (Index<0) or (Index>=FLineCount) then
Error(rsListIndexExceedsBounds, Index);
// adjust text
OldLineLen:=GetLineLen(Index,true);
if OldLineLen>0 then begin