請教各位先進: 如果要把FontDialog內的屬性資料存到資料庫日後再讀出,我要存成何種型態呢? .尤其是style我不知道要存成什麼型態, 是否有方法存成一個字串,讀出時 直接轉成font的屬性呢?

GetEnumName and GetEnumValue Font.Style is a set and I think you need to loop and test ,e.g. if fsBold in Font1.Style then {...} P.S. Instead of GetEnumName and GetEnumValue, you can simply use integer, .e.g Int := ord(fsBold); Font1.Style := Font1.Style TFontStyle(Int);

Since you mentioned FontDialog, which is a TComponent. There is an easier method to save/load the whole component, e.g.

var
    FileStream: TFileStream;
begin
    FileStream := TFileStream.Create('c:\test.bin',fmCreate);
    try
        FileStream.WriteComponent(FontDialog1);
    finally
        FileStream.Free;
    end;
end;    var
    FileStream: TFileStream;
begin
    FileStream := TFileStream.Create('e:\test.bin',fmOpenRead);
    try
         FileStream.ReadComponent(FontDialog1);
    finally
        FileStream.Free;
    end;
end;

I think you could create a memory stream and save/load it into the DB as BLOB fields.

感謝William大大的指導: 但是我使用 in 這個方式找不出來 set 是否含有fsBold 或fsItalic 等, 我那理寫錯了呢?我寫的方式如下 var FName:String; FSize,FColor:Integer; FBold,FItalic,FUnDerline,FStrikeOut:Integer; begin if FontDialog1.Execute then begin FName:=FontDialog1.Font.Name ; FSize:=FontDialog1.Font.Size ; FColor:=FontDialog1.Font.Color ; if fsBold in FontDialog1.Font.Style then FBold := ord(fsBold); ========================>這裏不會做 if fsItalic in FontDialog1.Font.Style then FItalic := ord(fsItalic); ====================>這裏不會做 if fsUnDerline in FontDialog1.Font.Style then FUnDerline := ord(fsUnDerline); =================>這裏不會做 if fsStrikeOut in FontDialog1.Font.Style then FStrikeOut := ord(fsStrikeOut); ================>這裏不會 end; end;

You code is fine but you forget to initialize FBold, FItalic, FUnDerline, FStrikeOut (e.g. -1 for none). BTW, you could simply use boolean type in your case becasue there is no need to store the actual value of the font style?    

var
  FName:String;
  FSize,FColor:Integer;
  FBold,FItalic,FUnDerline,FStrikeOut:boolean;
begin
  if FontDialog1.Execute then
  begin
    FName:=FontDialog1.Font.Name ;
    FSize:=FontDialog1.Font.Size ;
    FColor:=FontDialog1.Font.Color ;
    FBold := fsBold in FontDialog1.Font.Style;
    FItalic := fsItalic in FontDialog1.Font.Style;
    FUnDerline := fsUnDerline in FontDialog1.Font.Style
    FStrikeOut := fsStrikeOut in FontDialog1.Font.Style;
  end;
end;

非常感謝william大大:    請問我如果要把fsBold,fsItalic,fsUnDerline的值設到另一個元件的font ,要如何寫呢?我用 if FBold = true then include(label.Font.Style ,fsBold);    會有error.    

if FBold then
    Lablel.Font.Style := Label.Font.Style     [fsBold];

我會了!感謝william的指導!