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

# revisions: 33099

Browse Source 
git-svn-id: branches/fixes_3_0@33764 -
This commit is contained in:
marco 2016-05-23 18:23:38 +00:00
parent 9d23eec582
commit 26fb374730
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -723,15 +723,13 @@ end;
Procedure TStrings.AddStrings(TheStrings: TStrings; ClearFirst : Boolean);
Var Runner : longint;
begin
beginupdate;
try
if ClearFirst then
Clear;
For Runner:=0 to TheStrings.Count-1 do
self.AddObject (Thestrings[Runner],TheStrings.Objects[Runner]);
AddStrings(TheStrings);
finally
EndUpdate;
end;
@ -739,29 +737,31 @@ end;
Procedure TStrings.AddStrings(TheStrings: TStrings);
Var Runner : longint;
begin
AddStrings(TheStrings,False);
For Runner:=0 to TheStrings.Count-1 do
self.AddObject (Thestrings[Runner],TheStrings.Objects[Runner]);
end;
Procedure TStrings.AddStrings(const TheStrings: array of string);
Var Runner : longint;
begin
AddStrings(TheStrings,False);
if Count + High(TheStrings)+1 > Capacity then
Capacity := Count + High(TheStrings)+1;
For Runner:=Low(TheStrings) to High(TheStrings) do
self.Add(Thestrings[Runner]);
end;
Procedure TStrings.AddStrings(const TheStrings: array of string; ClearFirst : Boolean);
Var Runner : longint;
begin
beginupdate;
try
if ClearFirst then
Clear;
if Count + High(TheStrings)+1 > Capacity then
Capacity := Count + High(TheStrings)+1;
For Runner:=Low(TheStrings) to High(TheStrings) do
self.Add(Thestrings[Runner]);
AddStrings(TheStrings);
finally
EndUpdate;
end;