трансформация строки в число ...

← →
Malamba (2005-11-29 13:09) [0]

Братцы, подскажите по-быстрому, не могу вспомнить, как делал и делал ли вообще:

трансформирую строку в денежку
cKol = CCur(MyTextBox.Text)

юзер вводит число - нормально
юзер вводит запятую - нормально
юзер вводит точку - ненормально
юзер звереет и вводит текстъ - ужас

Кто как делает:
проверять каждый символ, перебегая по всей строке в поисках вредных символов,
обрабатывать error с указанием пользователю, что так делать нехорошо, или еще как?

← →
Ega23 © (2005-11-29 13:13) [1]

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

← →
Malamba (2005-11-29 13:48) [2]

Да, это оно, обработка нажатия клавишы.

Спасибо.

← →
Ega23 © (2005-11-29 14:02) [3]

> Да, это оно, обработка нажатия клавишы.
>

Это не совсем оно. Не защищает от вставки из буфера, от ввода строки "123.123.123" и отрицательных чисел.

← →
Begin (2005-11-29 15:10) [4]

Денежных значений тоже бывает меньше нуля... :)

if
(not (Key in ["0".."9", DecimalSeparator, "-", #8, #46, #37, #9, #13])) or
((Key = ".") and (Pos(".",Text) > 0)) or
((Key = "-") and ((SelStart <> 0) or (Pos("-",Text) > 0)))
then Key:=#0

← →
Ega23 © (2005-11-29 15:35) [5]

> Begin (29.11.05 15:10) [4]

От вставки из буфера всё равно не защищает.

> Ega23 © (29.11.05 15:35) [5]

> От вставки из буфера всё равно не защищает.

http://groups.google.com/group/borland.public.delphi.vcl.components.writing/msg/41b62f85dd405cdf

--
Regards, LVT.

> Leonid Troyanovsky © (29.11.05 15:56) [6]

Да мне не надо. Я обычно потом ещё одну проверку делаю. Когда на "ОК" нажали.
Просто код в [1] спасает в 95% случаев.

трансформация строки в число ... Найти похожие ветки