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

* Overloaded AddStrings

Browse Source 
git-svn-id: trunk@20691 -
This commit is contained in:
michael 2012-04-02 11:22:02 +00:00
parent 8c7d54de5c
commit ab0a7d096c
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -606,7 +606,8 @@ type
function Add(const S: string): Integer; virtual;
function AddObject(const S: string; AObject: TObject): Integer; virtual;
procedure Append(const S: string);
procedure AddStrings(TheStrings: TStrings); virtual;
procedure AddStrings(TheStrings: TStrings); overload; virtual;
procedure AddStrings(const TheStrings: array of string); overload; virtual;
procedure Assign(Source: TPersistent); override;
procedure BeginUpdate;
procedure Clear; virtual; abstract;

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

@ -603,7 +603,21 @@ begin
end;
end;
Procedure TStrings.AddStrings(const TheStrings: array of string);
Var Runner : longint;
begin
try
beginupdate;
if Count + High(TheStrings)+1 > Capacity then
Capacity := Count + High(TheStrings)+1;
For Runner:=Low(TheStrings) to High(TheStrings) do
self.Add(Thestrings[Runner]);
finally
EndUpdate;
end;
end;
Procedure TStrings.Assign(Source: TPersistent);