Автор Максим Денисов задал вопрос в разделе Другие языки и технологии
Вопрос по Delphi 7. Функция VarIsNumeric. и получил лучший ответ
Ответ от Александр Ильин[гуру]
var
x: Real;
try
x := StrToFloat(Edit1.Text);
except
x := 0; // не число
end;
Если число должно быть целым, используйте StrToInt
Вообще, по уму, это надо отсекать на уровне ввода, т. е. использовать MaskEdit или обрабатывать событие OnChar
Ответ от MMM_Corp[гуру]
попробуйте так
If not VarIsNumeric(string(LabelEdit1.Text)) then exit;
попробуйте так
If not VarIsNumeric(string(LabelEdit1.Text)) then exit;
Ответ от Коровин Иван[гуру]
VarIsNumeric - Это не то
Это для работы с типом данных Variant, который может содержать что угодно.
Соответственно, он проверяет содержится ли в варианте число (не логически, а физически) )
При выполниии LabelEdit1.Text преобразуется в вариант со строкой, соответственно VarIsNumeric вернет false
VarIsNumeric - Это не то
Это для работы с типом данных Variant, который может содержать что угодно.
Соответственно, он проверяет содержится ли в варианте число (не логически, а физически) )
При выполниии LabelEdit1.Text преобразуется в вариант со строкой, соответственно VarIsNumeric вернет false
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Вопрос по Delphi 7. Функция VarIsNumeric.
Вопрос по Delphi 7. Функция VarIsNumeric.
var
x: Real;
try
x := StrToFloat(Edit1.Text);
except
x := 0; // не
подробнее...