| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TType=(something1, something2, something3) [D7, XP]

savyhinst ©   (2007-10-06 20:11:00) 

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

---

hinst   (2007-10-07 10:08:00) [1]

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

---

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

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

---

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

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

---

palva   (2007-10-06 21:40:00) [4]

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

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

---

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

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

---

palva   (2007-10-06 21:03:00) [6]

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

---

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

ord
?

---

palva   (2007-10-06 20:30:00) [8]


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


---

Наверх