[skif443]

ЧТо-то я не понял код. Если мне нужно подсчитать кол-во цифр в переменной vsign. Я пишу:

Код:

begin
vprototype:=011;
vsign:=010;
B:=1.0;
d:=0;
k:=1;
{while vprototype<>0 do
begin
  vprototype:=vprototype div 10;
  d:=d+1;
  label5.caption:=InttoStr (k);
end;    }
D := Length(inttostr(vsign));
label5.caption:=InttoStr (d);
if 1/(B+2)>1/(b+d) then result1:=1 else result1:=0;
if result1=1 then label2.Caption:=label2.Caption + ' Success' else
if result1=0 then label2.Caption:=label2.Caption + ' Fail';

Он мне неверно выдает кол-во цифр. Должно быть 3, а он 2 пишет. Что не так.