очень простой вопрос

← →
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]

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