有谁知道Font.style是何格式?

Question

to trainbox(战友战友亲如兄弟):好象不是integer,也不是string,该如何办呢?

Answer 1

type 
  TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);
  TFontStyles = set of TFontStyle;
集合类型，实际上它的实现很可能是数字形式。但好像没法强制转换！
var Str:String;
begin
    if fsBold in Font.Style then
    begin 
         Str:='fsBold/'; 
    end
    if fsItalic in Font.Style then
    begin
          Str:=Str+'fsItalic/';
    end;
    if fsUnderline in Font.Style then
    begin
         Str:=Str+'fsUnderline/';
    end;
    if  fsStrikeOut in Font.Style then
    begin 
          Str:=Str+'fsStrikeOut/';
    end;
    iniFile.WriteSting('Font','Style',Str);
end;
读出的时候，则判断你读出的那个字串有没有这四个字串，有则字体的style就加上一个style,当然，这是比较烂的方法，但可以解决问题！ 

Answer 2

ch81(missile):谢谢你,你帮我解决了不少问题.

Answer 3

var
  p: PInteger;
begin
  p:=PInteger(@Form.Style);
  ini.writeinteger(....p^....);
end;

Answer 4

PInteger = ^Integer;
var
  p: PInteger;
begin
  p:=PInteger(@Form.Style);
  ini.writeinteger('form','style',p^);
end;   

Answer 5

to trainbox(战友战友亲如兄弟): 我要求的是Font,而不是Form. 该如何做?

Answer 6

PInteger = ^Integer;
var
  p: PInteger;
begin
  p:=PInteger(@Font.Style);
  ini.writeinteger('font','style',p^);
end;  

Answer 7

PInteger = ^Integer;
var
  p: PInteger;
begin
  p:=PInteger(@Font.Style);//取地址,并强制转换为整型指针
  ini.writeinteger('font','style',p^);
end;  

Answer 8

to：ch81(missile)
  问你一个问题，回答问题就是你的工作？

Answer 9

PInteger = ^Integer;放在何处，为何我执行有问题？

Answer 10

trainbox(战友战友亲如兄弟)　:暑假没事，边做东西，边回答问题！

Answer 11

trainbox(战友战友亲如兄弟)　：你现在在忙什么呢？

Answer 12

trainbox(战友战友亲如兄弟):那天聊聊？

Answer 13

p:=PInteger(@Font.Style);编译到此处出错？提示：Variable required.

Answer 14

var
  p: PInteger;
  fs: TFontStyles;
begin
  fs:=Font.style;
  p:=PInteger(@fs);
  ini.writeinteger('font','style',p^);
end;  

Answer 15

to ch81:你的烂方法的确能解决问题。 to trainbox:你的方法老是通不过？

Answer 16

to trainbox:下班了，我再试一试，谢谢你！

Answer 17

to：lbsoft,不是变量，你定义一个变量不就行了？

Answer 18

to trainbox: 没问题了,但是我要从ini文件中将该值调出后,该如何付值给Font.Style呢??

Answer 19

var
  p: PInteger;
  fs: TFontStyles;
begin
  p:=@fs;
  ini.readinteger('font','style',p^);    
  Font.style:=fs;
end;  

Answer 20

var
  p: PInteger;
  fs: TFontStyles;
begin
  p:=@fs;
  p^:=ini.readinteger('font','style',0);    
  Font.style:=fs;
end;  

Answer 21

粗体了，斜体啦，等等一些就是font的style啦。