Где ошибка в моем цикле?

[Marsel737]

Всем доброго времени суток.

Что-то никак не могу найти ошибку в таком простом вроде бы цикле:

  
  DigLeng := 0;
  
  ....
   
  for i := 1 to Length(memDin.Text) do
  begin
    if Not (memDin.Text[i] in ['0', '1']) then
    begin
      if DigLeng = 0 then DigLeng := i - 1;
    end else
      DigLeng := Length(memDin.Text);
  end;

У меня есть строка, к примеру такого вида: 000000100010010 acbdcdbdc. Я в цикле прохожу по всем символам строки и если символ не 0 и не 1, то беру длину первого слова (DigLeng), а если строка состоит только из 0 и 1, то беру за длину всю строку, но у меня этот цикл почему то всегда выдает длину всей строки.

[ProgDel]

Всё дело в том, что надо удалять 0 и 1 после их просмотра в цикле.

[Kotofff]

Тебе нужно достать из строки двоичное число ?

DigLeng := 0;
i := 1;
...
...
while ((memDin.Text[i] in ['0', '1']) and (i <= Length(memDin.Text))) do 
  begin  
  Inc(DigLeng);
  Inc(i);
  end;

В итоге у тебя в DigLeng будет или 0 или длина строки из нулей и единиц.

[Marsel737]

Kotofff, мне нужно определить длину слова состоящего из нулей и единиц. Т.е. 0 не может быть.

[Google2010]

len:=0;
...
  for i := 1 to Length(Text) do begin
if text[i] in ['0'..'1'] then len:=len+1;
if (text[i]=' ') and (len<>0) then break;
end;
....

[Kotofff]

ты код проверил ?
0 будет если вдруг в строке окажется первый символ не 0 или 1

[Marsel737]

Kotofff, теперь проверил, и примного благодарен, вот только почему-то пишут что репу тебе поднимать мне нельзя