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

Вниз

TType=(something1, something2, something3)   Найти похожие ветки 

 
savyhinst ©   (2007-10-06 20:11) [0]

Как, например, перевести свойство TFont.Style в число БЕЗ перебора с if всех его возможных значений?


 
palva ©   (2007-10-06 20:30) [1]


procedure TForm1.FormCreate(Sender: TObject);
var
 fs:TFontStyles;
 i: Byte absolute fs;
begin
 fs := Font.Style;
 ShowMessage(IntToStr(i));
end;


 
q1   (2007-10-06 21:01) [2]

ord
?


 
palva ©   (2007-10-06 21:03) [3]

> ord
Это не перечислимый тип, к сожалению. Это множество.


 
hinst   (2007-10-06 21:32) [4]

Спасибо. А как обратно?


 
palva ©   (2007-10-06 21:40) [5]

> Спасибо. А как обратно?
Так же

procedure TForm1.FormCreate(Sender: TObject);
var
 fs:TFontStyles;
 i: Byte absolute fs;
begin
 i := 5;
 Font.Style := fs;
end;


 
Германн ©   (2007-10-07 00:57) [6]

palva ©
Одна из переменных явно лишняя.


 
Германн ©   (2007-10-07 02:24) [7]

Да и кстати. Попытался подумать о смысле директивы absolute в нынешней эпохе. И не нашел такового. Ну разве что чуть-чуть меньше "кнопконажимательства" если нужно в нескольких местах кода делать одно и то же приведение типа.


 
hinst   (2007-10-07 10:08) [8]

Может быть в том, чтобы посылать атрибуты шрифта по дде?



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

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

Наверх




Память: 0.48 MB
Время: 0.017 c
4-1177444727
cj
2007-04-24 23:58
2007.10.28
Информация о процессе


11-1175206803
nester
2007-03-30 02:20
2007.10.28
БагРепорт: RegKeyGetValueNames съедает последнюю букву


2-1191160170
Мурзик
2007-09-30 17:49
2007.10.28
Возможно ли?


3-1182494640
malor
2007-06-22 10:44
2007.10.28
Свойства RequestLive и ShowRecordTypes в ZeosDBO-6.1.5-stable


1-1186729609
vamp_avp
2007-08-10 11:06
2007.10.28
Передача данных в Word