Split string in Delphi

There is no function like String.Split(C# does have) in Delphi.

So if you need to split a string, you can use TStringList to finish this work.

With the code bellow, we can does split a string with a char.

 Split(aStrInput: string; aChrDelimiter: char): array of string;
var
   lstSplit: TStringList;
   arrResult: array of string;
begin
   lstSplit := TStringList.Create;
   SetLength(arrResult, 3);
   lstSplit.Delimiter := ':';
   lstSplit.DelimitedText := aStrInput;
   arrResult[0] := lstSplit.Strings[0];
   arrResult[1] := lstSplit.Strings[1];
   arrResult[2] := lstSplit.Strings[2];
      13:     Result := arrResult;      14:     FreeAndNil(lstSplit);
end;