Дробные числа в Эдите

← →
De1uxe © (2005-11-25 15:06) [0]

Люди добрые кто подскажет как сделать так чтобы в эдите можно было писать только числа и точку(запятую) чтобы дробные(десятичные) писать?

← →
Ega23 © (2005-11-25 15:23) [1]

TEdit.OnKeyPerss(Sender: TObject; var Key: Char); begin if not (Key in ["0".."9", DecimalSeparator, #8]) then Key:=#0; end;

← →
Ega23 © (2005-11-25 15:24) [2]

Примечание: нельзя вводить отрицательные числа.

← →
Ega23 © (2005-11-25 15:24) [3]

Примечание 2.
Не защищено от вставки текста в Edit из буфера обмена.

← →
Сайбель Алексей © (2005-11-25 15:26) [4]

Примечание 3.
Можно ввести число разделенное несколько раз DecimalSeparator.
Ex: 123,123,123, etc

← →
Leonid Troyanovsky © (2005-11-25 15:28) [5]

> De1uxe © (25.11.05 15:06)
> Люди добрые кто подскажет как сделать так чтобы в эдите
> можно было писать только числа и точку(запятую) чтобы дробные(десятичные)
> писать?

Например,

http://groups.google.com/group/fido7.ru.delphi/msg/775ae41547dcf860

Только, свой ConvertInput написать, скажем,
function ConvertInput(const s: String): Extended;

Кста, Val допускает и такой ввод -1E+1

--
Regards, LVT.

> #8 - это чё?

Backspace. Без него - тяжеловато.

> Примечание 3.

Согласен.
Вообще, обычно, я уже потом проверяю. Val использую. Там и код ошибки, кстати, есть.

Дробные числа в Эдите Найти похожие ветки