try в delphi

[SonicBob]

пытаюсь понять принцип работы с функцие try
рандомно загоняю в эдит числа и символы, хочу сделать что б через трай отфильтровывались буквы а проходили дальше только числа
делаю так примерно

//тут ввод рандома
Try
  strtofloat(edit3.Text);
  except
    On E :  Exception do
    edit3.Text:=''
    Else
hoh:=strtofloat(edit3.Text );

но ничего не работает не пропускается вообще ничего, в чем я не прав?




и еще один вопрос
как еще сделать фильтр значий в эдите что б проходили только цифры если нет ввода с клавиатуры а все на рандоме
пробывал написать на onkeypress но понятно дело не хочит работать, подскажите че делать

[Вадим Мошев]

1. Надо запускать не через Run (F9), а скомпилированный экзешник.

//тут ввод рандома
Try
  strtofloat(edit3.Text);
  except
    On E :  Exception do
    edit3.Text:=''
    Else
hoh:=strtofloat(edit3.Text );

Хм, странно, что это вообще компилируется (сам не пробовал, с ваших слов).

Синтаксис Try таков

Try
// Здесь пытаемся что-то делать
Except
// Сюда мы попадём только в том случае, если возникло исключение

либо так:

Try
// Здесь пытаемся что-то делать
finally
// Если возникло исключение, то просто игнорируем его и переходим сюда

[Nemez]

try
hoh:=strtofloat(znakrandom);
edit3.Text:=floattostr(hoh);//если число то пишем в эдит
except
edit3.Text:='';//если текст то очищаем эдит
end;

[SonicBob]

спасибо всем понял как работать с этой функцией )

[Пепел Феникса]

Вадим Мошев, все правильно там, спецификация исключения, правда ветка else не имеет смысла.