Проверить Edit1.Text - цифровой?

← →
bles (2004-08-09 11:54) [0]

При выполнении процедуры, требуется проверить является ли введеный оператором текст в Edit1.Text цифровым и если нет - выбросить предупреждение, а если цифровой, то продолжить выполнение процедуры.
Заранее спасибо.

← →
Fynjy (2004-08-09 11:56) [1]

Можешь использовать try except.

← →
anton@fms.sochi.ru (2004-08-09 11:58) [2]

Функции:
IsInteger - проверка, что строка - это ЦЕЛОЕ число
IsFloat - проверка, что строка - это плавающее число (в принципе и целое тоже прокатит)
IsNumeric - проверка, что строка - это число

function IsInteger(const S: string): Boolean;
var
Value: Integer;
Code: Integer;
begin
VAL(S, Value, Code);
Result := (Code = 0);
end;

function IsFloat(const S: string): Boolean;
var
Value: Extended;
Code: Integer;
begin
VAL(S, Value, Code);
Result := (Code = 0);
end;

function IsNumeric(const S: string): Boolean;
begin
Result := IsInteger(S) or IsFloat(S);
end;

← →
Квэнди © (2004-08-09 12:00) [3]

а если очень хочется извратиться, используй strtointdef в качестве defa задай какоенить число, заведомо не правильное (например -1)

← →
Sandman25 © (2004-08-09 12:03) [4]

[2] anton@fms.sochi.ru (09.08.04 11:58)
function IsNumeric(const S: string): Boolean;
begin
Result := IsFloat(S);
end;

← →
anton@fms.sochi.ru (2004-08-09 12:06) [5]

Для Sandman25: я в курсе

← →
GuAV © (2004-08-09 12:07) [6]

StrToInt используй - и исключение подымется если не число и дальнейший код не выполнится - только finally, если там except нет

Не грамотнее ли сразу не допускать ввода в эдит не числовой информации?

> Не грамотнее ли сразу не допускать ввода в эдит не числовой
> информации?

Если вводится число с плавающей точкой, то имхо нет.

Vit@ly © (09.08.04 12:32) [7]
А зачем ограничивать пользователся, пускай как хочет так и вводить, хоть копирование из ворда, где часть информации не цифровая, важен результат и удобства для пользователся.

Проверить Edit1.Text - цифровой? Найти похожие ветки