Текущий архив: 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.012 c
