库存管理软件版1楼: 我写了如下代码：combox1.items.assign(scrren.fonts);
想把屏幕支持的字体类型发到组合框中，不知道为什么不管用

2楼: 不会吧？
combobox1.items.assign(screen.fonts); 如商品销售软件

3楼: scrren.fonts 应该改为：Screen.Fonts

4楼: 哈哈，有意思，是不是要把combox1改为Combobox1呀

5楼: combobox1.items.assign(screen.fonts);
绝对管用，我试过

6楼: 其实楼主这种拼写错误在错误提示里面就可以看出来。
虽然Delphi的帮助和错误提示早就被人批评得体无完肤，但是多看总比少看好。

库存管理软件版7楼: 帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

╰=========================================╯

8楼: 帮顶

9楼: ComboBox1.Items := Screen.Fonts;
這樣試試。看行不!!!

10楼: Delphi帮助还可以啊,提示也过得去!

11楼: Combobox1.Items.AddObject(＇＇屏幕支持字体＇＇,TObject(scrren.fonts));
这样可能行

使用时：
var
p:pointer;
myFonts:Tstrings;
begin
p:=Combobox1.Items.Objects[Combobox1.Items.IndexOf(Combobox1.Text )];
myFonts:=TStrings(p);
end