Questa funzione è l'equivalente della funzione Split di Visual Basic per il linguaggio Delphi.

Usage: Split('hello world!',' ');

Ritorna un oggetto TStringList contenente gli elementi "hello" e "world!".

function Split(StrBuf,Delimiter: string): TStringList;
{ Porting della funzione Split di Visual Basic in Delphi by Piero Tofy (C) 2005 }
var
  MyStrList: TStringList;
  TmpBuf: string;
  LoopCount: integer;
begin
  MyStrList := TStringList.Create;
  LoopCount := 0;

  repeat
    if StrBuf[LoopCount] = Delimiter then
    begin
      MyStrList.Add(TmpBuf);
      TmpBuf := '';
    end;

    TmpBuf := TmpBuf + StrBuf[LoopCount];
    inc(LoopCount);
  until LoopCount > Length(StrBuf);

  { Inserisce gli ultimi dati del buffer... }
  MyStrList.Add(TmpBuf);

  Result := MyStrList;
end;