Форум: "Основная";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];
Вниз
Как посчитать сколько таких символов в стороке? Найти похожие ветки
← →
_Просто Гость_ (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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c
