Цитата:
Сообщение от Alegun
Код:
ed1:= 0;
ed2:= 0;
ed3:= 0;
if Edit1.Text <> '' then ed1:= StrToInt(Edit1.Text);
if Edit2.Text <> '' then ed2:= StrToInt(Edit2.Text);
if Edit3.Text <> '' then ed3:= StrToInt(Edit3.Text);
|
Лучше использовать
Код:
edX := StrToIntDef(EditX.Text, 0);
Потому что будет адекватно реагировать на любые символы не дающие ошибок при переводе в число, Ваш же вариант будет очень ненадёжным, например, простой пробел в эдите приведёт к ошибке.