Здравствуйте.

Есть компонент Edit1 мне внего нужно писать только цифры и запятую преобразование из знаков в цифры делаю препомощи (R1:=StrToFloat(Edit1.Text);) так вот если в водить число (12,23) то всё ОК а если (12.23) то вознекает ошибка.

Вопрос: как зделать так чтоб при нажатии на ( . ) в окне Edit1 поевлялась ( , ) и ошибки небыло.

Код

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8,',','.']) then    key:=#0    else    begin    if key='.' then       key:=',';    end; end;

Это сообщение отредактировал(а) Albinos_x - 18.12.2005, 10:13

Albinos_x

Подправлю.

Код

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin     case Key of       '0'..'9',#8: ;       ',','.': Key := DecimalSeparator;       else key := #0;     end; end;

тот же икс, только вид сбоку

Цитата(Albinos_x @ 18.12.2005, 15:23)

тот же икс, только вид сбоку

За исключением

Цитата(Albinos_x @ 18.12.2005, 15:23)

DecimalSeparator;

Это правильнее.

Цитата(Snowy @ 18.12.2005, 15:25)

Это правильнее.

единственное.... но результат будет тот же...

А если я вставлю эту запятую\точку нажав Ctrl+v? ;) Код будет работать?
По мне наилучший вариант - замена . на , при получение текста данного едита

P.S. Я знаю, что я зануда.

Цитата(Albinos_x @ 18.12.2005, 16:58)

единственное.... но результат будет тот же...

Если только в системе разделитель тот же самый. А если нет, то результат будет другой ;)

Вопрос настолько уже избит везде, что даже не знаю, сколько раз можно на него отвечать-))

Цитата

А если нет,

ет точно, но если честно, то я с этим не разу не сталкивался...

Цитата(DeadSoul @ 18.12.2005, 16:11)

А если я вставлю эту запятую\точку нажав Ctrl+v?

Здеся нужен обработчик onChanged (кажется так правильно), а выше приведенный код только для нажитий на батоны клавы!

Всем спасибо

А я вообще не догнал что такое DecimalSeparator подскажите..

Цитата(TwisT_X @ 20.12.2005, 18:50)

что такое DecimalSeparator подскажите..

Это точка, запятая или что угодно, что явняется разделителем целой и дробной части, согласно настроек системы.

Добавлено @ 18:56
Я могу установить в качестве разделителя слово "хвост" и у меня не будет работать ни точка не запятая, а вот DecimalSeparator будет.

Snowy спосибо надо будет запомнить..?.

Цитата(Snowy @ 20.12.2005, 18:55)

Я могу установить в качестве разделителя слово "хвост" и у меня не будет работать ни точка не запятая, а вот DecimalSeparator будет.

Горячиться не нужно DecimalSeparator - это Char. Так, что можно только 1 символ поставить.

ivan219

Работает всем спасибо.

все таки а чем не подходить простая замена

Цитата(TwisT_X @ 20.12.2005, 22:26)

все таки а чем не подходить простая замена

Цитата(Snowy @ 20.12.2005, 18:55)

Это точка, запятая или что угодно, что явняется разделителем целой и дробной части, согласно настроек системы.

Albinos_x а ну да.. все ясно..

Этот процедура делает возможным в компоненте Edit писать только цифры 0...9 ставить только одну запетую и ползоватся клавишей Backspace <---

Код

// Пресвоить всем Edit событие OnKeyPress procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char); var  A: String; begin  A:=(Sender as TEdit).Text;  case Key of   '0'..'9',#8:;   ',','.':    begin     if pos(',',A)=0 then Key := DecimalSeparator;     if pos(',',A)>0 then Key := #0;    end;   else    Key := #0;   end; end;

Так это я его и дописал из несколких которые вы мне дали, сночало был

Код

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);     begin         case Key of           '0'..'9',#8: ;           ',','.': Key := DecimalSeparator;           else key := #0;         end;     end;

Внём было две проблемы первая это возможность ставить больше чем одна запетая а это не правильно так что я перестраховался чтоб проблем небыло что разве это плохо когда код доведён до ума
Вторая это много проуедур скажем есть уменя 6 штук Edit и что мне для каждого пришлось писать

