Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Ошибка E2003 Undeclared identifier: 'RoundTo' Unit1.pas(38): E2003 Undeclared identifier: 'RoundTo' Проект: https://www.cyberforum.ru/ delphi-beginners/ thread2472116.html Delphi Установка JvgDBGrid
Пытаюсь стартануть сторонний проект, который требует 'JvgDBGrid.dcu'. Гуглю в поисках него уже не первый день. Наткнулся на статью:TJvgDbGrid – DbGrid из библиотеки Globus Вот здеся нашел упоминание о том, что JvgDBGrid мигрировал в JvDBGrid в связи с включением в 2003 году Globus в состав JVCL. Тута обнаружил саму библиотеку Globus, однако при попытке проинсталлировать...
Delphi Текстовые файлы Ребят, доброе время суток. У меня возникло два вопроса. Первый, как сделать так, чтобы при запуске программы в текстовых полях не возникало названий компонентов (при запуске программы в каждом текстово компоненте появляется название этого компонента: "edt2", "edt3" и так далее). И второе, как сделать так чтобы можно было работать не только с расширением txt, но и с doc, docx. Заранее спасибо. ... https://www.cyberforum.ru/ delphi-beginners/ thread2472090.html Delphi Задача на выигрышную стратегию Столкнулся с такой задачей, никогда таких не решал. Скажите, пожалуйста, в чём суть стратегии? На игровой доске записана последовательность натуральных чисел. Игроки ходят по очереди. Ход заключается в том, что игрок выбирает число, расположенное на левом или на правом конце последовательности. выбранное число стирается с доски. Игра заканчивается, когда на доске не остается чисел. Первый... https://www.cyberforum.ru/ delphi-beginners/ thread2472082.html
Сравнение двух цифровых массивов Delphi
Здравствуйте, начинающий программист подскажите с реализацией идеи. Идея:имеются два цифровых массива нужно сравнить их и вывести информацию о повторяющихся элементах в двух массивах. Спасибо! До обращения сюда работал только на C++
Delphi Поиск и фильтрация DBGrid Доброго времени суток! Столкнулся с проблемами поиска и фильтрации. 1. Если делать поиск через locate и писать время, то появляется ошибка (см. приложение 1) 2. Если делать фильтрацию по колонкам, то она происходит только для одной колонки. При попытке отфильтровать, например, по колонке "Аудитория", просто не выдает результатов (см. приложение 2) Помогите пожалуйста разобраться! Заранее... https://www.cyberforum.ru/ delphi-beginners/ thread2472018.html
Delphi Thread idhttp SO/System.JSON утечка памяти Всем привет, столкнулся с проблемой, не знаю как победить. Есть проект форма + поток, по нажатия кнопки запускается поток. Поток получает с сайта данные в формате JSON, обрабатывает и умирает. При повторном запуске, размер приложения в оперативной памяти увеличивается от 3-7мб. (размер ответа JSON чуть больше 10мб) Использование ReportMemoryLeaksOnShutdown:=true... https://www.cyberforum.ru/ delphi-beginners/ thread2471760.html Delphi Двойные условия
Ребят, у меня возникла маленькая проблемка. Если я хочу добавить двойное условие, что и главное как правильно мне это прописать? В идеале, если не только в edt2 не ввести слово, но и в edt3, должно вылезти сообщение: "Введите текст". Но как это правильно прописать я не знаю. Помогите пожалуйста. Заранее спасибо. procedure TForm1.btn1Click(Sender: TObject); var Text, CorText: string;...
Delphi Написать программу Здравствуйте, (предупреждаю сразу, я только-только залез в делфи), у меня возникла просьба. Не могли бы вы помочь с написанием программы для поиска и замены слов в тексте. У меня есть код, но он у меня не работает. Выдаёт массу ошибок. unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls,... https://www.cyberforum.ru/ delphi-beginners/ thread2471654.html Delphi Ошибка, множества https://www.cyberforum.ru/ delphi-beginners/ thread2471599.html
В чем может быть ошибка? Дана непустая последовательность слов из строчных русских букв. между соседними словами присутствует запятая, за последним словом – точка. Напечатайте в алфавитном порядке гласные буквы, которые входят в каждое слово. type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; Label2: TLabel; Memo1: TMemo;
Delphi Фильтрация данных и информации Deiphi
Помогите решить проблему, есть две таблицы в одно указывается ФИО во второй информация о человеке, нужно сделать так что нажимаешь на фамилию и показывала информация только о нем, вот примерно что-то делал: procedure TForm5.DBGrid1CellClick(Column: TColumn); var s:string; begin s:=IntToStr(datamodule7.ADOTable1.fieldbyname('kod_pokypatelya').AsInteger);...
Delphi Перенос данных из ячейки DB Grid Добрый вечер, всем программистам. Требуется совет/решение на счет одной операции: имеется DB Grid и String Grid, при нажатии определенной ячейки DB Grid данные из нее поступали в определенную ячейку String Grid. Задача непростая... За помощь буду признателен. https://www.cyberforum.ru/ delphi-beginners/ thread2471556.html
Модератор
3384 / 1954 / 710
Регистрация: 15.11.2015
Сообщений: 7,810
16.06.2019, 12:22 0

