| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
очень простой вопрос
c0pyc@t © (2002-08-27 13:59:00)Мне нужно строку разбить по словам
тока что то не то получается
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;
c0pyc@t (2002-08-27 14:45:00) [1]
> X-jedy ©
Спасибо
X-jedy (2002-08-27 14:25:00) [2]Да и 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;
X-jedy (2002-08-27 14:06:00) [3]тебе надо не st:= Copy(st,1,Pos(";",st)-1);
а сразу
mas.strmas[i] := Copy(st,1,Pos(";",st)-1);
X-jedy (2002-08-27 14:05:00) [4]Ну правильно... У тебя после первой же итерации st:="1"
После чего прога крутит бесконечный цикл...
MBo (2002-08-27 14:01:00) [5]StringList.Commatext:=StringReplace(st,";",",",[rfReplaceAll]);
| |
