Последние записи
- Редактировать содержимое ListBox в Microsoft Office Excel
- Отчистить содержимое через макрос (Microsoft Office Excel)
- Чередующиеся строки столбца перевести в столбцы (Microsoft Office Excel)
- Выбор ЯП для приложений промышленной автоматизации (Delphi, Pascal, Scada)
- Как программно увеличить толщину линий в графике на форме в Microsoft Office Access?
- Рандомное слово в документе Word
- Чем отличается MBR (с физического диска), BootSector (с логического диска)
- Проверка установки офиса
- <fstream> <iomanip> <ios> <iostream>. Краткое описание ввода/вывода
- Русский текст в консоли
16th
Май
Запретить вводить вторую точку
Posted by micher under Delphi
Как в Edit запретить вводить более одной точки?
Человек_Борща
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
//Не даем вводить ещё 1 точку
if (Key = '.') and bDotExists then
Key := #0;
//Разрешаем ввести точку если её ещё не было
if (Key = '.') and not bDotExists then
bDotExists := True;
//Если жмякаем Backspace и последний символ это точка, то она будет удалена
if (Key = #8) and bDotExists and (Edit1.Text[Length(Edit1.Text)] = '.') then
bDotExists := False;
end;
Похожие статьи
