FireMonkey 能將目前使用的 Style 導(dǎo)出成文件，它提供二種文件格式，請(qǐng)看下列代碼：

*.style

procedure TForm1.Button1Click(Sender: TObject); var Stream1: TFileStream; beginif TStyleManager.ActiveStyle(Self) <> nil thenbeginStream1 := TFileStream.Create('d:\test.style', fmCreate); // 假設(shè)文件要儲(chǔ)存在 d:\test.styleTStyleStreaming.SaveToStream(TStyleManager.ActiveStyle(Self), Stream1, TStyleFormat.Text);FreeAndNil(Stream1);end; end;

*.fsf

procedure TForm1.Button1Click(Sender: TObject); var Stream1: TFileStream; beginif TStyleManager.ActiveStyle(Self) <> nil thenbeginStream1 := TFileStream.Create('d:\test.fsf', fmCreate); // 假設(shè)文件要儲(chǔ)存在 d:\test.fsfTStyleStreaming.SaveToStream(TStyleManager.ActiveStyle(Self), Stream1, TStyleFormat.Indexed);FreeAndNil(Stream1);end; end;

XE8 格式支持：

TStyleFormat = (Indexed, Binary, Text);

轉(zhuǎn)載于:https://www.cnblogs.com/onechen/p/4646752.html

總結(jié)

以上是生活随笔為你收集整理的FireMonkey 导出目前 Style 另存文件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。