Форум: "Начинающим";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];

Вниз

Разделители   Найти похожие ветки 

← →
lobach ©   (2007-05-03 12:20) [0]

Подскажите, как разделить строку типа
stroka1:::stroka2:::stroka3
на 3 строки, чтобы ::: был разделителем

---

← →
Virgo_Style ©   (2007-05-03 12:40) [1]

pos, copy/delete

---

← →
Lobach ©   (2007-05-03 12:46) [2]

> pos

Зараннее не известно какой длинны строки, известно что их 3 и что ::: их разделяет

---

← →
umbra ©   (2007-05-03 12:48) [3]

procedure Split(delim, src: String; dst: Tstrings);
var
 start, ends: Integer;

begin
 dst.Clear;
 start := 1;
 ends := PosEx(delim, src, start);
 while ends > 0 do
    begin
      dst.Add(Copy(src, start, ends - start));
      start := ends + Length(delim);
      ends := PosEx(delim, src, start);
    end;
end;


---

← →
Virgo_Style ©   (2007-05-03 13:04) [4]

Lobach ©   (03.05.07 12:46) [2]
> pos

Зараннее не известно какой длинны строки

Потому и pos (или posEx).

---

← →
umbra ©   (2007-05-03 13:09) [5]

В конец процедуры добавить строку

dst.Add(Copy(src, start, Length(src) - start + 1));

---

← →
Anatoly Podgoretsky ©   (2007-05-03 20:33) [6]

> lobach  (03.05.2007 12:20:00)  [0]

StringReplace

---

← →
redlord   (2007-05-03 21:50) [7]

главное чтоб ":::" не был частью одной из трех строк

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.049 c