Прочитать значения из строки через разделитель

[Xo66um]

Доброго всем времени суток.

Собственно, есть строка, в которой записаны значения через разделитель.
К примеру: "32;4;100;150;88;..." и т.п.

Можно как-нибудь выдрать из этой строки все значения?

Пробовал сам, вот кусок кода

for i := 0 to 8 do
 val[i] := copy(string, 1, pos(';', string)-1);

Получается выдрать только первое значение (до первого разделителя), дальше - бардак, т.к. значения могут быть N-значные, отсюда и проблема.

[grominfo]

Я вот таким пользуюсь. Есть где-то и другой, более компактный. Но суть одна, искать по своим исходникам не хочу

 {Преобразование строки с разделителями в StringList
  Tmp := TStringList.Create();
  StrBreakApart('Text1|Text2|Text3|Text4', '|', Tmp);
 }
procedure StrBreakApart(const S, Delimeter: string; Parts: TStrings);
var
  CurPos: integer;
  CurStr: string;
begin
  Parts.clear;
  Parts.BeginUpdate();
  try
    CurStr := S;
    repeat
      CurPos := Pos(Delimeter, CurStr);
      if (CurPos > 0) then
      begin
        Parts.Add(Copy(CurStr, 1, Pred(CurPos)));
        CurStr := Copy(CurStr, CurPos + Length(Delimeter),
          Length(CurStr) - CurPos - Length(Delimeter) + 1);
      end
      else
        Parts.Add(CurStr);
    until CurPos = 0;
  finally
    Parts.EndUpdate();
  end;
end;

[Человек_Борща]

grominfo, забавно Зачем такие сложности?

var
 ts:TStringList;
 i:Integer;
begin
 ts:=TStringList.Create;
 ts.Delimeter:=';';
 ts.DelimetedText:='32;4;100;150;88;...';
 for i:=0 fo ts.Count -1 do
 //Что-то делаем с разделенными данными

...
ts.Free;
end;

[grominfo]

Зачем такие сложности?

Я не помню, но зачем-то мне нужен был этот способ, так как я тогда хранил логи в текстовых файлах.

У меня ещё был где-то другой способ, более компактный, использующий функцию из sysutils, я потом им начал пользоваться. Кажется из-за того, чтобы не передавать функции Tstrings

[Xo66um]

Извините за придирчивость.
Быстро работает, я опасался обратного. Спасибо Вам большое, grominfo и Человек_Борща