Из строки в массив и наоборот

Программист с женой отправились в супермаркет. Сделав все необходимые закупки, они вышли на улицу, и жена сказала: - Стой здесь и смотри в оба за этими десятью сумками, пока я схожу и разыщу такси. Когда жена вернулась, то увидела обалдевшего мужа, переставляющего сумки с места на место. Программист: - Ты сказала, что здесь десять сумок, а я насчитал только 9! Жена: - Hо их было десять! Программист: - Hет, давай вместе считать: 0, 1, 2, 3......

function StrToArrays(str, r: string; out Temp: TStrings): Boolean;
var
  j: integer;
begin
  if temp <> nil then
  begin
    temp.Clear;
    while str <> '' do
    begin
      j := Pos(r,str);
      if j=0 then
        j := Length(str) + 1;
      temp.Add(Copy(Str,1,j-1));
      Delete(Str,1,j+length(r)-1);
    end;
    Result:=True;
  end
  else
    Result:=False;
end;

function ArrayToStr(str: TStrings; r: string): string;
var
  i: integer;
begin
  Result:='';
  if str = nil then
    Exit;
  for i := 0 to Str.Count-1 do
    Result := Result + Str.Strings[i] + r;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 708 • TDictionary Custom Sort 5 836 • Fast Watermark Sources 5 641 • 3D Designer 8 291 • Sik Screen Capture 5 961 • Patch Maker 6 421 • Айболит (remote control) 6 414 • ListBox Drag & Drop 5 272 • Доска для игры Реверси 94 638 • Графические эффекты 6 608 • Рисование по маске 5 688 • Перетаскивание изображений 4 793 • Canvas Drawing 5 166 • Рисование Луны 4 897 • Поворот изображения 4 441 • Рисование стержней 3 147 • Paint on Shape 2 391 • Генератор кроссвордов 3 259 • Головоломка Paletto 2 581 • Теорема Монжа об окружностях 3 358 • Пазл Numbrix 2 228 • Заборы и коммивояжеры 2 875 • Игра HIP 1 851 • Игра Go (Го) 1 766 • Симулятор лифта 2 097 • Программа укладки плитки 1 831 • Генератор лабиринта 2 267 • Проверка числового ввода 1 957 • HEX View 2 257 • Физический маятник 1 936