Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.29;
Скачать: CL | DM;

Вниз

Уважаемые мастера, Как обработать ошибку???   Найти похожие ветки 

 
DARS73 ©   (2002-07-17 00:59) [0]

Tекстовое поле Edit1.text:="*11" я выполняю команду strtofloat(edit1.text) и получаю ошибку, мне нужно эту ошибку обработать.
То есть мне нужно определить, введеные символы в edit1.text являются числом или нет, кто может помогите. За ранее благодарен.


 
Ev_genus ©   (2002-07-17 01:13) [1]

Есть такая процедура
procedure Val(S; var V; var Code: Integer);

If the string is invalid, the index of the offending character is stored in Code; otherwise, Code is set to zero. For a null-terminated string, the error position returned in Code is one larger than the actual zero-based index of the character in error.

Номер символа на котором происходит ошибка сохраняется в Code. Eсли Code = 0 , то все = OK :)


 
Ev_genus ©   (2002-07-17 01:15) [2]

Есть такая процедура
procedure Val(S; var V; var Code: Integer);

If the string is invalid, the index of the offending character is stored in Code; otherwise, Code is set to zero. For a null-terminated string, the error position returned in Code is one larger than the actual zero-based index of the character in error.

Номер символа на котором происходит ошибка сохраняется в Code. Eсли Code = 0 , то все := OK :)


 
Alexander_D6_XP   (2002-07-17 01:24) [3]

Например можно так:

try
strtofloat();
showmessage("ok");
except
showmessage("entered text isn"t a number!");
end;



Страницы: 1 вся ветка

Текущий архив: 2002.07.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
3-95183
alexvan
2002-07-04 19:02
2002.07.29
Как подключить таблицы PARADOX без BDE???


14-95498
xmrz
2002-06-30 16:32
2002.07.29
злободневная тема: сколько взять?


3-95195
ProfiUgl
2002-07-05 08:38
2002.07.29
Дайте совет по выбору нормального DBLookUpCombo....


14-95484
-=CrazyFish=-
2002-06-28 17:33
2002.07.29
оцените плиз...


1-95417
EugenCFG
2002-07-13 14:04
2002.07.29
Как вывести изображение на против каждого Item в RXCheckListBox