Главная страница
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.02 c
2-1191398821
Кевларвестов Семен
2007-10-03 12:07
2007.10.28
Про TStringList.DelimitedText


2-1191494799
Mariya
2007-10-04 14:46
2007.10.28
Вместо Yes - Да


1-1187252176
Gbp
2007-08-16 12:16
2007.10.28
Как заставить нормально работать форму в службе (service?


15-1191294037
Slider007
2007-10-02 07:00
2007.10.28
С днем рождения ! 2 октября 2007 вторник


6-1163412082
Alexey (AZ)
2006-11-13 13:01
2007.10.28
ServerSocket :: What are differents?