ошибка Edit при очистке значения Backspace-ом

[voverrr]

Всё просто.
На форме окошко Edit и Label. Задача - от высоты вводимого в Edit2 проёма высчитать высоту двери(выс проёма-51=выс двери).

Сначала оно капризничало при клике на Едит2. Излечил.

procedure TForm1.medt2Click(Sender: TObject);

begin
  medt2.Text:=IntToStr(0);
end;

Теперь при клике буквы в Едит2 превращаются в ноль. Но если этот ноль удалить делитом или бэкспейсом - выдаёт ошибку. Т.е. - получается нельзя, чтобы в окошке Едит2 не было никакого значения.

Вот такой кусок кода:

procedure TForm1.medt2Click(Sender: TObject);// этот кусок я привёл выше

begin
  medt2.Text:=IntToStr(0);
end;

procedure TForm1.medt2change(Sender: TObject);
var vproem, vdveri: Integer;

begin
  vproem:=strtoint(medt2.Text);
  vdveri:=vproem-51;                                        // переменную vdveri наверное можно и не вычислять отдельно, а подставить в следующую строку выражение?
  lbl5.Caption:='высота двереи='+ inttostr(vdveri);// при вводе чисел эти вычисления работают как надо
end;

[Volt]

procedure TForm1.medt2Click(Sender: TObject);// этот кусок я привёл выше

begin
  medt2.Text:=IntToStr(0);
end;

procedure TForm1.medt2change(Sender: TObject);
var vproem, vdveri: Integer;

begin
try
  vproem:=strtoint(medt2.Text);
  vdveri:=vproem-51;                                        // переменную vdveri наверное можно и не вычислять отдельно, а подставить в следующую строку выражение?
  lbl5.Caption:='высота двереи='+ inttostr(vdveri);// при вводе чисел эти вычисления работают как надо
except

end;

end;

[ArtGrek]

если medt2 ето Edit2, то его значение пустым и буквои быть не может потому что во время редактирования то что в нем, ничего), переводит в число vproem:=strtoint(medt2.Text); надо поставить условие типа

if medt2.Text in 0..9 then
  vproem:=strtoint(medt2.Text);

мое условие образно, не помню как правелно записать

[ArtGrek]

if (medt2.Text>=low(a))and(medt2.Text< =high(a)) then
попробуите так, код не мои, но кажеца ет условие если там не буквы

[Volt]

ArtGrek ошибка не когда он переводит

vproem:=strtoint(medt2.Text);

а когда он хочет присвоить.

vproem:=strtoint(medt2.Text);

можно исключением как я написал выше либо как предложил ArtGrek проверять

if Length(medt2.Text)>0 then
begin
  vproem:=strtoint(medt2.Text);
  vdveri:=vproem-51;                                        // переменную vdveri наверное можно и не вычислять отдельно, а подставить в следующую строку выражение?
  lbl5.Caption:='высота двереи='+ inttostr(vdveri);// при вводе чисел эти вычисления работают как надо
end else 
medt2.Text:=IntToStr(0);

[ArtGrek]

Volt
а когда он хочет присвоить.

сперва происходит перевод гдето в модуле StrToInt, Result(integer) := Edit.Tekst, а потом присваиваеца, ошибка,
если ее нет, потом уже присваивание vproem:= Result;
но даже если и не так, мы говорим об однои и тои же строке
просто разными словами)

можно исключением как я написал выше либо как предложил ArtGrek проверять

надо проверять и как ты говориш и как я, что в обоих слушаях не было ошибки

[asmodey1]

Есть такая функция - TryStrToInt()...

[voverrr]

во понаписали-то! Весь день сегодня кружился, даже отписаться некогда было, только добрался до кода.

if Length(medt2.Text)>0 then
begin
  vproem:=strtoint(medt2.Text);
  vdveri:=vproem-51;                                        // переменную vdveri наверное можно и не вычислять отдельно, а подставить в следующую строку выражение?
  lbl5.Caption:='высота дверей='+ inttostr(vdveri);// при вводе чисел эти вычисления работают как надо
end else 
medt2.Text:=IntToStr(0);

во. этот кусок прокатил.Если очищать строку - в ней остаётся ноль, который никуда не удаляется, но потом, при вводе цифр его можно убрать. Мне каж этого будет не сильно трудно в пользовании.
Спасибо))

Подскажите ещё вот что: я заметил, что названия элементов у меня в дельфи немного отличаются от названий во всяких там уроках
cbb1 ->Combobox1
medt2 - >Edit2
Il1-> Imagelist1
это у меня какой-то диалект или где-то в настройках что-то включить надо?

[ArtGrek]

А у вас они по умолчанию так называюца?

Length(medt2.Text)>0 ето проверка на то что поле едит не пустое, если ввести букву, ОШИБКА

[voverrr]

угу, по умолчанию.
хм, буквы-то туда я писать не догадался))
попробую сам дописать проверку на "строковость" вводимого значения.