Скачать: CL | DM;

Проверить 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 ©   (2004-08-09 12:32) [7]

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

---

← →
GuAV ©   (2004-08-09 12:35) [8]

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

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

---

← →
Anatoly Podgoretsky ©   (2004-08-09 13:19) [9]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.02 c