Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > удаление в Edit и Combobox

Автор: Vladimir13 26.12.2004, 08:01

напомните мне, а то я совсем запарился к утру. Как удалить символ из Edit'а и Combobox'a? Т.е. сделать ограничитель ввода только на цифры, а если ввели не цифру - удалить ее.

Автор: Coder 26.12.2004, 10:16

в обработчике событий нажатия клавиш компонента пишем,
если key входит в диапозон букв, то присваиваем key:=#0

извини за псевдокод какой-то просто под руками Делфи нету

Автор: Alex 26.12.2004, 11:06

Код


// Обработчик KeyPress для ввода только целых чисел
begin
  if not (Key in ['0'..'9', #8]) then Key:= #0;

Автор: Vladimir13 27.12.2004, 02:48

спасибо обоим. Правда уже сам вспомнил в вечеру...

Автор: FRAGNATIC 27.12.2004, 04:01

я вообщем использую это (взято тоже с forum.vingrad.ru) тока не помню где и кто именно автор в даном примере позволяет тока цифры вводить

Код


procedure TOptions.Edit1Change(Sender: TObject);
var s:string;
   i:integer;
begin
s:='';
for i:=1 to Length(TEdit(Sender).Text) do
 if (TEdit(Sender).Text[i] in ['0'..'9']) then s:=s+TEdit(Sender).Text[i];
TEdit(Sender).Text:=s;
end;