![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Nike0 |
![]() ![]()
Сообщение
#1
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 61 Пол: Мужской Реальное имя: Илья Репутация: ![]() ![]() ![]() |
Доброго времени суток, нужна небольшая помощь: у меня есть 9 эдитов, для пяти из них у меня есть условиеЮ, что можно записывать числа от 1 до 5 включительно и только 1 раз, вот эта процедура:
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
var
edit:TEdit;
b:integer;
begin
edit:= Sender as TEdit;
if (key = #8) and (edit.Text<>'') then
include(Number,StrToInt(edit.Text));
if not (Key in ['1'..'5',#8]) then
Key :=#0
else
begin
if key<>#8 then
b := StrToInt(Key);
if not (b in Number) and (key<>#8) then
Key := #0
else
if key<>#8 then
exclude(Number,b);
end;
end;
type
TNumber = Set of Byte;
procedure TForm2.FormCreate(Sender: TObject);
begin
Number := [1..5];
end;
но тут начинается самое интересное, я хотел сделать также и для 4 символов (+,-,*,/) в оставшиеся эдиты, но ничего толкового не получилось, прошу помочь разобраться с этой проблемкой |
![]() ![]() |
![]() |
Текстовая версия | 8.08.2025 7:08 |