paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 07:13:32 +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 Add(const S: string): Integer; virtual;
function AddObject(const S: string; AObject: TObject): Integer; virtual; function AddObject(const S: string; AObject: TObject): Integer; virtual;
procedure Append(const S: string); 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 Assign(Source: TPersistent); override;
procedure BeginUpdate; procedure BeginUpdate;
procedure Clear; virtual; abstract; procedure Clear; virtual; abstract;

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

@ -603,7 +603,21 @@ begin
end; end;
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); Procedure TStrings.Assign(Source: TPersistent);