Re: [fpc-pascal] Split and Join

[Michael Van Canneyt]

On Fri, 27 Nov 2009, Juha Manninen wrote:

Hi,

FPC's strutils or other libraries still don't have functions for splitting a
string to a list and joining a list of strings again to one string, given a
delimiter as a parameter.
Something like:
 function Spit(Str: string; Delim: string; Result: TStringList): integer;
and
 function Join(List: TStringList; Delim: string): string;

Of course it does exist. Split can be implemented like this:

List:=TStringList.Create;
List.Delimiter:=Delim;
List.StrictDelimiters:=True;
List.DelimitedText:=Str;

And that's it.

Michael.
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal