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

* patch by Bart Broersma, simplify TStringList.InsertItem, resolves #23860

Browse Source 
git-svn-id: trunk@23638 -
This commit is contained in:
florian 2013-02-20 21:36:02 +00:00
parent d7c96dea8b
commit b00ff8a4e0
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1017,16 +1017,7 @@ end;
Procedure TStringList.InsertItem(Index: Integer; const S: string);
begin
Changing;
If FCount=Fcapacity then Grow;
If Index<FCount then
System.Move (FList^[Index],FList^[Index+1],
(FCount-Index)*SizeOf(TStringItem));
Pointer(Flist^[Index].Fstring):=Nil; // Needed to initialize...
Flist^[Index].FString:=S;
Flist^[Index].Fobject:=Nil;
Inc(FCount);
Changed;
InsertItem(Index, S, nil);
end;