Код

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);         begin      case Key of       '0'..'9',#8:;       ',','.':        begin         if pos(',',Edit1)=0 then Key := DecimalSeparator;         if pos(',',Edit1)>0 then Key := #0;        end;       else        Key := #0;       end;     end;

Это тоже не выход 6 лишних процедур дополнительный код место и.т.д.

Вот я и зделал одну.

Код

// Пресвоить всем Edit событие OnKeyPress     procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);     var  A: String;     begin      A:=(Sender as TEdit).Text;      case Key of       '0'..'9',#8:;       ',','.':        begin         if pos(',',A)=0 then Key := DecimalSeparator;         if pos(',',A)>0 then Key := #0;        end;       else        Key := #0;       end;     end;

А если где встречалась так это хорошо, вот только почемуто мне самому прешось до этого дойти и слова критики в свой адрес я считаю не провомерными так как я для других токихже как я сторался чтоб потом было проше.

Цитата(ivan219 @ 15.1.2006, 18:46 )

Вот я и зделал одну.

Правильно будет работать, только если разделитель - запятая.

Вот тебе еще вариант ;)

Код

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin     case Key of         '0'..'9',#8:;         ',','.':             begin                 if Pos(DecimalSeparator,TEdit(Sender).Text)>0                     then Key := #0                     else Key := DecimalSeparator;             end;     else Key := #0;     end; end;

Да вобще по уневерсальнее.

Есть ещё вопрос как реализовать копирование т.е. есть 12.12 при такой записи будет ошибка надо автоматически зделать из 12.12 -> 12,12 когда копируеш из другого места

Обработать в OnChange ?

А по конкретнее как

Во спасибо

А как реализовать буфер обмена чтоб использовать комбинацию клавиш Ctrl+C Ctrl+V

В смысле - как реализовать? Вставка и копирование работают по-умолчанию. Для этого ничего не надо писать дополнительно.

Нет. Это когда меню вызываеш а мне надо Ctrl+C Ctrl+V

Вот нашол только как это реализовать чтоб было по нажатию Ctrl+C Ctrl+V

Насчёт одной запятой - не будет работать, if not(DecimalSeparator in [',','.']) then думать надо, как DecimalSeparator, который не является константой запихать в case...

вариант: всё что не является буквой или цифрой считать разделителем... Действительно точка и запятая - довольно скудно... например(не претендуя на реальность ситуации) разделителем является '&' а вместо него напечатали(опечаткались) '^'

Это сообщение отредактировал(а) Bog d`An - 17.1.2006, 05:22

Конкретнее, что и в каком конкретно месте не будет работать?

За универсализмом не надо гоняться. Нужно исходить из реалии и целесообразности.

например(не претендуя на реальность ситуации) разделителем является '&'

Почему бы тогда не предположить, что разделителем будет знак '-' или '+' (которые как раз тоже надо добавить в набор допустимых символов, и обработка, следовательно, усложнится), которые вляются допустимыми в числах?

Почему не будет уменя 2 вареанта работают и кроме , и . болше ненашто нереагирует некаких +-*/?:%;№"!" нет а если при копировании то это каким же надо быть чтоб пренять @ в качестве , или .

Лучше обесните как выгледит нажатие клавиш Ctrl+C Ctrl+V как это реализовать

Это сообщение отредактировал(а) ivan219 - 17.1.2006, 11:59

Выделяем любой текст , жмем Ctrl+C
кликаем по Edit у , Жмем Ctrl+V и все

Я незнаю может что нужно вкл. но такой способ непроходит Ctrl+С потм Ctrl+V вот с помощю меню можно вставить и копировать можно вырезазт отменить а комбинация клавиш Ctrl+С Ctrl+V не проходит

Конечно не будет работать ведь ты все буквы режешь в кейпрессе , перенеси в кейдаун и разреши необходимые те комбинации клавишь

У меня работает в том виде, в котором написал. ;)

То, что у автора не работает, явно зависит от его остального кода и настроек форм, hotKey и т.д.


Это сообщение отредактировал(а) Демо - 17.1.2006, 16:27

вот это. Если DecimalSeparator не является точкой или запятой, он пойдёт не сюда а в else

Но, действительно или целесообразность, или универсальность...

тогда зачем вообще использовать DecimalSeparator? писали бы '.'

вот что-то более-менее универсальное




Правильно! там возможностей больше!
и ещё для формы KeyPreview := true

Это сообщение отредактировал(а) Bog d`An - 18.1.2006, 04:42

