Обработка исключений

[_-Re@l-_]

В общем, пишу код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  kurs,dollar,rub:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     try
        kurs:=StrToFloat(Edit1.Text);
        dollar:=StrToFloat(Edit2.Text);
        rub:=kurs*dollar;
        Edit3.Text:=FloatToStr(rub);
     except
           if (length(Edit1.Text)=0) or (length(Edit2.Text)=0) then
           Messagedlg('Insert all parametres',mtWarning,[mbOk,mbCancel],0);
     end;
end;

end.

То есть если одна из TEdit пустая, то он должен выдавать моё сообщение об ошибке.
Однако, он этого не делает.
Он выдаёт своё сообщение:"is not valid floating point value"
Почему так?

[SERG1980]

Вы скорее всего это "из под делфи" смотрите попробуйте отдельно ехе запустить
и зачем сравнивать длину текста

 if (length(Edit1.Text)=0) or (length(Edit2.Text)=0) then

можно и попроще

 if (Edit1.Text='') or (Edit2.Text='') then

Да и вообще не зачем эта проверка, просто если случилось исключение то выдать сообщение о некорректных данных

[ex.cluz]

Да и вообще не зачем эта проверка

Я тоже так думаю. А если пользователь пробелы в этих полях поставил?
Тогда length не поможет и сообщение не покажется.

[Grag]

Можно вот так делать

if not TryStrToFloat(Edit1.Text,kurs)
  then //тут сообщение об ошибке или что-то другое....
if not TryStrToFloat(Edit2.Text,dollar)
  then //.....................................