怎样将Tfontstyle里面的各项转换为字符串

怎样将Tfontstyle里面的各项转换为字符串

Tfontstyle=(fsbold,fsunderline,fsItalic,fsDtrikeout).
是一个枚举型.
枚举型的实质是有序的数字.
可以做一个数组.
fontStyleStr:array [TFontStyle] of string = ( '粗体 ', '下划线 ', '斜体 ', '删除线 ');

Tfontstyles=set of Tfontstyle.
是一个集合.
可以用in操作.例如:
var
fontstyles:TFontStyles;

if fsbold in fontstyles then
checklistbox.items.add(fontStyleStr[fsbold]);

再举一个例子:
var
i:TfontStyle;

for i:=fsbold to fsDtrikeout do
begin
if s=fontStyleStr[i] then //这里的s就是你显示在界面上的字符串.想怎么弄就怎么弄
begin
.....//这里就可以做你想做的操作,i就是结果.
break;
end
end;

支持一下感觉挺不错的

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息