Программист с женой отправились в супермаркет.
Сделав все необходимые закупки, они вышли на улицу, и
жена сказала:
- Стой здесь и смотри в оба за этими десятью сумками, пока
я схожу и разыщу такси.
Когда жена вернулась, то увидела обалдевшего мужа,
переставляющего сумки с места на место.
Программист:
- Ты сказала, что здесь десять сумок, а я насчитал только 9!
Жена:
- Hо их было десять!
Программист:
- Hет, давай вместе считать: 0, 1, 2, 3......
function StrToArrays(str, r: string; out Temp: TStrings): Boolean;
var
j: integer;
beginif temp <> nilthenbegin
temp.Clear;
while str <> '' dobegin
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;
endelse
Result:=False;
end;
function ArrayToStr(str: TStrings; r: string): string;
var
i: integer;
begin
Result:='';
if str = nilthen
Exit;
for i := 0 to Str.Count-1 do
Result := Result + Str.Strings[i] + r;
end;
Статья Из строки в массив и наоборот раздела Синтаксис Массивы может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
:: 2011-09-16 16:10:50 :: Из строки в массив и наоборот
Практически тоже самое:
1. Перебираешь массив по элементам
2. Для каждого элемента применяешь ord или chr
3. Присваиваешь новому массиву
PS: не забудьте выделить память для нового массива
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.