VPF::Edit порядок - Форум программистов

Стажёр

Дата 18.8.2005, 14:08 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Мне нужно в едите сделать так пользователь должен вводить обязательно 2 первый символа буквы, а остальные 6 цифры, не знаю как это можно сделать, помогите!!!

offline

Дата 18.8.2005, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: нет
Всего: 7

попробуй использовать маску ввода smile

стажёр

Дата 18.8.2005, 14:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


begin
case key of
#8,#13:;
end;
if (key in ['0'..'9']) and (Length(DBEdit2.Text)<2)  then
key:=#0;
if (Length(DBEdit2.Text)>1) and (key in ['a'..'z','A'..'Z']) then
key:=#0;
end;

вот такая ерунда, но работает зато, хотя код мне кажется корявым

Pakshin A. S.

Дата 18.8.2005, 14:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Цитата

вот такая ерунда, но работает зато, хотя код мне кажется корявым

Код


if ((Length(Edit1.Text) < 2) and (key in ['a'..'z', 'A'..'Z'])) or ((Length(Edit1.Text) >= 2) and (key in ['0'..'9'))
 then
  Key:=#0;

Это сообщение отредактировал(а) Pakshin A. S. - 18.8.2005, 14:59

стажёр

Дата 18.8.2005, 16:02 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

всем спасибо smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »