Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c