OnChange

[Plohoy]

При удалении всех символов в Edit вылазиет ошибка ""is not a valid floating point value.". Как быть?

[evg_m]

добавить if or try

[Plohoy]

как ее вписать?

procedure TForm1.Edit11Change(Sender: TObject);
  var a,b:extended;
  begin
      a:=StrTofloat (edit11.Text);
      Label28.Caption:=floattostr((a*18)/118);
       b:=StrTofloat (Label28.Caption);
       b:=RoundTo(b,-2);
      Label28.Caption:=FloatToStr(b);
end;

Вот такой код

Я try вобще никогда не пользовался

[Hacker19_90]

try
  {Неустойчивый участок кода}
   a := b/c;
except
  {То что надо сделать если произошла ошибка в блоке try}
  ShowMessage('Ошибка при делении');
  a := 0;
finally
  {ТО что надо сделать в любом случае}
  Edit1.Text := IntToStr(a);

[Stilet]

procedure TForm1.Edit11Change(Sender: TObject);
  var a,b:extended;
  begin
      if not TryStrTofloat (edit11.Text,a) then ShowMessage('Это не число');
      ...
end;

Смысл понял? Почитай в хелпе про TryStrTofloat

[Plohoy]

Ну а с моим кодом как это сделать?

if not TryStrTofloat (edit11.Text,a) then ShowMessage('Это не число');

я когда эту строку вставил и запустил вышло сообщение ('Это не число') и когда нажал ок опять вылезла ошибка

Урррррррррррррррааааааааааааааа получилось

А можно сделать чтоб не появлялось сообщение?

[Hacker19_90]

Ну тогда сотри ShowMessage('Это не число'); И напиши Exit;
Тогда при ошибке функция прекратит выполнение

[Plohoy]

Спасибо большое

Когда вводишь а потом стираешь то остаетя число

[RUSt88]

При удалении всех символов в Edit вылазиет ошибка ""is not a valid floating point value.". Как быть?

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

... Edit1.OnChange(...);
begin
   if edit1.Text <> "" then begin
      ...
   end;
end;

и твоя трабла решится

[Hacker19_90]

"is not a valid floating point value."
Очень интересная ошибка, которая вылетает из-за некорректного заполнения данных! Так что лучше её обрабатывать через стандартную обработку исключений! То бишь через try except finally