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

← →
}|{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]

Можно

Можно

Type TMySmallInt = 1..100

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

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

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