Текущий архив: 2007.05.20;
Скачать: CL | DM;
Вниз
Разделители Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.043 c
