怎样将Tfontstyle里面的各项转换为字符串
答案:2 悬赏:80 手机版
解决时间 2021-01-28 17:14
- 提问者网友：浮克旳回音
- 2021-01-28 13:32
怎样将Tfontstyle里面的各项转换为字符串
最佳答案
- 五星知识达人网友：千杯敬自由
- 2021-01-28 14:58
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;
是一个枚举型.
枚举型的实质是有序的数字.
可以做一个数组.
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;
全部回答
- 1楼网友：几近狂妄
- 2021-01-28 15:56
支持一下感觉挺不错的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