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

* Merging revisions r43405 from trunk:

Browse Source 
------------------------------------------------------------------------
    r43405 | michael | 2019-11-06 11:51:34 +0100 (Wed, 06 Nov 2019) | 1 line
    
    * Add AddDelimitedText,AddCommatext by Werner Pamler (bug ID 36249)
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43741 -
This commit is contained in:
michael 2019-12-23 13:37:31 +00:00
parent 469350538a
commit c99c6a45c2
2 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -695,6 +695,9 @@ type
procedure AddStrings(const TheStrings: array of string); overload; virtual;
procedure AddStrings(const TheStrings: array of string; ClearFirst : Boolean); overload;
Procedure AddText(Const S : String); virtual;
procedure AddCommaText(const S: String);
procedure AddDelimitedText(const S: String; ADelimiter: char; AStrictDelimiter: Boolean); overload;
procedure AddDelimitedtext(const S: String); overload;
procedure Append(const S: string);
procedure Assign(Source: TPersistent); override;
procedure BeginUpdate;

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

@ -926,6 +926,40 @@ begin
DoSetTextStr(S,False);
end;
procedure TStrings.AddCommaText(const S: String);
var
L: TStringList;
begin
L := TStringList.Create;
try
L.CommaText := S;
AddStrings(L);
finally
L.Free;
end;
end;
procedure TStrings.AddDelimitedText(const S: String; ADelimiter: Char;
AStrictDelimiter: Boolean);
var
L: TStringList;
begin
L := TStringList.Create;
try
L.Delimiter := ADelimiter;
L.StrictDelimiter := AStrictDelimiter;
L.DelimitedText := S;
AddStrings(L);
finally
L.Free;
end;
end;
procedure TStrings.AddDelimitedText(const S: String);
begin
AddDelimitedText(S, FDelimiter, FStrictDelimiter);
end;
Procedure TStrings.SetUpdateState(Updating: Boolean);
begin