procedure SplitStr(const S: String; Delim: Char; SL: TStrings)
Разбивает строку на подстроки, определяемые разделителем, и добавляет подстроки в существующий экземпляр списка строк. Перед вызовом процедуры объект SL должен быть создан. Перед добавлением подстрок процедура очищает список.
Параметры:
Пример:
var SL: TStringList; i: Integer; begin SL := TStringList.Create; SplitStr('один;два;три;четыре', ';', SL); for i := 0 to SL.Count - 1 do Debug(SL[i]); SL.Free; end;