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

Как посчитать сколько таких символов в стороке?   Найти похожие ветки 

← →
_Просто Гость_   (2004-12-14 20:55) [0]

Есть желание сделать в поле Edit возможнось ввода только цифр и знака разделителя разрядов. Ввод только цифр и разделитьея реализовать получилось, но разделитель можно ввести много раз( типа - 25.63..58, а хочется, чтобы можно было только 1 раз ввести разделитель разрядов. Может есь какие оригинальные рецепты для реализации?

---

← →
TUser ©   (2004-12-14 20:59) [1]

В OnChange проверяй try StrToFloat() except showmessage("Poshel v jopu") end;

---

← →
Алхимик ©   (2004-12-14 20:59) [2]

Ввести счётчик разделителей?

---

← →
VMcL ©   (2004-12-14 21:00) [3]

>>_Просто Гость_  (14.12.04 20:55)

TryStrToFloat и подобные функции не помогут?

---

← →
DiamondShark ©   (2004-12-14 21:00) [4]

В том месте, где получилось реализовать ввод только цифр и разделителя, добавить условие "в строке уже есть разделитель".

---

← →
_Просто Гость_   (2004-12-14 21:03) [5]

Сейчас сделано так:


procedure Tfowners.TeEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if ((key < "0") or (key > "9")) and
   (key <>  DecimalSeparator) then key := #0;


Хочется вести счет без цикла такое возможно?

---

← →
Anatoly Podgoretsky ©   (2004-12-14 21:06) [6]

and POS(".", S) > 0

---

← →
Юрий Зотов ©   (2004-12-14 21:07) [7]

> Может есь какие оригинальные рецепты для реализации?

Зачем для такой простой вещи искать оригинальные рецепты?

В Edit1.OnKeyPress:
if not (Key in [ #8, DecimalSeparator, "0".."9"]) or
(Key = DecimalSeparator) and (Pos(DecimalSeparator, Edit1.Text) > 0) then
Key := #0;

---

← →
_Просто Гость_   (2004-12-14 21:12) [8]

Супер! Вот ОНО! Спасибо!

---

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

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



Память: 0.46 MB
Время: 0.022 c