Решение ошибки: проверка Edit'ов на заполнение

[Nightway]

в общем такая штука:есть несколько эдитов в которые вводятся значения и по нажатию кнопки происходит расчёт по формуле,но если в один из эдитов нечего не введено,то возникает ошибка и программа вылетает,как сделать,чтобы она не вылетала,а писала что одно из полей не введено?

[Аватар]

Проверить в OnClick кнопки содержимое эдитов

[eval]

проверки, исключения и проч. базовые вопросы вам еще не читали лекции?

[XE5]

if trim(Edit1.text) = '' then exit;

Перевожу. Если в Edit1 ничего не введено, то выйти из процедуры.
P.S. Вопрос самого что ни на есть начального уровня. Читайте книги, а потом программируйте, но ни в кое случае не наоборот.

[blackstrip]

или заключить сбор значений из edit-ов в try except end примерно так:

(а то можно в edit ввести "154sdfs" и тоже вылезет ошибка при превращении строки в число, тогда проверка на пустую строку не поможет)

var
a,b,c,resu:integer;
begin

try
a:=StrToInt(Edit1.Text);
except
Application.MessageBox('Ошибочное/пустое значение в поле №1. Поправьте его и вызовите расчет снова.','Ошибка');
exit;
end;

try
b:=StrToInt(Edit2.Text);
except
Application.MessageBox('Ошибочное/пустое значение в поле №2. Поправьте его и вызовите расчет снова.','Ошибка');
exit;
end;

try
c:=StrToInt(Edit3.Text);
except
Application.MessageBox('Ошибочное/пустое значение в поле №3. Поправьте его и вызовите расчет снова.','Ошибка');
exit;
end;

//если все ок - считаем результат по формуле
resu:=a+b+c;

end;

[IliaIT]

а для цифр придуман другой способ проверок. (да и у многих функций перевода есть функция с проверкой аналогичная)
TryStrToInt(Edit1.Text,a)
если перевелось то вернётся правда если не перевелось то ложь.

[-=Virus=-]

А ты как хочел? Ты пытаешь перевести текст в числовую переменную. Ещё бы ошибки не было.

[-=Virus=-]

Пользуйся

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,resu:integer;
begin

if TryStrToInt(Edit1.Text,a) then

else
begin
 showmessage('Ошибочное/пустое значение в поле №1. Поправьте его и вызовите расчет снова.');
 exit;
end;

if TryStrToInt(Edit2.Text,b) then
else
begin
 showmessage('Ошибочное/пустое значение в поле №2. Поправьте его и вызовите расчет снова.');
 exit;
end;

if TryStrToInt(Edit3.Text,c) then
else
begin
 showmessage('Ошибочное/пустое значение в поле №3. Поправьте его и вызовите расчет снова.');
 exit;
end;

//если все ок - считаем результат по формуле

showmessage(IntTOStr(a+b+c));
end;

[XE5]

Интересно почему все резко забили на MaskEdit?

[Аватар]

забили на MaskEdit

В делфи халтурно реализовано. Имхо. Поэтому вообще никогда этой фигней не пользуюсь