Programming Essays - The split function delphiDelphi,function

The split function delphi

/ / In accordance with string, the string split, the split in the equivalent function vb
Function SplitString (const Source, ch: string): TStringList;
Var
Temp: String;
I: Integer;
Begin
Result: = TStringList.Create;
/ / If the air since 1999, returned to the empty string List
If Source =''
Then exit;
Temp: = Source;
I: = pos (ch, Source);
While i do <> 0
Begin
Result.add (copy (temp, 0, i-1));
Delete (temp, 1, i);
I: = pos (ch, temp);
End;
Result.add (temp);
End;