Аналог Split в Delphi?

[apromix]

А есть ли аналог сишной функции Split в Delphi? Например, разбивает строку типа String на подстроки (задается определенный разделитель, например, точка) и заносит в массив из строк? Спасибо.

[Utkin]

Если тебе необходимо, у меня имеется модуль собственной разработки, в котором имеются аналогичные функции. Он предназначен для представления строк в качестве множеств, массивов и пр.
В нем строка сразу представляется как массив, ты просто читаешь нужный тебе элемент и все.

[apromix]

А можешь выложить этот модуль? Очень нужно.

[Stilet]

разбивает строку типа String на подстроки

В TStringList есть свойство Delimider и DelimitedText. В первом символ-разделитель, во вторую строку кидай. и тогда обращайся уже к элементам, он сам разобьет.

[Jason Bobs]

Объясните, пжлста, на примере.
Строка из 5 элементов разного типа. Разделены по TAB:

54.34 87 wq;e 9 cbvf

Как из этой строки выудить число 9?
Как будет выглядеть код?

[Serge_Bliznykov]

примерно так:

procedure TForm1.Button1Click(Sender: TObject);
const
  s : string = '54.34'#9'87'#9'wq;e'#9'9'#9'cbvf';
var
  TS : TStringList;
  i : integer;
begin
  TS := TStringList.Create;
  TS.Delimiter := #9;
  TS.DelimitedText := s;

  for i := 0 to TS.Count - 1 do
    Application.MessageBox(
      Pchar(inttostr(i)+'-й элемент равен '+TS.Strings[i]),
      'Отладка',MB_OK);

  FreeAndNil(TS);
end;

[Jason Bobs]

Serge_Bliznykov!
Спасибо за помощь!