paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-08 22:07:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added AddPair

Browse Source
This commit is contained in:
michael 2018-03-27 11:48:15 +00:00
parent b7e3150635
commit 604e56270b
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/rtl/classes.pas
View File

@ -265,6 +265,8 @@ type
procedure AddStrings(TheStrings: TStrings; ClearFirst : Boolean); overload;
procedure AddStrings(const TheStrings: array of string); overload; virtual;
procedure AddStrings(const TheStrings: array of string; ClearFirst : Boolean); overload;
function AddPair(const AName, AValue: string): TStrings; overload;
function AddPair(const AName, AValue: string; AObject: TObject): TStrings; overload;
Procedure AddText(Const S : String); virtual;
procedure Assign(Source: TPersistent); override;
procedure BeginUpdate;
@ -2093,8 +2095,8 @@ begin
self.Add(Thestrings[Runner]);
end;
Procedure TStrings.AddStrings(const TheStrings: array of string; ClearFirst : Boolean);
Procedure TStrings.AddStrings(const TheStrings: array of string; ClearFirst : Boolean);
begin
beginupdate;
@ -2107,6 +2109,21 @@ begin
end;
end;
function TStrings.AddPair(const AName, AValue: string): TStrings;
begin
Result:=AddPair(AName,AValue,Nil);
end;
function TStrings.AddPair(const AName, AValue: string; AObject: TObject): TStrings;
begin
Result := Self;
AddObject(AName+NameValueSeparator+AValue, AObject);
end;
Procedure TStrings.Assign(Source: TPersistent);
Var