Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: 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 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.16 c
3-1101587768
Fedor
2004-11-27 23:36
2004.12.26
Сортировка IBTable


3-1101601681
For
2004-11-28 03:28
2004.12.26
И снова про транзакции и обновление


3-1101882356
Alex-
2004-12-01 09:25
2004.12.26
Освобождение памяти


1-1102410534
maxistent
2004-12-07 12:08
2004.12.26
Как получить PAS-текст из ASM?


1-1102619614
AlexHawk
2004-12-09 22:13
2004.12.26
MEMO ограничения в строке