лабораторная работа

[iron_cross]

Дано натуральное число n(n<=100). Сколько цифр в числе n.

Надо кинуть на Form, одну Edit и кнопку Button. И когда вводишь число в Edit потом нажимаешь кнопку и что выводилось опять же в Edit, сколько цифр в n.

Помогите пожалуста.

[Sibedir]

Чем могу
лабораторная работа.zip

P.S.: Кстати, у нас есть раздел "Помощь студентам"

[Grag]

Sibedir, что-то не очень много ты смог...
Уж куда проще:

procedure TForm1.Button1Click(Sender: TObject);
Var
  Num:integer;
begin
  if TryStrToInt(Edit1.Text,Num) then
    Edit1.Text:=IntToStr(Length(Edit1.Text));
end;

[Sibedir]

А, да так. Я не старался.

[iron_cross]

Ребята я сделал прогу по вашему коду и у меня она заработала. Например кода я ввожу пять цифр например 12345, он показывает 5 натуральных чисел. Правильно ли программа работает по условию задачи. Заранее большое вам спасибо.

[Sibedir]

Если условие задачи звучит именно так

Дано натуральное число n(n<=100). Сколько цифр в числе n.

то НЕТ.
Дано именно число, а не строка из символов-цифр.

Все элементарно. Там же написано n<=100. Чё тут мудрить
0..9 - 1
10..99 - 2
100 - 3

[iron_cross]

Большое спасибо вам Grag и особенно Sibedir за то, что всё понятно разьяснили.