Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.31;
Скачать: CL | DM;

Вниз

Перечисляемые свойства   Найти похожие ветки 

 
mfender ©   (2006-12-13 12:24) [0]

Здравствуйте.
У меня вопрос: возможно-ли объявить некий тип (перечисляемое свойство), если заранее неизвестны значения этого свойства, чтобы потом из классов-наследников присваивать полю этого типа нужное значение?

Например:

TCustomProperty = ???

TCustomClass = class
protected
 FProperty: TCustomProperty;
end;

TClass1 = class(TCustomClass)
public
 constructor Create;
end;

constructor Create;
begin
 FProperty := pvPropertyValue;
end;


Вот в таком ключе. Только вот не знаю, что написать вместо ??? и не совсем понимаю, правильным-ли путём я иду?


 
Palladin ©   (2006-12-13 12:26) [1]

Конкретный пример в студию.


 
Ega23 ©   (2006-12-13 12:27) [2]

Возьми integer и не мучайся.


 
mfender ©   (2006-12-13 12:32) [3]


> Ega23 ©   (13.12.06 12:27) [2]
> Возьми integer и не мучайся.

Вот я уж тоже думал об этом... Но он не слишком нагляден. А делать string - потом громоздить if...elseif


 
Ega23 ©   (2006-12-13 13:06) [4]


> Вот я уж тоже думал об этом... Но он не слишком нагляден.
>  


Возьми integer и по ходу дела заводи константы.

const pvPropertyValue =0;

.....


 
ЮЮ ©   (2006-12-13 13:39) [5]


> Возьми integer и по ходу дела заводи константы.
>
> const pvPropertyValue =0;


По ходу можно и перечислимый тип добавлять :)


 
Ega23 ©   (2006-12-13 13:45) [6]


> По ходу можно и перечислимый тип добавлять :)


Только там ты в 255 ограничиваешься...


 
Ega23 ©   (2006-12-13 13:45) [7]


> Только там ты в 255 ограничиваешься...
>


Или вру?


 
Barloggg   (2006-12-13 14:15) [8]

врешь. меньше. по числу бит. то есть n x 8.


 
Ega23 ©   (2006-12-13 14:47) [9]


> врешь. меньше. по числу бит. то есть n x 8.


Это ты путаешь enumeration и set of


 
Steep ©   (2006-12-13 15:20) [10]

Насколько я знаю взяв string его можно пребразовать во все остальное..
Если я вобще о том думаю :)



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

Текущий архив: 2006.12.31;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.064 c
15-1165771559
Real
2006-12-10 20:25
2006.12.31
Патенты на изобретения и идеи - где? как? почем?


15-1165438654
ferr
2006-12-06 23:57
2006.12.31
Может кто и не знает :)


2-1165681703
atas-sheriff
2006-12-09 19:28
2006.12.31
ClientSocket


11-1131454344
algambra
2005-11-08 15:52
2006.12.31
замены системных модулей


3-1161322590
DelphiN!
2006-10-20 09:36
2006.12.31
SQL запрос