[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.