Сообщение из условия не выводится

[kta87]

Условие

if (Edit1.Enabled = True) and (Edit1.Text = '') then
 begin
  showMessage('текст');
  Edit1.SetFocus;
  Exit;
 end;

говорит что: если Edit1 активен и в него не введено цифровое значение то выводится сообщение, выделяется Edit1.
Однако при оставлении Edit1 пустым появляется ошибка: "is not a valid floating point value" - (не правильная плавающая величина точки). Подскажите как справить?

[Marsel737]

А что по твоему пустой едит это число? Если да то какое?

Вот твой код, ты сначала присваиваеш переменной NO значение из первого эдита, а уже потом проверяеш что он не пустой

 if Edit1.Enabled = True then NO:= StrToFloat(Edit1.Text);
  if Edit2.Enabled = True then N1:= StrToFloat(Edit2.Text);
  if Edit3.Enabled = True then N2:= StrToFloat(Edit3.Text);
  if Edit4.Enabled = True then L:= StrToFloat(Edit4.Text);
  if Edit5.Enabled = True then Nm:= StrToFloat(Edit5.Text);
  if (ComBoBox3.ItemIndex = 19) and (ComBoBox3.Enabled = True) then
    av:= StrToFloat(Edit6.Text);
  if Edit7.Enabled = True then m:= StrToFloat(Edit7.Text);


// Определение коэффициента выпуска МТС на линию "av"
  case ComboBox3.ItemIndex of
    0: av:= 0.1;
    1: av:= 0.15;
    2: av:= 0.2;
    3: av:= 0.25;
    4: av:= 0.3;
    5: av:= 0.35;
    6: av:= 0.4;
    7: av:= 0.45;
    8: av:= 0.5;
    9: av:= 0.55;
    10: av:= 0.6;
    11: av:= 0.65;
    12: av:= 0.7;
    13: av:= 0.75;
    14: av:= 0.8;
    15: av:= 0.85;
    16: av:= 0.9;
    17: av:= 0.95;
    18: av:= 1.0;
  end;

// Проверка задаваемых данных для расчета и вывод сообщения о не коректности
 if (ComBoBox1.ItemIndex = -1) and (ComBoBox1.Enabled = True) then
 begin
  showMessage('...');
  ComboBox1.SetFocus; // Выделяем ComboBox1
  Exit; // Выход
 end;
 if (ComBoBox2.ItemIndex = -1) and (ComBoBox2.Enabled = True) then
 begin
  showMessage('...');
  ComboBox2.SetFocus;
  Exit;
 end;
 if (ComBoBox3.ItemIndex = -1) and (ComBoBox3.Enabled = True) then
 begin
  showMessage('...');
  ComboBox3.SetFocus;
  Exit;
 end;
 if (ComBoBox4.ItemIndex = -1) and (ComBoBox4.Enabled = True) then
 begin
  showMessage('...');
  ComboBox4.SetFocus;
  Exit;
 end;
 if (ComBoBox5.ItemIndex = -1) and (ComBoBox5.Enabled = True) then
 begin
  showMessage('...');
  ComboBox5.SetFocus;
  Exit;
 end;
 if (Edit1.Enabled = True) and (Edit1.Text = '') then
 begin
  showMessage('..');
  Edit2.SetFocus;
  Exit;
 end; 
 if (Edit2.Enabled = True) and (Edit2.Text = '') then
 begin
  showMessage('...');
  Edit2.SetFocus;
  Exit;
 end;
 ...

[kta87]

Marsel737, огромное тебе спасибо, реально помогаешь делом!