Bog d`An товой код немного фальшивит в Edit можно писать и буквы только каждая последующая заменяет предыдущюю и запетые там можно их 2 штуки ставить.

А поподробнее можно как в KeyDown это реализовать

Упс. Щас посмотрю.
Добавлено @ 06:28

Это потому что в событии onChange


примерно так


Это сообщение отредактировал(а) Bog d`An - 20.1.2006, 07:17

Извини, но ты свой код пробовал хотя бы проверить?

Могу даже предложить попроовать вот такой:



Эффект будет аналогичен.

Это сообщение отредактировал(а) Демо - 20.1.2006, 12:27

Компилятору чегото ненравится [Ошибка] Unit1.pas(103): Undeclared identifier: 'WrongSepArr'

нет не пробовал
а надо?
Добавлено @ 14:58

константа с предидущего примера...

Ошибок нет а всё равно буквы идут когбудто и нет нечего.

Надо, так как твой пример в OnKeyDown не будет работать ни в каком виде.

Как вам вот это

А что он делает

о, точно там ещё +- надо первым символом разрешить
млин, не всё так просто как казалось...



мда.. вот токо куда проверку на запятую и +- вставить...
вроде они для рус\англ на различном ShiftState ?

Это сообщение отредактировал(а) Bog d`An - 21.1.2006, 06:55

Всё почти работает запятых нет одни цифры, пречём блок цифровой клавиатуры тоже неотвичает, если из буфера обмена вставить 12.12 или 12,12 то ошибка.

А так ?

С запятыми косяк... и позицией курсора...

ivan219 Мой алгоритм ведь работает какие еще проблемы??
Разрешает вводить только числа причем только с правельным разделителем, все посторонние символы удаляются, второй и последующие разделители так же удаляются, перед числом можно поставить + или -, сtrl + c и ctrl + V не блокируются, при вставке автоматически удаляются все лишние символы.

работает

Это сообщение отредактировал(а) Bog d`An - 24.1.2006, 10:25

В смысле косяк?, курсор только в конце.

Зачем юзать #8 в ченже??? Ведь это бекспейс, а он стирает символ, и в ф-цию передается строка без символа, стертого и символа 8
А че такое 42

может он хотел написать 46(Del)

Дык и он зачем этот дел в Change ???

я думаю это "остатки" EditKeyDown1

Оттож!!!! В ченже они ненадо!!!

Почти когда на запятую два раза жмёш то курсор в ночало уходит.
Добавлено @ 18:15

Этот код тоже хорош но с запятыми проблема их можно целую кучу ставить а нужна всего одна.

ошибка исправлена(решение украдено у Bog d`An)

Работае я немного подправил так что всё ОК

Тут даже когда первая стоит запятая то ставит 0, это ещё лучше сам пытался это реализовать но неполучилось вобщем всё работает



Спасибо!!!!!!!
Добавлено @ 18:30
Ещё Bog d`An если можеш распши всё просто мне надо это понять а так я неразберусь хотя попытають.

в коде Bog d`An есть маленький глюк если установить курсор
в начало строки и жать del то работает как то странно...
Добавлено @ 18:59
если добавить - а перед ним разделитель минус удаляется

Это сообщение отредактировал(а) alexeis1 - 24.1.2006, 18:56

Может кто подскажет как этот код в компоненте исползовать я тут попробовал но чтот неполучилось компонент установился а толку мало может кто даст ссылку на литераратуру где можно почитать ка создовать свои компоненты или пожет от куда начать.

про подмену разделителя целой и дробной части:
давно уже сделано
не забываем про "Арсенал"
http://forum.vingrad.ru/index.php?showtopi...st&amp;p=409416

Это сообщение отредактировал(а) Akella - 30.1.2006, 12:26

а если юзверь станет в середине печатать?


??? что бы это значило?

Ниже приведён код, который не позволяет вводить ничего лишнего, кроме символов и всего что их касаеца.
Так же он оставляет знаки "+" и "-" только в начале, и оставляет только один разделитель.
Запехни его просто в обработчик OnChange.


Это сообщение отредактировал(а) Kuper - 9.2.2006, 10:15