تبدیل Style فونت به رشته

[Mahdi_S_T]

چطوری میشه چنین عملی انجام داد ( و برعکس ):


var
str_style:string;
...
str_style:=FontDialog1.font.style;

[B-Vedadian]

Style یک مجموعه است بنا بر این باید به ازای تمامی اعضای ممکن، ببینی که تو مجموعه هستن یا نه. برای هر کدوم از اون enumها میتونی اسمشون رو بدست بیاری.




var
str_style: String;
FT: TFontStyle
.
.
.
str_style := '';
for FT := Low(TFontStyle) to High(TFontStyle) do
if FT in FontDialog1.Font.Style then
str_style := str_style + ',' + GetEnumName(TypeInfo(TFontStyle), Ord(FT));

[vcldeveloper]

برای کد بالا یونیت TypInfo را به بخش uses اضافه کنید.