Главная страница
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.024 c
2-1191917708
Штучка
2007-10-09 12:15
2007.10.28
Как сделать нумерацию?


10-1138808974
kutnul
2006-02-01 18:49
2007.10.28
Создание обработчика событий


15-1191231333
User1999
2007-10-01 13:35
2007.10.28
Process View


2-1191492905
malyar
2007-10-04 14:15
2007.10.28
из С в паскаль


4-1177901326
GTR86
2007-04-30 06:48
2007.10.28
Как вывести свойства файла?