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

Delphi , Синтаксис , Массивы

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;

Статья Из строки в массив и наоборот раздела Синтаксис Массивы может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2011-09-16 16:10:50 :: Из строки в массив и наоборот

пользователь: Delphi Lover.

Лучше бы написали про копирование строки в ARRAY of BYTE или ARRAY of Char (и обратно). А то TStrings - это неинтересно

:: 2011-10-12 21:22:51 :: re:Из строки в массив и наоборот

пользователь: kan.

Практически тоже самое:
1. Перебираешь массив по элементам
2. Для каждого элемента применяешь ord или chr
3. Присваиваешь новому массиву

PS: не забудьте выделить память для нового массива

:: Главная :: Массивы ::