алгоритм

[kuzmich]

привем всем!
создал небольшой алгоритм. он вообще простой!

var
  a,b,c,d,e,f,g,h,i : integer;

 a:=StrToInt(Edit7.Text);
 b:=StrToInt(Edit8.Text);
 c:=StrToInt(Edit9.Text);
 d:=StrToInt(Edit10.Text);
 e:=StrToInt(Edit11.Text);
 f:=StrToInt(edit12.Text);
 g:=StrToInt(edit13.Text);
 h:=StrToInt(Edit14.Text);
 i:=a+b+c+d+e+f+g+h;
 Edit15.Text:=inttostr(i);

как видите ошибки в коде нету, но выходит это диалоговое окно

и показывает ошибку на строчку:

  Application.Run;

в чем причина?

[Человек_Борща]

Очевидно же, что ошибка здесь:

 a:=StrToInt(Edit7.Text);
 b:=StrToInt(Edit8.Text);
 c:=StrToInt(Edit9.Text);
 d:=StrToInt(Edit10.Text);
 e:=StrToInt(Edit11.Text);
 f:=StrToInt(edit12.Text);
 g:=StrToInt(edit13.Text);
 h:=StrToInt(Edit14.Text);

Отладчиком смотрите пустой edit. Ничто("") нельзя преобразовать в число.

[p51x]

У программистов все можно - http://delphibasics.ru/StrToIntDef.php

А вообще, в таких случаях надо TryStrToInt юзать.

[Kix.IV]

Сообщение от Человек_Борща

Очевидно же, что ошибка здесь:

 a:=StrToInt(Edit7.Text);
 b:=StrToInt(Edit8.Text);
 c:=StrToInt(Edit9.Text);
 d:=StrToInt(Edit10.Text);
 e:=StrToInt(Edit11.Text);
 f:=StrToInt(edit12.Text);
 g:=StrToInt(edit13.Text);
 h:=StrToInt(Edit14.Text);

Отладчиком смотрите пустой edit. Ничто("") нельзя преобразовать в число.

Странно, что у меня окно с ошибкой не выскакивает, просто ничего не происходит.

[kuzmich]

Сообщение от Человек_Борща

Очевидно же, что ошибка здесь:

 a:=StrToInt(Edit7.Text);
 b:=StrToInt(Edit8.Text);
 c:=StrToInt(Edit9.Text);
 d:=StrToInt(Edit10.Text);
 e:=StrToInt(Edit11.Text);
 f:=StrToInt(edit12.Text);
 g:=StrToInt(edit13.Text);
 h:=StrToInt(Edit14.Text);

Отладчиком смотрите пустой edit. Ничто("") нельзя преобразовать в число.

мне надо чтобы они были пустыми!

[phomm]

Сообщение от kuzmich

мне надо чтобы они были пустыми!

Спасибо, посмеялся )

Если Вам надо чтобы они были пустые, тогда зачем же Вы их пустые преобразуете в числа ? Ведь ясно же что они не преобразуются в числа, значит ничего и не записать в переменные для чисел, в итоге все эти переменные просто не нужны, как и сам факт преобразования. Вы, наверное, ещё поставили это код на FormCreate, чтобы программа сразу при запуске сыпалась... А если Вам надо производить преобразование чисел позже, например, по кнопке, Вы этот код в кнопку и вставляйте, и тогда там уже проверяйте на пустые эдиты и/или на содержание в эдите чисел, в том числе, например, функциями TryStrToInt или StrToIntDef . В данной задаче, думаю, лучше взять StrTointDef и значение по умолчанию сделать 0, чтобы все ваши получающиеся пустышки на конечную сумму не влияли.

[Kix.IV]

Автор ищет изощрённые способы закрытия приложения