Проверка пустых значений в Edit.

[[Jank]]

Добрый день. Пришла надобность сделать проверку на пустоту значения компонента edit(то есть если там числа из определенного диапазона или вообще пусто) то вылазит окно, в котором в котором просят ввести число, ты его закрываешь и пишешь значения.

procedure TForm1.sButton1Click(Sender: TObject);
var n,f,i:Integer;
begin
 N:=StrToInt(sEdit1.Text);
 if (n<0) or (n>=13) or  (sEdit1.Text='') then
 begin
  if lang='rus' then ShowMessage('Ïîæàëóéñòà óêàæèòå ïîëîæèòåëüíîå çíà÷åíèå íå áîëüøå 13');
  if lang='eng' then ShowMessage('Please enter positive value from 1 to 13');
 end
 else

 f:=1;
 For i:=2 to n do f:=f*i;
 sEdit2.text:=IntToStr(f);
end;

procedure TForm1.sButton2Click(Sender: TObject);
var a,n:longint; st:real;
begin
  if (Chislo.Text='') or (Stepen.Text='') then
 begin
  if lang='rus' then ShowMessage('Ïîæàëóéñòà óêàæèòå ÷èñëî.');
  if lang='eng' then ShowMessage('Please enter the number.');
 end
 else

 a:=StrToInt(Chislo.Text);
 n:=StrToInt(Stepen.Text);
 st:=Power(a,n);
 sEdit3.Text:=FloatToStr(st);
end;

procedure TForm1.sButton3Click(Sender: TObject);
var x1,x2:real;
    b,a,c,D:integer;
begin
 if (sEdit6.text='') or (sEdit7.text='') or (sEdit8.text='') then
  begin
   if lang='rus' then  MessageBox(0, PChar('Ïîæàëóéñòà óêàæèòå ïîëîæèòåëüíîå çíà÷åíèå, êîòîðîå áîëüøå 0.'), PChar('Îøèáêà'), MB_OK);
   if lang='eng' then  MessageBox(0, PChar('Please enter positive value, that above 0'),PChar('Error'), MB_OK);
  end
  else
 a:=strtoint(sEdit6.text);
 b:=strtoint(sEdit7.text);
 c:=strtoint(sEdit8.text);

 If (a>0) then
 d:= b*b-4*a*c;
 if d>0 then
begin
 x1:=(-b+sqrt(d))/(2*a);
 x2:=(-b-sqrt(d))/(2*a);
 sEdit5.text:=floattostr(x1);
 sEdit4.text:=floattostr(x2);
end;

 if d=0 then
begin
 x1:=-b/(2*a);
 x2:=x1;
 sEdit4.text:=floattostr(x2);
 sEdit5.text:=floattostr(x1);

end;

 if d<0 then
 ShowMessage('Êîðíåé íåò.');
end;

Проблема в том, что при не заполнеии полей вылазит мое окно, а потом дэлфийское('' is no valid integer value). Задача избавиться от появления дэлфийского окна.

[Mad_Cat]

begin
   if lang='rus' then  MessageBox(0, PChar('Ïîæàëóéñòà óêàæèòå ïîëîæèòåëüíîå çíà÷åíèå, êîòîðîå áîëüøå 0.'), PChar('Îøèáêà'), MB_OK);
   if lang='eng' then  MessageBox(0, PChar('Please enter positive value, that above 0'),PChar('Error'), MB_OK);
exit;
  end

if (sEdit6.text='') or (sEdit7.text='') or (sEdit8.text='') then
  begin
   if lang='rus' then  MessageBox(0, PChar('Ïîæàëóéñòà óêàæèòå ïîëîæèòåëüíîå çíà÷åíèå, êîòîðîå áîëüøå 0.'), PChar('Îøèáêà'), MB_OK);
   if lang='eng' then  MessageBox(0, PChar('Please enter positive value, that above 0'),PChar('Error'), MB_OK);
exit;
  end

[[Jank]]

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

if (sEdit6.text='') or (sEdit7.text='') or (sEdit8.text='') then
  begin
   if lang='rus' then  MessageBox(0, PChar('Ïîæàëóéñòà óêàæèòå ïîëîæèòåëüíîå çíà÷åíèå, êîòîðîå áîëüøå 0.'), PChar('Îøèáêà'), MB_OK);
   if lang='eng' then  MessageBox(0, PChar('Please enter positive value, that above 0'),PChar('Error'), MB_OK);
exit;
  end

Чувак, нереальное спасибо! Помог!) дело было в exit; а я голову ломал), слушай, а что не так с 1 кодом? он постоянно выдает диалог, даже если там есть значение...

[Mad_Cat]

а что не так с 1 кодом? он постоянно выдает диалог, даже если там есть значение...

какой код 1?
Какой диалог?

[[Jank]]

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

какой код 1?
Какой диалог?

Все, я разобрался) выдавал нужный диалог(то есть мой, о том что пустое значение). Всегда) Спасибо за помощь.

Загляни сюда, посмотри на готовый Проект, оцени. Критика приветствуется.