Скачать: CL | DM;

очень простой вопрос   Найти похожие ветки 

← →
c0pyc@t ©   (2002-08-27 13:59) [0]

Мне нужно строку разбить по словам
тока что то не то получается

i := 0;
st := "1;2;3;4;5;";
while(Length(str)>=0) do
begin
st := Copy(st,1,Pos(";",st)-1); //; разделитель
Delete(st,1,Pos(";",st));
mas.strmas[i] := st; //вносим строку
i := i+1;
end;

---

← →
MBo ©   (2002-08-27 14:01) [1]

StringList.Commatext:=StringReplace(st,";",",",[rfReplaceAll]);

---

← →
X-jedy ©   (2002-08-27 14:05) [2]

Ну правильно... У тебя после первой же итерации st:="1"
После чего прога крутит бесконечный цикл...

---

← →
X-jedy ©   (2002-08-27 14:06) [3]

тебе надо не st:= Copy(st,1,Pos(";",st)-1);
а сразу
mas.strmas[i] := Copy(st,1,Pos(";",st)-1);

---

← →
X-jedy ©   (2002-08-27 14:25) [4]

Да и Length у тебя берется от какой-то загадочной "str" ;)
Короче так вот все работает...

i := 0;
st := "1;2;3;4;5;";
while(Length(st)<>0) do
begin
mas.strmas[i] := Copy(st,1,Pos(";",st)-1); //; разделитель
Delete(st,1,Pos(";",st));
inc(i);
end;

---

← →
c0pyc@t ©   (2002-08-27 14:45) [5]

> X-jedy ©

Спасибо

---

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

Скачать: CL | DM;



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