Скачать: CL | DM;

Свойство с ограниченным диапазоном   Найти похожие ветки 

← →
}|{yk ©   (2004-02-24 17:54) [0]

Можно ли сделать свойство в компоненте, которое будет целого типа и находиться в диапазоне 1-100, не используя для этого функции для записи, т.е. написать просто read FMyVar write FMyVar?

---

← →
Skier ©   (2004-02-24 17:57) [1]

type
TYourRange = 1..100;

//.........................

property YourRange : TYourRange read FYourRange write FYourRange;

---

← →
Юрий Зотов ©   (2004-02-24 17:57) [2]

type
TMyVar = 1..100;

...
private
FMyVar: TMyVar;
...
property MyVar: TMyVar read FMyVar write FMyVar...
...

---

← →
Sandman25+1   (2004-02-24 17:57) [3]

Можно

---

← →
Defunct ©   (2004-02-24 17:58) [4]

Можно

Type TMySmallInt = 1..100

MyClass = class(_)
Private
FCount : TMySmallInt;
..
Public
Property Count:TMySmallInt Read FCount Write FCount;
..
End;

---

← →
}|{yk ©   (2004-02-24 18:04) [5]

спасибо. А то я чего то в set of 1..100 полез...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c