Аналог explode из PHP

[metallic]

есть ли во фрипаскале такая функция как в PHP которая разивает строку в массив по подстроке. Например есть строка a^b^c^d ее нужно разбить в массив по символу ^
Соответственно элементами массива будут a, b, c, d

[alexs]

а зачем тут функция - тут три строки кода - вызов Pos и цикл

[shade]

Код: Выделить всё

type
  TStringArr = array of string;

так:

Код: Выделить всё

function explode(Delim: Char; const S: string): TStringArr;
var i, k, Len, Count: Integer;
begin
  Len := Length(S);
  Count := 0;
  k := 1;
  for i := 1 to Len do
  begin
    if S[i] = Delim then
    begin
      Inc(Count);
      SetLength(Result, Count);
      SetString(Result[Count-1], PChar(@S[k]), i-k);
      k := i + 1;
    end; // if
  end; // for i
  Inc(Count);
  SetLength(Result, Count);
  SetString(Result[Count-1], PChar(@S[k]), Len-k+1);
end;

или так

Код: Выделить всё

function explode(Delim: Char; const S: string): TStringArr;
var i, k, Len, Count: Integer;
begin
  Len := Length(S);
  Count := 0;
  for i := 1 to Len do
    if S[i] = Delim then Inc(Count);
  SetLength(Result, Count + 1);
  Count := 0;
  k := 1;
  for i := 1 to Len do
  begin
    if S[i] = Delim then
    begin
      Inc(Count);
      SetString(Result[Count-1], PChar(@S[k]), i-k);
      k := i + 1;
    end;
  end; // for i
  Inc(Count);
  SetString(Result[Count-1], PChar(@S[k]), Len-k+1);
end;

Код: Выделить всё

procedure test_explode(const S: string);
var
  arr: TStringArr;
  i, Len: Integer;
begin
  writeln(S);
  arr := explode2('\', S);
  Len := Length(arr);
  for i := 0 to Len-1 do
  begin
    writeln(arr[i]);
  end; // for i
end;

[SergKam]

Такие нужные функции надо добавлять в RTL SysUtils.
Я тоже часто такое пишу, каждый раз вспоминаю как надо.
Предложите ее команде FPC.
а еще загрузка строк из файла и запись строки в файл, а еще
модуль регулярного выражения perl,и тп.

[Nesmit]

Хорошее дело, добавить строковые функции.
Например, не нашел GradToDeg. А хотелось бы

В разумных пределах, чтоб разрабы не отвлекались от доводки самого фрипаскаля.

[shade]

Например, не нашел GradToDeg. А хотелось бы

А что она делает: переводит значения угла из градов, в градусы?, так вроде все просто GradToDeg = 0.90 * Deg
и причем тут строки?

[Nesmit]

Потому что нет такой функции, хоть и примитивная.

[shade]

Потому что нет такой функции, хоть и примитивная.

Вот потому-то и нет, что примитивная...