Прописать сообщение об ошибке в программе

[Valio]

Должно работать. Если идёт такое сообщение:



то это отладчик сообщает о ошибке. В конечном проекте этого не будет вылезать.. при:

Try
  I:=StrToFloat(Edit1.Text);
Except
  ShowMessage('Error');
  Exit;
End;

[SNUPY]

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

контролируйте ввод!
вот так

procedure TMForm.lbCountKeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['0'..'9', #10, DecimalSeparator, #127, #8]) then
    Key := #0
  else
  begin
    if pos(DecimalSeparator, lbCount.text) <> 0 then
    begin
      if Key = DecimalSeparator then Key := #0
      else
        if Length(copy(lbCount.Text, pos(DecimalSeparator, lbCount.text)+1,
                  Length(lbCount.Text)- pos(DecimalSeparator, lbCount.text))) > 2 then
          if not(Key in [#127, #8]) then Key := #0;
    end;
  end;
end;

и сообщения выводить не надо!

От вставки значения через контекстное меню мышкой не спасает ^__^

[SNUPY]

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

Должно работать. Если идёт такое сообщение:



то это отладчик сообщает о ошибке. В конечном проекте этого не будет вылезать.. при:

Try
  I:=StrToFloat(Edit1.Text);
Except
  ShowMessage('Error');
  Exit;
End;

Для автора темы если вылезает подобное сообщение то жмем "Ок", а потом F9 и красуемся сообщением об ошибке.

[Hacker19_90]

От вставки значения через контекстное меню мышкой не спасает

да? эм..... незнал! Что правда? да ну не может быть! не не не верю! это как вообще?

[Valio]

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

да? эм..... незнал! Что правда? да ну не может быть! не не не верю! это как вообще?

Очень просто. При вставке не происходит событие KeyPress, ибо не нажимают ничего.

И вообще не вижу смысла городить такого рода проверку.. ну если только для самообразования. Можно повесить на потерю фокуса например.

[Hacker19_90]

Очень просто. При вставке не происходит событие KeyPress, ибо не нажимают ничего.

Да вы товарищь КЭП! Спасибо!
А то бы так и умер, не узнав этого!

[GreenWizard]

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

Очень просто. При вставке не происходит событие KeyPress, ибо не нажимают ничего.

И вообще не вижу смысла городить такого рода проверку.. ну если только для самообразования. Можно повесить на потерю фокуса например.

бесполезно! он свою эту проверку суёт во все щели и не докажешь, что можно от такого заболеть =)

по теме: а оно вообще у вас компилируется? вы писали "дальше выдает ошибки на все procedure" т. е. скорее всего вы блок try закрыли end-ом, который от begin-a

[SNUPY]

по теме: не забываем, что есть кашерная ф-ия

function TryStrToFloat(const S: string; out Value: Single): Boolean;

[Anna-A]

Спасибо большое вам! все заработало!
и извините за вирусы.
все почистила, все написала как надо, работает!