Ребята я кинул на Form одну Button и Edit1. В Button я прописал вот этот код:
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
Var
Num:integer;
begin
if TryStrToInt(Edit1.Text,Num) then
Edit1.Text:=IntToStr(Length(Edit1.Text));
end;
|
И у мея программа заработал и когда я ввожу например:12345. Он показывает, что 5 натуральных чисел, как показанно по условию задачи. Правильно ли работает прога. Заранее спасибо.