Как сделать так, чтобы в строку редактирование (edit) можно было ввести только цифры и запятую? - Delphi - Ответ 13658892

16.06.2019, 12:22. Показов 2202. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено igoryak как решение

Решение

igoryak, в обработчике OnKeyPress вписать:
Delphi
1
2
3
4
5
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', ',', #8]) then
    Key := #0;
end;
Добавлено через 2 часа 38 минут
Если только числа, то просто убрать запятую из разрешённого списка. #8 это backspace, нужно иметь возможность удалить символы.

Вернуться к обсуждению:
Как сделать так, чтобы в строку редактирование (edit) можно было ввести только цифры и запятую? Delphi
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.06.2019, 12:22
Готовые ответы и решения:

Как сделать, чтобы в калькулятор можно было ввести только цифры и запятую?
Вот код: (на последнюю часть, не обращайте внимание) Я хочу сделать так, чтобы в калькулятор (в...

Как сделать так чтобы в текстовом окне можно было вводить только цыфры и запятую?
Как сделать так чтобы в текстовом окне(textBox) можно было вводить только цыфры и запятую?...

Как сделать так чтобы можно было ввести только дату?
Вот основная форма: Вот форма при нажатии на кнопку "Добавить": Так вот мне нужно сделать так...

Калькулятор: как сделать, чтобы можно было вводить только одну запятую?
День добрый. Помогите,пожалуйста,доработать калькулятор. Основная часть у меня уже сделана,но...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.06.2019, 12:22
Помогаю со студенческими работами здесь

Не могу доделать Калькулятор( как сделать так чтобы запятую можно было писать 1 раз )
Помогите доделать калькулятор. Вроде всё работает, только вот не могу сделать так чтобы запятую...

Как сделать, чтобы в edit можно было вводить только латинские буквы?
Как сделать чтоб в edit можно было вводить только English буквы.

Как сделать чтобы в Edit1 можно было вводить только цифры
Как сделать чтобы в Edit1 можно было вводить только цифры Зарание благодарю

Как сделать чтобы в MaskedTextBox можно было вводить только цифры и буквы A-Fa-f
Как сделать чтобы в MaskedTextBox можно было вводить только цифры и буквы A-Fa-f, а именно 8 байт...

Как сделать так, чтобы можно было закрыть только текущую Форму?
Доброго времени суток. Я использую Windows Forms и язык C# для написания не большого проекта....

Как сделать так чтобы в textbox можно было вписать только буквы?
Private Sub Textbox1_Change() Textbox1.Value = ChangeFirstLiter(Textbox1.Value) If Textbox1 = ""...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru