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

* Fix bug , introduce CheckIndex in TStringList

Browse Source 
git-svn-id: trunk@34817 -
This commit is contained in:
michael 2016-11-06 17:04:37 +00:00
parent a27b07b342
commit 9926d37dda
2 changed files with 18 additions and 18 deletions
rtl/objpas/classes
classesh.incstringl.inc

1
rtl/objpas/classes/classesh.inc
View File

@ -763,6 +763,7 @@ type
procedure SetCaseSensitive(b : boolean);
procedure SetSortStyle(AValue: TStringsSortStyle);
protected
Procedure CheckIndex(AIndex : Integer); inline;
procedure ExchangeItems(Index1, Index2: Integer); virtual;
procedure Changed; virtual;
procedure Changing; virtual;

35
rtl/objpas/classes/stringl.inc
View File

@ -1358,8 +1358,7 @@ end;
function TStringList.Get(Index: Integer): string;
begin
If (Index<0) or (INdex>=Fcount) then
Error (SListIndexError,Index);
CheckIndex(Index);
Result:=Flist^[Index].FString;
end;
@ -1384,8 +1383,7 @@ end;
function TStringList.GetObject(Index: Integer): TObject;
begin
If (Index<0) or (INdex>=Fcount) then
Error (SListIndexError,Index);
CheckIndex(Index);
Result:=Flist^[Index].FObject;
end;
@ -1396,8 +1394,7 @@ procedure TStringList.Put(Index: Integer; const S: string);
begin
If Sorted then
Error(SSortedListError,0);
If (Index<0) or (INdex>=Fcount) then
Error (SListIndexError,Index);
CheckIndex(Index);
Changing;
Flist^[Index].FString:=S;
Changed;
@ -1408,8 +1405,7 @@ end;
procedure TStringList.PutObject(Index: Integer; AObject: TObject);
begin
If (Index<0) or (INdex>=Fcount) then
Error (SListIndexError,Index);
CheckIndex(Index);
Changing;
Flist^[Index].FObject:=AObject;
Changed;
@ -1508,8 +1504,7 @@ end;
procedure TStringList.Delete(Index: Integer);
begin
If (Index<0) or (Index>=FCount) then
Error(SlistINdexError,Index);
CheckIndex(Index);
Changing;
Flist^[Index].FString:='';
if FOwnsObjects then
@ -1527,10 +1522,8 @@ end;
procedure TStringList.Exchange(Index1, Index2: Integer);
begin
If (Index1<0) or (Index1>=FCount) then
Error(SListIndexError,Index1);
If (Index2<0) or (Index2>=FCount) then
Error(SListIndexError,Index2);
CheckIndex(Index1);
CheckIndex(Index2);
Changing;
ExchangeItemsInt(Index1,Index2);
changed;
@ -1561,6 +1554,12 @@ begin
FSortStyle:=AValue;
end;
procedure TStringList.CheckIndex(AIndex: Integer);
begin
If (AIndex<0) or (AIndex>=FCount) then
Error(SListIndexError,AIndex);
end;
function TStringList.DoCompareText(const s1, s2: string): PtrInt;
begin
@ -1629,10 +1628,10 @@ begin
If SortStyle=sslAuto then
Error (SSortedListError,0)
else
If (Index<0) or (Index>FCount) then
Error (SListIndexError,Index)
else
InsertItem (Index,S);
begin
CheckIndex(Index);
InsertItem (Index,S);
end;
end;